Hallo liebe CAtia-Community,
bin Anfänger in Catia/VBA und komme mit einer Catia /VBA-Anwendung nicht weiter.Die Thematik sollte für Euch recht einfach zu lösen sein...
Beschreibung: Ein Produkt besteht aus zwei flächigen Parts. Beide Parts sind nach Anwahl der Stirn-Flächen im Sketchbereich dargestellt und dort via "Projekt 3D-Elements" als 2Dim-Bauteile, die in einer Ebene liegen, dargestellt(..danach erscheint im Baum links der neue Teilzweig "Sketch.1").
Mein Problem: Ich benötige ein VBA-Makro, dass die 2D-Koordinatenpunkte der Konturen beider Objekte automatisch ausliest. Die Kontur eines Bauteils besteht aus einer Abfolge von Elementen wie Linien und Kreisbögen. Diese müssten in Form von Punkten diskretisiert und deren Koordinaten ausgelesen werden.
Habe durch Skriptaufzeichung den allersten Teil des Codes (für ein Bauteil) generiert:
Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Item("Bauteil1.CATPart")
Dim part1 As Part
Set part1 = partDocument1.Part
Dim bodies1 As Bodies
Set bodies1 = part1.Bodies
Dim body1 As Body
Set body1 = bodies1.Item("BA206-Z00A_ZB_SCHLOSS_AKTIV_MIT_SCHALTER.1\BA206-009_ZUGHEBEL.1\PartBody")
Dim sketches1 As Sketches
Set sketches1 = body1.Sketches
Dim sketch1 As Sketch
Set sketch1 = sketches1.Item("Sketch.1")
Dim geometricElements1 As GeometricElements
Set geometricElements1 = sketch1.GeometricElements
Bitte um Vervollständigung des Programms: Ab hier sind die Elemente auszulesen und in Form von Punkten zu diskretisieren und diese dann auszugeben....
grüsse Maximilian
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP