Witam
Na koniec dodaję warunki do zmiany nazw części na podstawie właściwości konfiguracyjnej tworzonej przez SWOOD.
Naszkicowałem makro, ale mam problem z poprawnym zrozumieniem, jak działa dialog z solidworks.
Udaje mi się zdobyć wszystkie dzieci, które ma mój zespół.
Teraz chciałbym odnieść sukces w sprawdzeniu, czy dana nieruchomość jest piękna i istnieje w każdym z nich, jeśli tak, zmieniam jej nazwę, jeśli nie, przechodzę do następnej.
Czy możesz mi pomóc? Zamieszczam początek mojego kodu.
Z góry dziękuję, miłego dnia.
Dim swApp As Object
Opcja jawna
Sub main()
Dim swApp jako SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim swAssy jako ModelDoc2
Dim swModelDocExt As ModelDocExtension
Dim swCustProp As CustomPropertyManager
Dim val As String
Dim valout As String
Dim bool As wartość logiczna
Przyciemnij drewno jako sznurek
Dim name() jako ciąg
Przyciemnij listę jako ciąg
Dim retval() As String
Przyciemnij tekst jako ciąg
Ustaw swApp = Application.SldWorks
Ustaw swModel = swApp.ActiveDoc
Ustaw swModelDocExt = swModel.Extension
Jeśli swModel.GetType = swDocASSEMBLY Następnie
retval = swModel.GetDependencies2(Fałsz, Fałsz, Fałsz)
Nazwa ReDim(1 TB ((UBound(retval) - 1) / 2) + 1)
Dla i = 0 TB (UBound(retval) - 1) / 2
Ustaw swModelDocExt = swModel.Extension
Ustaw swCustProp = swModelDocExt.CustomPropertyManager("")
bool = swCustProp.Get4("SWOODCP_PanelStockLength", True, val, valout)
Debug.Print "Wartość: " & val
Debug.Print "Obliczona wartość: " & valout
Debug.Print "Aktualne dane: " & bool
text = tekst & retval(2 * i) & vbCr
Dalej i
Zakończ jeżeli:
MsgBox (tekst)
Koniec subwoofera