solidworks代號(hào)名稱分離宏命令屬性自定義“或”配置特定中

SolidWorks2014基于宏實(shí)現(xiàn)快速"圖號(hào)名稱"分離兩類代碼代碼1（內(nèi)容添加至“自定義下”）DimswAppAsObjectDimPartAsObjectDimSelMgrAsObjectDimboolstatusAsBooleanDimlongstatusAsLong,longwarningsAsLongDimFeatureAsObjectDimaAsIntegerDimbAsStringDimmAsStringDimeAsStringDimkAsStringDimtAsStringDimcAsStringDimjAsIntegerDimstrmatAsStringDimtempvalueAsStringSubmain()'linksolidworksSetswApp=Application.SldWorksSetPart=swApp.ActiveDocSetSelMgr=Part.SelectionManagerswApp.ActiveDoc.ActiveView.FrameState=1'設(shè)定變量c=swApp.ActiveDoc.GetTitle()'零件名strmat=Chr(34)+Trim("SW-Material"+"@")+c+Chr(34)blnretval=Part.DeleteCustomInfo2("","圖樣代號(hào)")blnretval=Part.DeleteCustomInfo2("","圖樣名稱")blnretval=Part.DeleteCustomInfo2("","材料")a=InStr(c,"")-1'重點(diǎn)：分隔標(biāo)識(shí)符，這里是一個(gè)空格,也可用其他符號(hào)區(qū)分Ifa>0Thenk=Left(c,a)t=Left(LTrim(e),3)Ift="GBT"Thene="GB/T"+Mid(k,4)Elsee=kEndIfb=Mid(c,a+2)t=Right(c,7)Ift=".SLDPRT"Ort=".SLDASM"Ort=".sldprt"Ort=".sldasm"Thenj=Len(b)-7'消除后綴（區(qū)分大小寫，即含4種）Elsej=Len(b)EndIfm=Left(b,j)EndIfblnretval=Part.AddCustomInfo3("","圖樣代號(hào)",swCustomInfoText,e)'代號(hào)blnretval=Part.AddCustomInfo3("","圖樣名稱",swCustomInfoText,m)'名稱blnretval=Part.AddCustomInfo3("","表面處理",swCustomInfoText,"")EndSub代碼2（內(nèi)容添加至“配置特定”下）'定義swDimaAsIntegerDimbAsStringDimmAsStringDimeAsStringDimkAsStringDimtAsStringDimcAsStringDimjAsIntegerDimstrmatAsStringDimtempvalueAsStringDimPartAsObjectDimswAppAsSldWorks.SldWorksDimswModelDocAsSldWorks.ModelDoc2DimswConfigAsSldWorks.ConfigurationDimCustPropMgrAsSldWorks.CustomPropertyManagerDimswModelAsSldWorks.ModelDoc2Submain()SetswApp=Application.SldWorksSetswModelDoc=swApp.ActiveDocSetswConfig=swModelDoc.ConfigurationManager.ActiveConfigurationSetswModel=swApp.ActiveDocSetCustPropMgr=swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name)'配置特定延伸'設(shè)定變量c=swApp.ActiveDoc.GetTitle()'零件名strmat=Chr(34)+Trim("SW-Material"+"@")+c+Chr(34)a=InStr(c,"")-1'重點(diǎn)：分隔標(biāo)識(shí)符，這里是一個(gè)空格，也可換成其他符號(hào)2認(rèn)識(shí)宏編輯界面：1、工程信息2、編程區(qū)域3、做一個(gè)寫代碼前的準(zhǔn)備工作，把2區(qū)域的內(nèi)容Ctrl+A全選刪除。3寫代碼：復(fù)制如下代碼，寫到上圖的2區(qū)域；'從這里開始復(fù)制:'定義solidworkDimswAppAsObjectDimPartAsObjectDimSelMgrAsObjectDimboolstatusAsBooleanDimlongstatusAsLong,longwarningsAsLongDimFeatureAsObjectDimaAsIntegerDimbAsStringDimmAsStringDimeAsStringDimkAsStringDimtAsStringDimcAsStringDimjAsIntegerDimstrmatAsStringDimtempvalueAsStringSubmain()'linksolidworksSetswApp=Application.SldWorksSetPart=swApp.ActiveDocSetSelMgr=Part.SelectionManagerswApp.ActiveDoc.ActiveView.FrameState=1'設(shè)定變量c=swApp.ActiveDoc.GetTitle()'零件名strmat=Chr(34)+Trim("SW-Material"+"@")+c+Chr(34)blnretval=Part.DeleteCustomInfo2("","代號(hào)")blnretval=Part.DeleteCustomInfo2("","名稱")blnretval=Part.DeleteCustomInfo2("","材料")a=InStr(c,"")-1

'重點(diǎn)：分隔標(biāo)識(shí)符，這里是一個(gè)空格Ifa>0Then

k=Left(c,a)

t=Left(LTrim(e),3)

Ift="GBT"Then

e="GB/T"+Mid(k,4)

Else

e=k

EndIf

b=Mid(c,a+2)

t=Right(c,7)

Ift=".SLDPRT"Ort=".SLDASM"Then

j=Len(b)-7

Else

j=Len(b)

EndIf

m=Left(b,j)EndIfblnretval=Part.AddCustomInfo3("","代號(hào)",swCustomInfoText,e)

'代號(hào)blnretval=Part.AddCustomInfo3("","名稱",swCustomInfoText,m)

'名稱blnretval=Part.AddCustomInfo3("","表面處理",swCustomInfoText,"")EndSub4保存退出。第一部分做到這就算完成了。下面是創(chuàng)建宏按鈕；E