文件名称：SolidWorks图号名称分离-无图号则只提取名称.swp
文件大小：41KB
文件格式：SWP
更新时间：2023-06-12 08:42:35
Solidworks 图号名称分
Solidworks 图号名称分离程序，无图号则只提取名称Sub main() 'link solidworks Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Set SelMgr = Part.SelectionManager swApp.ActiveDoc.ActiveView.FrameState = 1 '设定变量 c = swApp.ActiveDoc.GetTitle() '零件名 strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)