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

SolidWorkS2014基于宏实现快速图号名称分离 1.两类代码 代码1 (内容添加至“自定义下”) Dim SWAPP AS ObjeCt Dim Part AS ObjeCt Dim SeIMgr AS ObjeCt Dim boolstatus AS BOOlean Dim IOngstatus AS LOngZ 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() IlinkSOlidWOrkS Set SWAPP = APPliCatiOn.SldWorks Set Part = SwApp-ActiveDoc Set SelMgr = Part-SeIectionManager SwApp-ActiveDoceActiveVieweFrameState = 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 = InStrfcz,, )-1 谨点：分隔标识符，这里是一个空格,也可用其他符号区分 If a OThen k = Left(Cz a) t = Left(LTrimfe)z 3) Ift = llGBTn Then e = MGBZTM + Mid(k, 4) EISe e = k End If b = Mid(Cz 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 SIdWOrkS.ModelDoc2 SUb main() Set SWAPP = APPliCatiOn.SIdWorks Set SWMOdelDOC = SwAppeActiveDoc Set SWCOnfig = SWMOdelDOC.ConfigurationManagereActiveConfiguration Set SWMOdel = swApp.ActiveDoc Set CUStPrOPMgr = SWMOdeI.Extensi On .CustomPropertyManager(SWMOdel. ConfigurationManager. ActiveConfiguratio n.Name)