Hallo liebes Forum, mein Ziel ist es, Freiheitsgrade von Komponenten innerhalb einer Baugruppe zu ermitteln und mittels VB in eine .txt zu schreiben. Dass es keinen direkten Weg dazu gibt, habe ich unter anderem durch Beiträge hier im Forum schon akzeptiert. Jetzt versuche ich das über andere Wege zu ermitteln.
Wenn man der Catia DMU Kinematik Umgebung einen Mechanismus zweier Zahnräder festlegt, wird dieser wie im Screenshot gezeigt im Strukturbaum direkt mit den "Freiheitsgrad = 2" angezeigt.
Habe ich eine Möglichkeit, über VB auf diese Stelle unter "Anwendungen"->"Mechanismen" im Strukturbaum zuzugreifen, und ggf. als String auszulesen?
Ich greife zb. über folgende Funktion innerhalb eines Products auf die einzelnen Parts der Baugruppe zu, und die Funktion "Write_Parameter_to_txt" wendet dann verschiedene Funktionen auf die einzelnen Parts an:
Code:
Public Shared Sub ProcessProduct_Parameters(product As Product, sw As StreamWriter, ByRef Part_Name_Count As Integer)
For Each component As AnyObject In product.Products
If component.Products.Count > 0 Then
ProcessProduct_Parameters(component, sw, Part_Name_Count)
Else
Dim part = component
WritePartParameters(part, sw, Part_Name_Count)
Part_Name_Count += 1
End If
Next
End Sub
Bin für Ratschläge oder Ideen sehr dankbar!
------------------
Joshua
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP