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

824751842

SW机械工程师网，找到组织了！

824751842

   经典图书

KEMIRWU 发表于 2019-4-28 19:02
还有一个问题，
    我在打开装配体的时候不能运算零件体，
  我需要一个个的把零件打开才能实现添加属性 ...

使用遍历宏

824751842

感谢楼主分享，很不错！

hqf52657

   经典案例图书

很不错，希望能共享模型，谢谢！

chai815

感谢分享  学习了

suwenfeng1125

   经典案例图书

感谢楼主分享，很不错！

KEMIRWU

还有一个问题，
    我在打开装配体的时候不能运算零件体，
  我需要一个个的把零件打开才能实现添加属性。
请问有无方法可以让打开装配体就做零件体的属性赋值。
谢谢！

KEMIRWU

我已经按照你的说明设置好了，非常感谢。谢谢！
  现在我试下来的时候就是，SLDDRW文档也是会做运算，我想只需要3D添加属性就好了，不要2d上加属性。

1305274007

   经典图书

这个真的很好的啊

fanfei1230

楼主实现不了啊， 我SW2015的，按教程来的，不行

KEMIRWU

SW机械工程师网，找到组织了！

fanfei1230

不能自动运行啊，手动分离可运行

liuyun0113

很不错，找到组织了！

wwwerzhou

加入QQ群
参与讨论和学习

或扫描二维码加入

用到后来，感觉常驻宏，不如弄个遍历宏来得简单

LYCZJS

   经典案例图书

SW机械工程师论坛，找到组织了！

ryouss

加入QQ群
参与讨论和学习

或扫描二维码加入

sunshine0099 发表于 2018-5-19 11:40
@chenshenhao0 我试了 但是不成功。不知道哪里出错了

把需求上傳,看看可否解決!

sunshine0099

   经典案例图书

@chenshenhao0 我试了 但是不成功。不知道哪里出错了

sunshine0099

我试了 但是不成功。不知道哪里出错了

LYCZJS

楼主辛苦了！

fan03488

新建快捷方式也是无法修改目标,还是灰色的