(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”.docxVIP

PAGE 1Word版本 PAGE 1 (完整word版)solidworks代号名称分离宏命令(属性”自定义“或” SolidWorkS2021基于宏实现快速图号名称分别  1.两类代码  代码1 (内容添加至“自定义下”)  Dim SWAPP AS ObjeCt  Dim Part AS ObjeCt  Dim SeIMgr AS ObjeCt  Dim boolstatus AS BOOlean  Dim IOngstatus AS LOng Z IOngWarnings AS LOng  Dim FeatUre AS ObjeCt  Dim a AS Integer  Dim b AS String  Dim m AS String  Dim e AS String  Dim k AS String  DimtAS String  Dim C AS String  Dimj AS Integer  Dim Strmat AS String  Dim tempvalue AS String  SUb main()  I linkSOlidWOrkS  Set SWAPP = APPliCatiOn.SldWorks  Set Part = SwApp-ActiveDoc  Set SelMgr = Part-SeIectionManager  SwApp-ActiveDoc e ActiveView e FrameState = 1  设定变量  C = SWAPP.ActiveDoc.GetTitle()零件名  Strmat = Chr(34) + Trim(SW-MateriaI + (3)1) + c + Chr(34)  blnretval = Part.DeleteCustomlnfo2(,图样)  blnretval = Part.DeleteCustomlnfo2(,图样名称)  blnretval = Part.DeleteCustomlnfo2(,?材料)  a = InStrfc z,, )-1 谨点：分隔标识符，这里是一个空格,也可用其他符号区分  If a OThen  k = Left(C z a)  t = Left(LTrimfe)z 3)  Ift = ll GBT n Then  e = M GBZT M + Mid(k, 4)  EISe  e = k  End If  b = Mid(C z 0 + 2)  t = Right(C# 7)  If t = ll.SLDPRΓ Or t = ,,.SLDASMπ Or t = ll.sldprtπ Or t = ,,.sldasm,,Then  j = Len(b) ?7消退后缀(区分大小写，即含4种)  EISe  j = Len(b)  End If  m = Left(b, j)  End If  blnretval = Part.AddCustomlnfo3(,?图样, SWCUStOmlnfOTeXt e),blnretval = Part.AddCustomlnfo3(,,,?图样名称笃SWCUStOmInfoText, m)名称blnretval =  Part.AddCustomlnfo3(,表面处理, SWCUStOmlnfOTeXt) End SUb  代码2 (内容添加至“配置特定”下)  定义SW  Dim a  Dim b  Dim m  Dim e  Dim k  Dim t  Dim C  Dimj  Dim Strmat  Dim tempvalue Dim Part  Dim SWAPP  Dim SWMOdeIDOC Dim SWC Onfig Dim CUStPrOPMgr Dim SWMOdel AS Integer  AS String  AS String  AS String  AS String  AS String  AS String  AS Integer  AS String  AS String  AS ObjeCt  AS SldWOrkS.SIdWorks  AS SIdWOrkS.ModelDoc2  AS SldWOrkS.Configuration  AS SldWOrkS.CustomPropertyManager AS SIdWOrk