solidworks代号名称分离宏命令属性自定义或配置特定中.docx
《solidworks代号名称分离宏命令属性自定义或配置特定中.docx》由会员分享，可在线阅读，更多相关《solidworks代号名称分离宏命令属性自定义或配置特定中.docx（11页珍藏版）》请在冰豆网上搜索。
solidworks代号名称分离宏命令属性自定义或配置特定中
solidworks代号名称分离宏命令（属性”自定义“或”配置特定“中）
SolidWorks2014基于宏实现快速"图号名称"分离
1.两类代码
Ø代码1（内容添加至“自定义下”）
DimswAppAsObject
DimPartAsObject
DimSelMgrAsObject
DimboolstatusAsBoolean
DimlongstatusAsLong,longwarningsAsLong
DimFeatureAsObject
DimaAsInteger
DimbAsString
DimmAsString
DimeAsString
DimkAsString
DimtAsString
DimcAsString
DimjAsInteger
DimstrmatAsString
DimtempvalueAsString
Submain（）
'linksolidworks
e=k
EndIf
b=Mid（c,a+2）
t=Right（c,7）
Ift=".SLDPRT"Ort=".SLDASM"Ort=".sldprt"Ort=".sldasm"Then
j=Len（b）-7'消除后缀（区分大小写，即含4种）
Else
j=Len（b）
EndIf
m=Left（b,j）
EndIf
blnretval=Part.AddCustomInfo3（"","图样代号",swCustomInfoText,e）'代号
blnretval=Part.AddCustomInfo3（"","图样名称",swCustomInfoText,m）'名称
blnretval=Part.AddCustomInfo3（"","表面处理",swCustomInfoText,""）
EndSub
Ø代码2（内容添加至“配置特定”下）
'定义sw
DimaAsInteger
DimbAsString
DimmAsString
DimeAsString
DimkAsString
DimtAsString
DimcAsString
DimjAsInteger
DimstrmatAsString
DimtempvalueAsString
DimPartAsObject
DimswAppAsSldWorks.SldWorks
DimswModelDocAsSldWorks.ModelDoc2
DimswConfigAsSldWorks.Configuration
DimCustPropMgrAsSldWorks.CustomPropertyManager
DimswModelAsSldWorks.ModelDoc2
Submain（）
SetswApp=Application.SldWorks
SetswModelDoc=swApp.ActiveDoc
SetswConfig=swModelDoc.ConfigurationManager.ActiveConfiguration
SetswModel=swApp.ActiveDoc
SetCustPropMgr=swModel.Extension.CustomPropertyManager（swModel.ConfigurationManager.ActiveConfiguration.Name）'配置特定延伸
'设定变量
c=swApp.ActiveDoc.GetTitle（）'零件名
strmat=Chr（34）+Trim（"SW-Material"+"@"）+c+Chr（34）
a=InStr（c,""）-1'重点：
分隔标识符，这里是一个空格，也可换成其他符号
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"Ort=".sldprt"Ort=".sldasm"Then
j=Len（b）-7'消除后缀（区分大小写，即含4种）
Else
j=Len（b）
EndIf
m=Left（b,j）
EndIf
'删除栏
CustPropMgr.Delete（"图样代号"）
CustPropMgr.Delete（"图样名称"）
CustPropMgr.Delete（"材料"）
'新增
CustPropMgr.Add2"图样代号",swCustomInfoText,e
CustPropMgr.Add2"图样名称",swCustomInfoText,m
CustPropMgr.Add2"数量",swCustomInfoText,""
CustPropMgr.Add2"材料",swCustomInfoText,strmat
CustPropMgr.Add2"单重",swCustomInfoText,""
CustPropMgr.Add2"总重",swCustomInfoText,""
CustPropMgr.Add2"备注",swCustomInfoText,""
EndSub
特别说明：
在虚拟件中添加属性时，名称会自动加上从属装配体，非虚拟件则不会（此问题急需高人指点）
2.操作步骤（以上述代码1为例）
一、宏代码1
新建宏代码：
工具——宏——新建
在文件名中输入：
图号分离.swp；点击保存，进入宏编辑界面；
1.
认识宏编辑界面：
1、工程信息
2、编程区域
3、做一个写代码前的准备工作，把2区域的内容Ctrl+A全选删除。
2.
写代码：
复制如下代码，写到上图的2区域；
'从这里开始复制:
'定义solidwork
DimswAppAsObject
DimPartAsObject
DimSelMgrAsObject
DimboolstatusAsBoolean
DimlongstatusAsLong,longwarningsAsLong
DimFeatureAsObject
DimaAsInteger
DimbAsString
DimmAsString
DimeAsString
DimkAsString
DimtAsString
DimcAsString
DimjAsInteger
DimstrmatAsString
DimtempvalueAsString
Submain（）
'linksolidworks
SetswApp=Application.SldWorks
SetPart=swApp.ActiveDoc
SetSelMgr=Part.SelectionManager
swApp.ActiveDoc.ActiveView.FrameState=1
'设定变量
c=swApp.ActiveDoc.GetTitle（）'零件名
strmat=Chr（34）+Trim（"SW-Material"+"@"）+c+Chr（34）
blnretval=Part.DeleteCustomInfo2（"","代号"）
blnretval=Part.DeleteCustomInfo2（"","名称"）
blnretval=Part.DeleteCustomInfo2（"","材料"）
a=InStr（c,""）-1 '重点：
分隔标识符，这里是一个空格
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）
EndIf
blnretval=Part.AddCustomInfo3（"","代号",swCustomInfoText,e） '代号
blnretval=Part.AddCustomInfo3（"","名称",swCustomInfoText,m） '名称
blnretval=Part.AddCustomInfo3（"","表面处理",swCustomInfoText,""）
EndSub
3.
保存退出。
第一部分做到这就算完成了。
下面是创建宏按钮；
END
二、创建宏按钮
1.返回Solidworks工作界面，进入自定义工具栏：
工具——自定义；
选择命令选项卡，找到宏，把新建宏按钮拖到工具栏的空白处；
2.弹出自定义宏按钮对话框：
1、选择上面保存的宏文件；
2、指定一个图标，以便在工具栏中显示；
3、指定一个指示的名称，以便在工具栏中显示；
3.点击确定，退出自定义宏按钮，完成制作。
4.
新建零件命名规则：
代号+空格+名称
注意：
代号中不能出现空格，宏以第一个空格为分隔符。
升级会员 