當我們創建好一個Solidworks 零件以后，為了更快速把零件的“圖號和名稱”分別填入自定義屬性中，以方便出工程圖時調用到標題欄中。用solidworks宏編寫整理這篇說明，現實把”CTJ300-03-10 連桿座“ 分離出"CTJ300-03-10"和"連桿座"，以供參考。

一、宏代碼

1、新建宏代碼：工具——宏——新建

在文件名中輸入：圖號分離.swp ；點擊保存，進入宏編輯界面；

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

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

4、保存退出。第一部分做到這就算完成了。下面是創建宏按鈕；

二、創建宏按鈕

1、返回Solidworks工作界面，進入自定義工具欄：工具——自定義；象牙白澤，擇命令選項卡，找到宏 ，把新建宏按鈕拖到工具欄的空白處；

2、彈出自定義宏按鈕對話框：

1）選擇上面保存的宏文件；

2）指定一個圖標，以便在工具欄中顯示；

3）指定一個指示的名稱，以便在工具欄中顯示；

3、點擊確定，退出自定義宏按鈕，完成制作。

4、新建零件命名規則：代號+空格+名稱

注意事項：

代號中不能出現空格，宏以第一個空格為分隔符。

相關推薦：

solidworks怎么給工程圖中的鈑金折彎線注釋?

solidworks將工程圖轉PDF時出現字體亂碼該怎么辦?

solidworks三維圖怎么轉二維圖? 三維圖導CAD二維圖的教程