solidworks代号名称分离宏命令属性自定义或配置特定中.docx
- 文档编号:18311319
- 上传时间:2023-08-15
- 格式:DOCX
- 页数:13
- 大小:438.31KB
solidworks代号名称分离宏命令属性自定义或配置特定中.docx
《solidworks代号名称分离宏命令属性自定义或配置特定中.docx》由会员分享,可在线阅读,更多相关《solidworks代号名称分离宏命令属性自定义或配置特定中.docx(13页珍藏版)》请在冰点文库上搜索。
solidworks代号名称分离宏命令属性自定义或配置特定中
SolidWorks2014基于宏实现快速"图号名称"分离
1.两类代码
Ø代码1(容添加至“自定义下”)
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"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.2
认识宏编辑界面:
1、工程信息
2、编程区域
3、做一个写代码前的准备工作,把2区域的容Ctrl+A全选删除。
2.3
写代码:
复制如下代码,写到上图的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.4
保存退出。
第一部分做到这就算完成了。
下面是创建宏按钮;
END
二、创建宏按钮
1.返回Solidworks工作界面,进入自定义工具栏:
工具——自定义;
选择命令选项卡,找到宏,把新建宏按钮拖到工具栏的空白处;
2.弹出自定义宏按钮对话框:
1、选择上面保存的宏文件;
2、指定一个图标,以便在工具栏中显示;
3、指定一个指示的名称,以便在工具栏中显示;
3.点击确定,退出自定义宏按钮,完成制作。
4.4
新建零件命名规则:
代号+空格+名称
注意:
代号中不能出现空格,宏以第一个空格为分隔符。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- solidworks 代号 名称 分离 命令 属性 自定义 配置 特定