SolidWorks图号名称分离宏

精品文档 1欢迎下载 SolidWorks 宏代码 用来分离文件名中的图号与零件名并自动写入属性 文件名不需要 或者空格等特殊符号 不限制图号长度 均可识别并分离 使用方法 1 打开宏工具栏 精品文档 2欢迎下载 2 点击新建宏按钮 选择路径 输入新建宏名称 3 删除窗口里的所有代码 把本文档里的代码粘贴进去保存 4 打开 SolidWorks 自定义 精品文档 3欢迎下载 5 打开命令标签 选择宏 把方框里的图标拖动到 SolidWorks 主界面工具栏 精品文档 4欢迎下载 6 在弹出窗口浏览刚刚保存的宏文件路径 点击确定 精品文档 5欢迎下载 7 在打开文件的情况下 点击刚刚在工具栏创建的宏按钮即可自动识别并写入属性 以下为代码 Sub MAIN 精品文档 6欢迎下载 Set swApp CreateObject sldworks application Set Part swApp ActiveDoc swApp ActiveDoc ActiveView FrameState 1 Set CurCFG Part GetActiveConfiguration ConfName CurCFG Name Name swApp ActiveDoc GetTitle 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 If e SLDPRT Or e SLDASM Or e sldprt Or e sldasm Then g Left c b 7 Else g c End If 精品文档 7欢迎下载 l Len g h Left g 2 k Len g For I 1 To Len g If Asc Mid g I 1 0 Then w I Exit For End If Next For I 0 To Len g 1 If Asc Mid g Len g I 1 0 Then If w 1 Then s Left g X t Right g k X Else t Left g w 1 s Right g k w 1 精品文档 8欢迎下载 End If Else s t g End If dummy Part Extension CustomPropertyManager Part ConfigurationManager ActiveConfigurat ion Name Set 代号 t dummy Part Extension CustomPropertyManager Part ConfigurationManager ActiveConfigurat ion Name Set 名称 s dummy Part Extension CustomPropertyManager Part ConfigurationManager ActiveConfigurat ion Name Set 备注 j End Sub 精品