SolidWorks图号名称分离宏

tomInfo3(ConfName,"名称",swCustomInfoText,frmPartID)blnretval=Part.AddCustomInfo3(ConfName,"备注",swCustomInfoText,frmPartID)b=Len(c)e=Right(c,7)Ife=".SLDPRT"Ore=".SLDASM"Ore=".sldprt"Ore=".sldasm"Theng=Left(c,b-7)Elseg=cEndIfl=Len(g)h=Left(g,2)k=Len(g)ForI=1ToLen(g)IfAsc(Mid$(g,I,1))<0Thenw=IExitForEndIfNextForI=0ToLen(g)-1IfAsc(Mid$(g,Len(g)-I,1))<0ThenX=Len(g)-IExitForEndIfNextIfw>0ThenIfw=1Thens=Left(g,X)t=Right(g,k-X)Elset=Left(g,w-1)s=Right(g,k-w+1)EndIfElses=""t=gEndIfdummy=Part.Extension.CustomPropertyManager(Part.ConfigurationManager.ActiveConfiguration.Name).Set("代号",t)dummy=Part.Extension.CustomPropertyManager(Part.ConfigurationManager.ActiveConfiguration.Name).Set("名称",s)dummy=Part.Extension.CustomPropertyManager(Part.ConfigurationManager.ActiveConfiguration.Name).Set("备注",j)EndSub