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

SolidWorks2014基于宏实现快速"图号名称"分离1.两类代码代码1（内容添加至“自定义下”）DimswAppAsObjectDimPartAsObjectDimSelMgrAsObjectDimboolstatusAsBooleanDimlongstatusAsLong,longwarningsAsLongDimFeatureAsObjectDimaAsIntegerDimbAsStringDimmAsStringDimeAsStringDimkAsStringDimtAsStringDimcAsStringDimjAsIntegerDimstrmatAsStringDimtempvalueAsStringSubmain()'linksolidworksSetswApp=Application.SldWorksSetPart=swApp.ActiveDocSetSelMgr=Part.SelectionManagerswApp.ActiveDoc.ActiveView.FrameState=1'设定变量c=swApp.ActiveDoc.GetTitle()'零件名strmat=Chr(34)Trim("SW-Material""@")cChr(34)blnretval=Part.DeleteCustomInfo2("","图样代号")blnretval=Part.DeleteCustomInfo2("","图样名称")blnretval=Part.DeleteCustomInfo2(""," 材料 关于××同志的政审材料调查表环保先进个人材料国家普通话测试材料农民专业合作社注销四查四问剖析材料 ")a=InStr(c,"")-1   '重点：分隔标识符，这里是一个空格,也可用其他符号区分Ifa>0Thenk=Left(c,a)t=Left(LTrim(e),3)Ift="GBT"Thene="GB/T"Mid(k,4)Elsee=kEndIfb=Mid(c,a2)t=Right(c,7)Ift=".SLDPRT"Ort=".SLDASM"Ort=".sldprt"Ort=".sldasm"Thenj=Len(b)-7'消除后缀（区分大小写，即含4种）Elsej=Len(b)EndIfm=Left(b,j)EndIfblnretval=Part.AddCustomInfo3("","图样代号",swCustomInfoText,e) '代号blnretval=Part.AddCustomInfo3("","图样名称",swCustomInfoText,m) '名称blnretval=Part.AddCustomInfo3(""," 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 面处理",swCustomInfoText,"")EndSub代码2（内容添加至“配置特定”下）'定义swDima         AsIntegerDimb         AsStringDimm         AsStringDime         AsStringDimk         AsStringDimt         AsStringDimc         AsStringDimj         AsIntegerDimstrmat      AsStringDimtempvalue     AsStringDimPart       AsObjectDimswApp       AsSldWorks.SldWorksDimswModelDoc    AsSldWorks.ModelDoc2DimswConfig     AsSldWorks.ConfigurationDimCustPropMgr    AsSldWorks.CustomPropertyManagerDimswModel      AsSldWorks.ModelDoc2Submain()SetswApp=Application.SldWorksSetswModelDoc=swApp.ActiveDocSetswConfig=swModelDoc.ConfigurationManager.ActiveConfigurationSetswModel=swApp.ActiveDocSetCustPropMgr=swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguration.Name)'配置特定延伸'设定变量c=swApp.ActiveDoc.GetTitle()'零件名strmat=Chr(34)Trim("SW-Material""@")cChr(34)a=InStr(c,"")-1   '重点：分隔标识符，这里是一个空格，也可换成其他符号Ifa>0Thenk=Left(c,a)t=Left(LTrim(e),3)Ift="GBT"Thene="GB/T"Mid(k,4)Elsee=kEndIfb=Mid(c,a2)t=Right(c,7)Ift=".SLDPRT"Ort=".SLDASM"Ort=".sldprt"Ort=".sldasm"Thenj=Len(b)-7'消除后缀（区分大小写，即含4种）Elsej=Len(b)EndIfm=Left(b,j)EndIf'删除栏CustPropMgr.Delete("图样代号")CustPropMgr.Delete("图样名称")CustPropMgr.Delete("材料")'新增CustPropMgr.Add2"图样代号",swCustomInfoText,eCustPropMgr.Add2"图样名称",swCustomInfoText,mCustPropMgr.Add2"数量",swCustomInfoText,""CustPropMgr.Add2"材料",swCustomInfoText,strmatCustPropMgr.Add2"单重",swCustomInfoText,""CustPropMgr.Add2"总重",swCustomInfoText,""CustPropMgr.Add2"备注",swCustomInfoText,""EndSub特别说明：在虚拟件中添加属性时，名称会自动加上从属装配体，非虚拟件则不会（此问题急需高人指点）2.操作步骤（以上述代码1为例）一、宏代码1新建宏代码：工具——宏——新建在文件名中输入：图号分离.swp；点击保存，进入宏编辑界面；1.2认识宏编辑界面：1、 工程 路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理 信息2、编程区域3、做一个写代码前的准备工作，把2区域的内容CtrlA全选删除。2.3写代码：复制如下代码，写到上图的2区域；'从这里开始复制:'定义solidworkDimswAppAsObjectDimPartAsObjectDimSelMgrAsObjectDimboolstatusAsBooleanDimlongstatusAsLong,longwarningsAsLongDimFeatureAsObjectDimaAsIntegerDimbAsStringDimmAsStringDimeAsStringDimkAsStringDimtAsStringDimcAsStringDimjAsIntegerDimstrmatAsStringDimtempvalueAsStringSubmain()'linksolidworksSetswApp=Application.SldWorksSetPart=swApp.ActiveDocSetSelMgr=Part.SelectionManagerswApp.ActiveDoc.ActiveView.FrameState=1'设定变量c=swApp.ActiveDoc.GetTitle()'零件名strmat=Chr(34)Trim("SW-Material""@")cChr(34)blnretval=Part.DeleteCustomInfo2("","代号")blnretval=Part.DeleteCustomInfo2("","名称")blnretval=Part.DeleteCustomInfo2("","材料")a=InStr(c,"")-1   '重点：分隔标识符，这里是一个空格Ifa>0Thenk=Left(c,a)t=Left(LTrim(e),3)Ift="GBT"Thene="GB/T"Mid(k,4)Elsee=kEndIfb=Mid(c,a2)t=Right(c,7)Ift=".SLDPRT"Ort=".SLDASM"Thenj=Len(b)-7Elsej=Len(b)EndIfm=Left(b,j)EndIfblnretval=Part.AddCustomInfo3("","代号",swCustomInfoText,e) '代号blnretval=Part.AddCustomInfo3("","名称",swCustomInfoText,m) '名称blnretval=Part.AddCustomInfo3("","表面处理",swCustomInfoText,"")EndSub3.4保存退出。第一部分做到这就算完成了。下面是创建宏按钮；END二、创建宏按钮1.返回Solidworks工作界面，进入自定义工具栏：工具——自定义；选择命令选项卡，找到宏，把新建宏按钮拖到工具栏的空白处；2.弹出自定义宏按钮对话框：1、选择上面保存的宏文件；2、指定一个图标，以便在工具栏中显示；3、指定一个指示的名称，以便在工具栏中显示；3.点击确定，退出自定义宏按钮，完成制作。4.4新建零件命名 规则 编码规则下载淘宝规则下载天猫规则下载麻将竞赛规则pdf麻将竞赛规则pdf ：代号空格名称注意：代号中不能出现空格，宏以第一个空格为分隔符。