文档介绍：该【solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中) 】是由【胜利的喜悦】上传分享，文档一共【9】页，该文档可以免费在线阅读，需要了解更多关于【solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中) 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
SolidWorks2014基于宏实现快速"图号名称"分离
两类代码
代码1（内容添加至“自定义下”）
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Dim a As Integer
Dim b As String
Dim m As String
Dim e As String
Dim k As String
Dim t As String
Dim c As String
Dim j As Integer
Dim strmat As String
Dim tempvalue As String
Sub main（）
’link solidworks
Set swApp =
Set Part = swApp。ActiveDoc
Set SelMgr =
swApp。 = 1
’设定变量
c = (） ’零件名
strmat = Chr（34) + Trim（”SW-Material" + ”＠"） + c + Chr（34)
blnretval = Part。DeleteCustomInfo2(””, "图样代号")
blnretval = ("”， ”图样名称")
blnretval = Part。DeleteCustomInfo2(""， "材料")
a = InStr(c， ” ”) - 1 ’重点：分隔标识符，这里是一个空格，也可用其他符号区分
If a 〉 0 Then
k = Left(c， a)
t = Left（LTrim（e）， 3）
If t = ”GBT" Then
e = "GB/T” + Mid(k， 4)
Else
e = k
End If
b = Mid（c, a + 2)
t = Right(c， 7)
If t = ”.SLDPRT” Or t = ".SLDASM” Or t = ".sldprt” Or t = "。sldasm”Then
j = Len(b） — 7 '消除后缀（区分大小写，即含4种）
Else
j = Len(b)
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
End If
m = Left(b， j)
End If
blnretval = （”", ”图样代号", swCustomInfoText, e) '代号
blnretval = (””， "图样名称”， swCustomInfoText, m） '名称
blnretval = （""， ”表面处理”, swCustomInfoText， " ”)
End Sub
代码2(内容添加至“配置特定”下）
'定义sw
Dim a As Integer
Dim b As String
Dim m As String
Dim e As String
Dim k As String
Dim t As String
Dim c As String
Dim j As Integer
Dim strmat As String
Dim tempvalue As String
Dim Part As Object
Dim swApp As SldWorks。SldWorks
Dim swModelDoc As SldWorks。ModelDoc2
Dim swConfig As
Dim CustPropMgr As
Dim swModel As SldWorks。ModelDoc2
Sub main（)
Set swApp =
Set swModelDoc = swApp。ActiveDoc
Set swConfig = 。ActiveConfiguration
Set swModel =
Set CustPropMgr = swModel。Extension。CustomPropertyManager(。Name) ’配置特定延伸
’设定变量
c = swApp。ActiveDoc。GetTitle() '零件名
strmat = Chr（34) + Trim("SW—Material” + "＠”） + c + Chr(34）
a = InStr(c, " ”) - 1 ’重点：分隔标识符，这里是一个空格，也可换成其他符号
If a > 0 Then
k = Left（c, a)
t = Left(LTrim(e）， 3）
If t = "GBT" Then
e = "GB/T” + Mid(k, 4)
Else
e = k
End If
b = Mid（c， a + 2）
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
t = Right（c， 7)
If t = ".SLDPRT” Or t = "。SLDASM” Or t = ”.sldprt" Or t = "。sldasm"Then
j = Len(b） — 7 ’消除后缀（区分大小写，即含4种)
Else
j = Len(b）
End If
m = Left（b, j）
End If
’删除栏
CustPropMgr。Delete ("图样代号"）
（"图样名称"）
（"材料”)
’新增
"图样代号”， swCustomInfoText, e
CustPropMgr。Add2 ”图样名称”, swCustomInfoText， m
"数量", swCustomInfoText, ””
CustPropMgr。Add2 ”材料”, swCustomInfoText， strmat
"单重", swCustomInfoText, "”
CustPropMgr。Add2 ”总重”， swCustomInfoText, ””
CustPropMgr。Add2 ”备注", swCustomInfoText， ”"
End Sub
特别说明：在虚拟件中添加属性时,名称会自动加上从属装配体，非虚拟件则不会(此问题急需高人指点）
操作步骤（以上述代码1为例）
一、宏代码1
新建宏代码：工具——宏—-新建
在文件名中输入:图号分离。swp ；点击保存，进入宏编辑界面;
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
2
认识宏编辑界面:
1、工程信息
2、编程区域
3、做一个写代码前的准备工作,把2区域的内容Ctrl+A 全选删除。
3
写代码：复制如下代码,写到上图的2区域;
’从这里开始复制：
'定义solidwork
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Dim a As Integer
Dim b As String
Dim m As String
Dim e As String
Dim k As String
Dim t As String
Dim c As String
Dim j As Integer
Dim strmat As String
Dim tempvalue As String
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
Sub main()
'link solidworks
Set swApp = Application。SldWorks
Set Part = swApp。ActiveDoc
Set SelMgr =
swApp。ActiveDoc。ActiveView。FrameState = 1
'设定变量
c = swApp。ActiveDoc。GetTitle（） ’零件名
strmat = Chr(34） + Trim("SW-Material" + "@”) + c + Chr（34）
blnretval = （"", "代号”）
blnretval = Part。DeleteCustomInfo2（””， "名称"）
blnretval = Part。DeleteCustomInfo2(””, ”材料”)
a = InStr（c, " ”) — 1      ’重点：分隔标识符，这里是一个空格
If a 〉 0 Then
    k = Left(c, a)
    t = Left（LTrim(e)， 3)
    If t = ”GBT" Then
        e = "GB/T" + Mid(k, 4)
    Else
        e = k
    End If
    b = Mid（c, a + 2）
    t = Right(c, 7）
    If t = ”。SLDPRT" Or t = ”.SLDASM" Then
        j = Len(b) - 7
    Else
        j = Len（b）
    End If
    m = Left(b, j）
End If
blnretval = Part。AddCustomInfo3（”"， ”代号”， swCustomInfoText， e）  '代号
blnretval = Part。AddCustomInfo3（”", "名称”, swCustomInfoText, m)  ’名称
blnretval = (”"， ”表面处理”， swCustomInfoText, " ”)
End Sub
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
4
保存退出。
第一部分做到这就算完成了。下面是创建宏按钮；
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
END
二、创建宏按钮
返回Solidworks工作界面，进入自定义工具栏:工具——自定义；
选择命令选项卡，找到宏 ，把新建宏按钮拖到工具栏的空白处；
弹出自定义宏按钮对话框：
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
1、选择上面保存的宏文件；
2、指定一个图标，以便在工具栏中显示；
3、指定一个指示的名称，以便在工具栏中显示；
点击确定，退出自定义宏按钮，完成制作.
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
(完整word版)solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
4
新建零件命名规则：
代号+空格+名称
注意：代号中不能出现空格，宏以第一个空格为分隔符。