SolidWorks图名称分离宏.pdfVIP

S o l i d W o r k s 图名称分 离宏 集团企业公司编码：（LL3698-KKI1269-TM2483-LUI12689-ITT289- SolidWorks 宏代码，用来分离文件名中的图号与零件名并自动写入属 性，文件名不需要“-”或者空格等特殊符号，不限制图号长度，均可识 别 并 分 离 使用方法 1. 打开宏工具栏 2 点击新建宏按钮 选择路径，输入新建宏名称 3 删除窗口里的所有代码，把本文档里的代码粘贴进去保存 4 打开 SolidWorks 自定义 5 打开命令标签，选择宏，把方框里的图标拖动到 SolidWorks 主界面工 具栏 6 在弹出窗口浏览刚刚保存的宏文件路径，点击确定 7 在打开文件的情况下，点击刚刚在工具栏创建的宏按钮即可自动识别并 写入属性 以下为代码： SubMAIN() SetswApp=CreateObject(sldworks.application) SetPart=swApp.ActiveDoc =1 SetCurCFG=Part.GetActiveConfiguration() ConfName=CurCFG.Name Name= 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=.SLDPRTOre=.SLDASMOre=.sldprtOre=.sldasmThen g=Left(c,b-7) Else g=c EndIf l=Len(g) h=Left(g,2) k=Len(g) ForI=1ToLen(g) IfAsc(Mid$(g,I,1))0Then w=I ExitFor EndIf Next ForI=0ToLen(g)-1 IfAsc(Mid$(g,Len(g)-I,1))0Then X=Len(g)-I ExitFor EndIf Next Ifw0Then Ifw=1Then s=Left(g,X) t=Right(g,k-X) Else t=Left(g,w-1) s=Right(g,k-w+1) EndIf Else s= t=g EndIf dummy=t) dummy=s) dummy=j) EndSub