SolidWorks自动更新代号名称分离方法

chenshenhao0

摘要：本文主要是讲解在SolidWorks中，如何自动分离零件的代号跟名称的方法。大家都知道我们在设计好零件后，通常会命名该零件的名字是“代号”+“名称”的方法。例如一个传动抽会命名：SW001传动轴。然后我们在出工程图的时候通常就会想到有没有什么方便快捷的方法，能在出工程图的时候，能自动的将零件名字中的代号和名称进行分离，分别放入对应的线框中。

下面讲的就是运用宏的命令，来实现自动的分离代号和名称。之前可能网上也有一些运用宏命令的方法，但是那些方法的确能实现分离代号和名称，但是需要去手动运行宏命令，我们现在要讲的就是自动运行宏命令的方法。

         我们要创建两个宏命令，两个宏命令的作用分别是分离宏命令以及自动运行宏命令。步骤如下：

1.      打开SolidWorks，工具-宏-新建；

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

Sub main()

'link solidworks

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Set SelMgr = 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      '重点：分隔标识符，这里是一个空格

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 =Part.AddCustomInfo3("", "表面处理", swCustomInfoText, " ")

End Sub

3.      按照上面同样的步骤再次新建一个宏命令，命名为“AutoRun”；删除红色框中所有代码，并将下列代码复制进去。

Public AutoRun As 类1

Sub main()

Set AutoRun = New 类1

End Sub

4.      右键左边资源管理器，选择插入类模块，并将下列代发复制进去，保存宏；

Private WithEvents SwApp AsSldWorks.SldWorks

Private Sub Class_Initialize()

Set SwApp = Application.SldWorks

End Sub

Private Function SwApp_ActiveModelDocChangeNotify()As Long

Dim runMacroError As Long

SwApp.RunMacro2 "C:\Macros\图号分离-宏.swp", "图号分离_宏1", "main", 0, runMacroError

End Function   

5.      在C盘新建文件夹，命名Macros，将附件的两个.swp文件放到上面新建的Macros文件夹中；

6.      右键桌面选择solidworks图标
，选择属性

7.      在目标栏中接着路径输入：空格/m空格"C:\Macros\AutoRun.swp"
就是：solidworks启动程序的路径+空格+/m+空格+常驻宏的文件位置（注意一定要空格键）注：如果发现目标是灰色无法输入，需要删掉桌面的图标，然后在我的电脑中找到安装启动程序，创建快捷方式到桌面。

8.      最后我们的设定就已经成功了，当我们在新建文件的时候，保存零件需要输入:零件号+空格+零件名，这样在我们关闭零件再次打开，或者切换窗口时，软件会自动运行宏命令，自动将零件名称代号添加到属性中。

r68ser52

这个常驻宏讲解好详细，谢谢

e311016

楼主辛苦了！

vincentning

非常详细，感谢！

litao036

   经典案例图书

感谢楼主分享，很不错！

wwwerzhou

分离宏正常，但是常驻宏不生效，是我哪里做错了？

道法自然

   经典案例图书

不错的宏，给力楼主~

janson8

janson88888,非常详细，感谢！

李丶伟

楼主太有才了，膜拜中……

w_ou

SolidWorks自动更新代号名称分离方法,给力！

Luxjinc

功能强大，很实用！给力！感谢楼主分享！！！

bz1016

这个真是太方便了，以前，操作太麻烦了！

Ryu1223

方法很实用，很不错

麦饼荣

非常详细，感谢！

浪静峰平

加入QQ群
参与讨论和学习

或扫描二维码加入

明天试一下！！！楼主辛苦啦！！！

chenshenhao0

   经典案例图书

嘻嘻嘻！哪里有不懂得问我！

伊豆2015

加入QQ群
参与讨论和学习

或扫描二维码加入

SolidWorks自动更新代号名称分离方法,给力！

932841651

   经典案例图书

这个技巧很不错啊，使用起来很方便，也很能解决问题。

weisir1dds

处理后，自定义属性的步骤省略了

1TOM1

SolidWorks，简单，易学，易用。