SolidWorks專門論壇 SolidWorks forum

 找回密碼
 註冊
查看: 1177|回復: 1

批量添加图号的另类方法(待完善)

[複製鏈接]
發表於 2020/7/3 13:12:44 | 顯示全部樓層 |閱讀模式



各位前辈,请帮忙指正一下,小弟对代码一无所知,不知道该如何修改。谢谢。



Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim vComps As Variant
Dim swComp As SldWorks.Component2
Dim swAssy As SldWorks.AssemblyDoc
Dim i As Integer
Dim wo_num As String
Dim counter As Integer
  
Sub main()
counter = 1
  
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
  
wo_num = InputBox("填写总装图号")
   
updateProperty swModel, wo_num
   
If swModel.GetType = swDocASSEMBLY Then
    Set swAssy = swModel
    vComps = swAssy.GetComponents(False)
    For i = 0 To UBound( vComps)
        Set swComp = vComps(i)
        If swComp.GetSuppression = swComponentFullyResolved Then
            Set swModel = swComp.GetModelDoc2
                If counter <= 9 Then
                    updateProperty swModel, wo_num & "00" & counter
                ElseIf counter >= 9 Then
                    updateProperty swModel, wo_num & "0" & counter
                End If
        Else
            MsgBox "零件轻化或被压缩"
        End If
          counter = counter + 1
    Next i
End If
End Sub
   
Function updateProperty(swModel As SldWorks.ModelDoc2, mValue As String) As Boolean
Dim cpm As CustomPropertyManager
Set cpm = swModel.Extension.CustomPropertyManager("")
cpm.Add3 "Part Number", swCustomInfoText, mValue, 1
End Function

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有賬號?註冊

x
發表於 2020/12/16 20:29:03 | 顯示全部樓層
额,这样图号怎么防止重复呢,直接存成文件名用分离程序不好么。
您需要登錄後才可以回帖 登錄 | 註冊

本版積分規則

論壇統計|手機版上論壇|論壇來自幾何科技 論壇架構版次 20240312

GMT+8, 2024/3/29 10:03 , Processed in 0.114486 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2023 Discuz! Team.

快速回復 返回頂部 返回列表