SolidWorks宏代码，用来分离文件名中的图号与零件名并自动写入属性，文件名不需要“-”或者空格等特殊符号，不限制图号长度，均可识别并分离
使用方法
消防栓的使用方法指针万用表的使用方法84消毒液使用方法消防灭火器使用方法铁材计算器使用方法
1.打开宏工具栏2点击新建宏按钮选择路径，输入新建宏名称3删除窗口里的所有代码，把本文档里的代码粘贴进去保存4打开SolidWorks自定义5打开命令标签，选择宏，把方框里的图标拖动到SolidWorks主界面工具栏6在弹出窗口浏览刚刚保存的宏文件路径，点击确定7在打开文件的情况下，点击刚刚在工具栏创建的宏按钮即可自动识别并写入属性以下为代码：SubMAIN()SetswApp=CreateObject("sldworks.application")SetPart=swApp.ActiveDoc=1SetCurCFG=Part.GetActiveConfiguration()ConfName=CurCFG.NameName=c=Replace(Name,"","")blnretval=Part.AddCustomInfo3(ConfName,"代号",swCustomInfoText,frmPartID)blnretval=Part.AddCustomInfo3(ConfName,"名称",swCustomInfoText,frmPartID)blnretval=Part.AddCustomInfo3(ConfName,"备注",swCustomInfoText,frmPartID)b=Len(c)e=Right(c,7)Ife=".SLDPRT"Ore=".SLDASM"Ore=".sldprt"Ore=".sldasm"Theng=Left(c,b-7)Elseg=cEndIfl=Len(g)h=Left(g,2)k=Len(g)ForI=1ToLen(g)IfAsc(Mid$(g,I,1))<0Thenw=IExitForEndIfNextForI=0ToLen(g)-1IfAsc(Mid$(g,Len(g)-I,1))<0ThenX=Len(g)-IExitForEndIfNextIfw>0ThenIfw=1Thens=Left(g,X)t=Right(g,k-X)Elset=Left(g,w-1)s=Right(g,k-w1)EndIfElses=""t=gEndIfdummy=t)dummy=s)dummy=j)EndSub
浙公网安备 33021202002483