SolidWorks图号名称分离宏.pdf

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