SolidWorks代号名称分离宏程序，轻松实现SolidWorks文件图号和名称的自动分离填充

您所在的位置：网站首页 › 自动生成宏程序代码 › SolidWorks代号名称分离宏程序，轻松实现SolidWorks文件图号和名称的自动分离填充

SolidWorks代号名称分离宏程序，轻松实现SolidWorks文件图号和名称的自动分离填充

#SolidWorks代号名称分离宏程序，轻松实现SolidWorks文件图号和名称的自动分离填充| 来源: 网络整理| 查看: 265

SolidWorks代号名称分离宏程序，轻松实现SolidWorks文件图号和名称的自动分离填充溪风博客 2021-04-17 23952 抢沙发默认 3d打印服务商

摘要：今天有学员问溪风SolidWorks命名文件的时候是代号加名称的方法保存的图纸，然后能不能自动将代号和名称自动填充到零件或装配体属性里面，其实这个是可以的，溪风在之前也见过有的工程...

今天有学员问溪风SolidWorks命名文件的时候是代号加名称的方法保存的图纸，然后能不能自动将代号和名称自动填充到零件或装配体属性里面，其实这个是可以的，溪风在之前也见过有的工程师这么对文件起名字。比如下面SolidWorks图纸的命名规格：代号空格名称。如下图所示：

SolidWorks代号名称分离宏程序，轻松实现SolidWorks文件图号和名称的自动分离填充 SolidWorks插件 solidworks宏第1张

通过对SolidWorks图纸进行有规则的命名，比如【代号+空格+名称】这样的规则，对零件或者装配体进行保存。那么如何才能实现SolidWorks文档属性跟着自动填充呢？

SolidWorks代号名称分离宏程序，轻松实现SolidWorks文件图号和名称的自动分离填充 SolidWorks插件 solidworks宏第2张

今天溪风就给大家分享SolidWorks代号名称分离宏的制作和使用方法。

SolidWorks代号名称分离宏的制作

SolidWorks代号名称分离宏代码如下：

'定义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

使用方法：

1、打开SolidWorks，工具-新建宏

SolidWorks代号名称分离宏程序，轻松实现SolidWorks文件图号和名称的自动分离填充 SolidWorks插件 solidworks宏第3张