| |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für CATIA & Co. |
| |
 | KISTERS 3DViewStation: 3D-Visualisierung für After Sales, Service und Ersatzteile, eine Pressemitteilung
|
Autor
|
Thema: Parts einer starren Vebindung auslesen (700 mal gelesen)
|
cscp Mitglied

 Beiträge: 48 Registriert: 10.05.2013 Win 10, CATIA V5R20
|
erstellt am: 24. Mai. 2013 13:53 <-- editieren / zitieren --> Unities abgeben:         
Hi, weiß auch jemand von Euch wie ich die Parts einer starren Verbindung auslesen kann? Leider wird die entsprechende Bedingung / Constraint nicht unter den CATIA Constraints, also Connections("CATIAConstraints") aufgeführt. Weiß jemand wie das sonst noch gehen könnte? Besten Dank Euch im Voraus! Liebe Grüße Chris Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
       
 Beiträge: 12054 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 24. Mai. 2013 15:06 <-- editieren / zitieren --> Unities abgeben:          Nur für cscp
Servus Was verstehst du unter "starrer Verbindung" (vielleicht stehe ich gerade auf dem Schlauch)? ggf mal einen Screenshot posten Liefert die Objektauflösung etwas zu dem Element zurück? Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cscp Mitglied

 Beiträge: 48 Registriert: 10.05.2013 Win 10, CATIA V5R20
|
erstellt am: 24. Mai. 2013 15:09 <-- editieren / zitieren --> Unities abgeben:         
|
bgrittmann Moderator Konstrukteur
       
 Beiträge: 12054 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 24. Mai. 2013 16:27 <-- editieren / zitieren --> Unities abgeben:          Nur für cscp
Servus Entweder musst über die Kinematic Workbench auf die Joints zugreifen und den Typ überprüfen: Code:
Sub CATMain()Dim oMechanisms As Mechanisms Dim oRootProduct As Product Dim oJoints As Joints Dim oJoint As Joint Set oRootProduct = CATIA.ActiveDocument.Product Set oMechanisms = oRootProduct.GetTechnologicalObject("Mechanisms") Set oJoints = oMechanisms.Item(1).Joints Set oJoint = oJoints.Item(1) MsgBox oJoint.Type End Sub
oder auf die Fixtogeters direkt (in den Constrains):Code: Sub CATMain()Dim productDocument1 As ProductDocument Set productDocument1 = CATIA.ActiveDocument Dim product1 As Product Set product1 = productDocument1.Product Dim fixTogethers1 As FixTogethers Set fixTogethers1 = product1.Connections("CATIAFixTogethers") Dim fixTogether1 As FixTogether Set fixTogether1 = fixTogethers1.Item(1) End Sub
Gruß Bernd------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cscp Mitglied

 Beiträge: 48 Registriert: 10.05.2013 Win 10, CATIA V5R20
|
erstellt am: 24. Mai. 2013 16:32 <-- editieren / zitieren --> Unities abgeben:         
|