Solidworks宏：自动分离名称和图号

  ' ;;--------------------------------------------------------------;;
   ' ;; Author: bati8888, Copyright  2023 - cad555.com               ;;
   ' ;;--------------------------------------------------------------;;
   ' ;; Version 1.0.0    -    2023-03-06                             ;;
   ' ;;--------------------------------------------------------------;;
Sub main()
    Const delimiter As String = "_"
    Const codeTitle As String = "代号"
    Const nameTitle As String = "名称"
    
    Dim swApp As Object
    Dim Part As Object
    
    Dim titleTemp As String
    Dim arrayTemp() As String
    Dim strTemp As String
    Dim arrayCount As Integer
    Dim boolTemp As Boolean
    
    Dim code As String
    Dim name As String
    
    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    
    titleTemp = swApp.ActiveDoc.GetTitle()
    arrayTemp = Split(titleTemp, ".")
    strTemp = arrayTemp(0)
    arrayTemp = Split(strTemp, delimiter)
    arrayCount = UBound(arrayTemp)
    If arrayCount > 0 Then
         name = arrayTemp(1)
         code = arrayTemp(0)
         boolTemp = Part.DeleteCustomInfo2("", codeTitle)
         boolTemp = Part.DeleteCustomInfo2("", nameTitle)
         boolTemp = Part.AddCustomInfo3("", codeTitle, swCustomInfoText, code)
         boolTemp = Part.AddCustomInfo3("", nameTitle, swCustomInfoText, name)
    End If
End Sub

Tags： 图号  Solidworks  

转载：感谢您对垃圾吧网站平台的认可，以及对我们原创作品以及文章的青睐，非常欢迎各位朋友分享到个人站长或者朋友圈，但转载请说明文章出处“垃圾吧”。http://www.lj8.net/d/bcjc/296.shtml

很赞哦！ ()