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

1、SolidWorkS2014基于宏实现快速图号名称分离1.两类代码代码1 (内容添加至“自定义下”)Dim SWAPP AS ObjeCtDim Part AS ObjeCtDim SeIMgr AS ObjeCtDim boolstatus AS BOOleanDim IOngstatus AS LOngZ IOngWarnings AS LOngDim FeatUre AS ObjeCtDim a AS IntegerDim b AS StringDim m AS StringDim e AS StringDim k AS StringDimtAS StringDim C AS Strin

2、gDimj AS IntegerDim Strmat AS StringDim tempvalue AS StringSUb main()IlinkSOlidWOrkSSet SWAPP = APPliCatiOn.SldWorksSet Part = SwApp-ActiveDocSet SelMgr = Part-SeIectionManagerSwApp-ActiveDoceActiveVieweFrameState = 1设定变量C = SWAPP.ActiveDoc.GetTitle()零件名Strmat = Chr(34) + Trim(SW-MateriaI + (3)1) +

3、c + Chr(34)blnretval = Part.DeleteCustomlnfo2(,图样代号)blnretval = Part.DeleteCustomlnfo2(,图样名称)blnretval = Part.DeleteCustomlnfo2(, 材料)a = InStrfcz, )-1 谨点：分隔标识符，这里是一个空格,也可用其他符号区分If a OThenk = Left(Cz a)t = Left(LTrimfe)z 3)Ift = llGBTn Thene = MGBZTM + Mid(k, 4)EISee = kEnd Ifb = Mid(Cz 0 + 2)t = Rig

4、ht(C# 7)If t = ll.SLDPR Or t = ,.SLDASM Or t = ll.sldprt Or t = ,.sldasm,Thenj = Len(b) 7消除后缀(区分大小写，即含4种)EISej = Len(b)End Ifm = Left(b, j)End Ifblnretval = Part.AddCustomlnfo3(, 图样代号, SWCUStOmlnfOTeXt e),代号 blnretval = Part.AddCustomlnfo3(, 图样名称笃 SWCUStOmInfoText, m)名称 blnretval = Part.AddCustomlnf

5、o3(,表面处理, SWCUStOmlnfOTeXt) End SUb 代码2 (内容添加至“配置特定”下)定义SWDim aDim bDim mDim eDim kDim tDim CDimjDim StrmatDim tempvalueDim PartDim SWAPPDim SWMOdeIDOCDim SWC OnfigDim CUStPrOPMgrDim SWMOdelAS IntegerAS StringAS StringAS StringAS StringAS StringAS StringAS IntegerAS StringAS StringAS ObjeCtAS SldWOr

6、kS.SIdWorksAS SIdWOrkS.ModelDoc2AS SldWOrkS.ConfigurationAS SldWOrkS.CustomPropertyManagerAS SIdWOrkS.ModelDoc2SUb main()Set SWAPP = APPliCatiOn.SIdWorksSet SWMOdelDOC = SwAppeActiveDocSet SWCOnfig = SWMOdelDOC.ConfigurationManagereActiveConfigurationSet SWMOdel = swApp.ActiveDocSetCUStPrOPMgr=SWMOd

7、eI.Extensi On .CustomPropertyManager(SWMOdel. ConfigurationManager. ActiveConfiguratio n.Name)配置特定延伸设定变量C = SWAPP.ActiveDoc-GetTitIeO ,零件名Strmat = Chr(34) + Irim(MSW-Matena, + ”)+ c + C hr(34)a = InStr(Cji)-I重点：分隔标识符，这里是一个空格，也町换成其他符号If a O Thenk = Left(c, a)t = Left(LTrimfe), 3)lft = ,GBT Thene = ,G

