solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中).docxVIP

SolidWorks2014基于宏实现快速图号名称分离两类代码代码1（内容添加至“自定义下”）Dim swApp As ObjectDim Part As ObjectDim SelMgr As ObjectDim boolstatus As BooleanDim longstatus As Long, longwarnings As LongDim Feature As ObjectDim a As IntegerDim b As StringDim m As StringDim e As StringDim k As StringDim t As StringDim c As StringDim j As IntegerDim strmat As StringDim tempvalue As StringSub main()link solidworksSet swApp = Application.SldWorksSet Part = swApp.ActiveDocSet SelMgr = Part.SelectionManagerswApp.ActiveDoc.ActiveView.FrameState = 1设定变量c = swApp.ActiveDoc.GetTitle() 零件名strmat = Chr(34) + Trim(SW-Material + @) + c