SolidWorks图号名称分离宏

《SolidWorks图号名称分离宏》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、SolidWorks宏代码，用来分离文件名中的图号与零件名并自动写入属性，文件名不需要“-”或者空格等特殊符号，不限制图号长度，均可识别并分离使用方法1.打开宏工具栏2点击新建宏按钮选择路径，输入新建宏名称3删除窗口里的所有代码，把本文档里的代码粘贴进去保存4打开SolidWorks自定义5打开命令标签，选择宏，把方框里的图标拖动到SolidWorks主界面工具栏6在弹出窗口浏览刚刚保存的宏文件路径，点击确定7在打开文件的情况下，点击刚刚在工具栏创建的宏按钮即可自动识别并写入属性以下为代码：SubMAIN()SetswApp=CreateObject("sldworks.applic

2、ation")SetPart=swApp.ActiveDocswApp.ActiveDoc.ActiveView.FrameState=1SetCurCFG=Part.GetActiveConfiguration()ConfName=CurCFG.NameName=swApp.ActiveDoc.GetTitle()c=Replace(Name,"","")blnretval=Part.AddCustomInfo3(ConfName,"代号",swCustomInfoText,frmPartID)blnretval=Part.AddCustomInfo3(ConfName,"名称",

3、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(

4、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-w+1)EndIfElses=""t=gEndIfdummy=Part.Extension.CustomPropertyManager(Part.ConfigurationManager.ActiveConfiguration.Name).Set("代号",t)dummy=Part.Extension.CustomProp

5、ertyManager(Part.ConfigurationManager.ActiveConfiguration.Name).Set("名称",s)dummy=Part.Extension.CustomPropertyManager(Part.ConfigurationManager.ActiveConfiguration.Name).Set("备注",j)EndSub