8、BT + Mid(k, 4)EISee = kEnd Ifb = MieI(Cz a + 2)t = Right(Cz 刀If t = ,.SLDPRT Or t = ,.SLDASM Or t = ,.sldprtu Or t = ,.sldasm,Thenj = Len(b) 厂消除后缀(区分大小写，即含4种)EISej = Len(b)End Ifm = Left(b, j)End If删除栏CUStPrOPMgr.Delete (图样代号)CUStPrOPMgr.Delete (图样名称)CUStPrOPMgr.Delete (材料)噺增CUStPrOPMgr.Add2 图样代号“,S

9、WCUStOmlnfOText, eCUStPrOPMgr.Add2 图样名称，SWCUStOmlnfOTeXt mCUStPrOPMgr.Add2 数量, SWCUStOmlnfOTeXtZ CUStPrOPMgr.Add2 材料，SWCUStOmInfoTextz StrmatCUStPrOPMgr.Add2 单重, SWCUStOmlnfOTeXtz CUStPrOPMgr.Add2 总巫，SWCUStOmlnfoTeXtCUStPrOPMgr.Add2 备注, SWCUStOmlnfOTextZ End SUb待别说明：在虚拟件中添加属性时，名称会自动加上从属装配体，IE虚拟件则不会(

10、此问题 急需高人指点)2.操作步骤(以上述代码1为例)一、宏代码1新建宏代码：工具宏一一新建在文件名中输入：图号分离.Swp :点击保存，进入宏编辑界面：。旳Iiffl热矛 0+1Q SW6B3 乙 StixE3 NWWT PUoadiIjssp r PPy(如3W Y9 MSAQTM(；如口 (XJ) MKH 呻 (切 WB&Z *# (=Q)-WSn C0 叫ISQ P53K3H*M55&B93Wfi W1*SBPl 4 ii q a? rf JKa写代码：复制如下代码,写到上图的2区域;从这里开始复制：定义 SOlidWOrkDim SWAPP AS ObjeCtDim Part AS

11、ObjeCtDim SelMgr AS ObjeCtDim boolstatus AS BOOleanDim IOngStatUS AS LOngz IOngWarnings AS LOngDim FeatUre AS ObjeCtDim a AS IntegerDim b AS StringDim m AS StringDim e AS StringDim k AS StringDim t AS StringDim C AS StringDimj AS IntegerDim Strmat AS StringDim IemPVaIUe AS StringSUb main()lin k SOIi

12、dWOrkSSet SWAPP = APPliCatiOn.SIdWorksSet Part = SwAppeActiveDocSet SelMgr = Part-SeIectionManagerSwAppeActiveDoc-ActiveVieweFrameState = 1设定变量C = SWAPP.ActiveDoc-GetTitIeO ,零件名Strmat = Chr(34) + Trim(SW-MateriaI + ”)+ c + Chr(34) blnretval = Part.DeleteCustomlnfo2(wl 代号) blnretval = Part.DeleteCust

13、omlnfo2(, 名称) blnretval = Part.DeleteCustomlnfo2(, 材料)a = InStr(C#,) -1觅点：分隔标识符，这里是一个空格If a 0 Thenk = Left(C# a)t= Left(LTrimfe), 3)lft = ,GB Thene = ,GB, + Mid(kz 4)ElSee = ktnd Ifb = Mid(C# a 2)t= Right(q 7)If t = ,.SLDPR Or t = ,.SLDASM Thenj = Len(b) 7EISej = Len(b)End Ifm = Left(bz j)End Ifblnr

14、etval = Part.AddCustomlnfo3(l,l 代号蔦 SWCUStOmlnfoText, e)代号 blnretval = Part.AddCustomlnfo3(, 名称舄 SWCUStOmlnfOTeXt m) 名称 blnretval = Part.AddCustomlnfo3(, 表面处理, SWCUStomlnfOText,) End SUb83号分离-图号分离（代至Iink solirorksSt SWAPP Application SIVOrkS St Prt SVAPP ActivtDocSt StIMCr Part. StltctarKAcrIWAPP Ac

15、tivDoc. ActivtYitv FrMStt 1 设询ISWAPP Acti”DOC GttTitleO 件名street - Chr(M) TriCSHUtritT V) c Chr(34)tpvlu Ptrt CustgInfRC *HM*) HArttYd Part DtltCustInf2f Elarttvd - FInStr(c,八)7 ITVyIrnmrk Lt (c ) t Uft(Lrri(L 3)6 )3CI t PBT TUn PB/T Mia(E 4)Elseb Mi 心 2) t KiCht (e. 7) If t .SLDFRT* Or t SIJASTun j

16、 Una) - 7El”End If Ut(k j)I Frt tInf3(* 代号 1 Prt 离dJCtgInfo3L* 名瑟 FIrt KidC5(- 目 Vlnrttv1 Frt. A4CustoInf3(* blnrttvl Frt.lnf3(* blxxrtl Part 44CuttMlnf3( blnr )BWCUXtCalnfoTxL strt) IWCUS t CeIqfOT ex vCutcInfT * M Ojt P* A川 rDUr A Objt U Lm 1M*.A9 It Xa h Ftw AB gjQo U lMi b A StriBf 川 U StrM * St

17、rM *t k U StrIM B t t StriM He As StrIM t j tcr lie trt AB StflM i UW4 4M1 MnwJBM* MMkrosoft ViWai BMk fn -IX MkD 4S * 2) MbW ” X* MC0fiD t!w4 丄亠件巧 e Nf*jrir e M.RiI*Vi Slt*rk Pf -* SH) la iJ erkvSt ”S ltat SlrhSt Fert CVAft Atvw St SlMr Faft S*lx ArtiVVvEND二、创建宏按钮1. 返回SOlidWOrkST作界面，进入自定义工具栏:工具一一自定

18、义；选择命令选项卡，找到宏，把新建宏按钮拖到工具栏的空白处；:占日。峋Q8夕站M 标!自定义K包ItK M遇昨IBk)?JlIIG20S)OOmXPffI vaWf OftKf IS仝nEegjnoo Sffuom3 WrVt atfi5Z把这个按钮拖放 到工具栏的空白 地方.n .几廊 黠 MMJKTWS2. 弹出自定义宏按钮对话框:1、选择上面保存的宏文件；2、指定一个图标，以便在工具栏中显示；3、扌旨定一个扌旨示的名称，以便在工具栏中显示;工具栏佚捷方式栏 命令 菜单 as 鼠标笔势I底米旦山c自救宏按钮援作(A) 宏(M)：CUsersfive2.000DesktopSoltf 图：.1方法(日:图号分离1main