Hallo
Schließlich füge ich Bedingungen zum Umbenennen von Teilen hinzu, die auf einer Konfigurationseigenschaft basieren, die von SWOOD erstellt wird.
Ich habe ein Makro skizziert, aber ich habe Schwierigkeiten, richtig zu verstehen, wie der Dialog mit SolidWorks funktioniert.
Ich schaffe es, all die verschiedenen Kinder zu bekommen, die meine Gemeinde hat.
Jetzt möchte ich erfolgreich verifizieren, dass eine Eigenschaft schön ist und in jedem von ihnen existiert, wenn ja, benenne ich sie um, wenn nicht, gehe ich zur nächsten über.
Kannst du mir helfen? Ich poste den Anfang meines Codes.
Vielen Dank im Voraus, einen schönen Tag.
Dimmen swApp als Objekt
Explizite Option
Sub main()
Dim swApp als SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim swAssy As ModelDoc2
Dim swModelDocExt als ModelDocExtension
Dim swCustProp As CustomPropertyManager
Dim val As String
Dim valout As String
Dim bool als boolescher Wert
Dim Wood As String
dim name() als String
Dim-Liste als Zeichenfolge
Dim retval() als Zeichenkette
Text als Zeichenfolge dimmen
Legen Sie swApp = Application.SldWorks fest
Festlegen von swModel = swApp.ActiveDoc
Legen Sie swModelDocExt = swModel.Extension fest
Wenn swModel.GetType = swDocASSEMBLY dann
retval = swModel.GetDependencies2(Falsch, Falsch, Falsch)
ReDim-Name(1 TB ((UBound(retval) - 1) / 2) + 1)
Für i = 0 TB (UBound(retval) - 1) / 2
Legen Sie swModelDocExt = swModel.Extension fest
Set swCustProp = swModelDocExt.CustomPropertyManager("")
bool = swCustProp.Get4("SWOODCP_PanelStockLength", True, val, valout)
Debug.Print "Wert: " & Wert
Debug.Print "Ausgewerteter Wert: " & Valout
Debug.Print "Aktuelle Daten: " & bool
text = text & retval(2 * i) & vbCr
Weiter i
Ende, wenn
MsgBox (Text)
Ende Sub