---

Hallo Community,
ich möchte bzw. darf mich in die CATIA-Makroprogrammierung einarbeiten. Ich schreibe gerade ein Makro was aus einem Körper ("Directions", Geom. Set) die Entformungsrichtungen lesen soll und stoße natürlich auf die ersten Probleme. Diese sollen später auswählbar sein und dann die Auszugschrägenanalyse dem entsprechend anzeigen. Allerdings hänge ich schon in Zeile 9 (AllBodies.Item). Da wird mir eine Fehlermeldung angezeigt.

Bitte keine "Komplettlösung" schreiben und auf den "veröffentlichen Code" konzentrieren, damit ich lernen kann. 

Danke für eure Hilfe schon im voraus.

Code:

---

Sub CATMain()

Dim Liste As Selection
Dim Entformkoerper As Body
Dim AllBodies As Bodies
Dim DesignWork As Body

Set Entformkoerper = CATIA.ActiveDocument.Part.Mainbody ' Mainbody zuweisen ---
Set AllBodies = CATIA.ActiveDocument.Part.Bodies
Set DesignWork = AllBodies.Item ("Directions")
Set Liste = CATIA.ActiveDocument.Selection

Liste.Clear ' Liste leeren ----------------------------------------------------
Liste.Search "Generative Shape Design.Umkehren.Name=*direction*;alle"

If Liste.Search > 0 Then
For I = 1 To Liste.Search
Set Liste = Liste.Item(I)
If Liste.GeometricType = catGeoTypeLine Then MsgBox (Liste.Name)
Next
End if

Liste.Clear ' Liste leeren ----------------------------------------------------

End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus

Willkommen im Forum.

Zu Zeile 9: Wie lautet die Fehlermeldung?
Ist es jetzt ein Körper oder ein GeoSet (Hybridbody)?
Gibt es den Körper/GeoSet?

Zu Selection (Search): am besten den Suchsting per Makroaufzeichnung bestimmen.

Per Liste.Count kannst du abfragen ob was gefunden wurde.

Bei der Schleife über die Selection: GeometricType geht IMHO nur bei Elementen in der Skizze.
Besser Typ (Liste.Item(I).Type) oder TypeName(Liste.Item(I).Value) nutzen. (oder eventuell noch GetGeometricalFeatureType)

Gruß
Bernd

PS: Wie hast du vor die Entformungsrichtung zu bestimmen?

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,
danke für die Willkommensgrüße. Ich denke. ich werde nun öfters hier auftauchen.
Ich arbeite mit dem Buch "CATIA V5 - Effiziente Konstruktion mit Makros" aus dem Hanser-Verlag. Daraus sind auch teilweise die Programmcodes. Und deswegen stimmen manche Begriffe noch nicht. Diese sind für mich aktuell noch nicht schlüssig und deswegen manchmal noch fehlerhaft.

Die Fehlermeldung lautet:
Quelle: CATBodies
Beschreibung: Das Verfahren Item ist fehlgeschlagen

Die Selection (Search) habe ich aus Bearbeiten -> Suchen übernommen.

Im GeoSet Direction (ist im Part existent) sind bei uns Linie hinterlegt, welche die Entformrichtung angeben. Im Buch werden die GeoSets auch als Körper bezeichnet (zumindest habe ich es so verstanden), deswegen habe ich es auch so genannt.

[Diese Nachricht wurde von CADestroyer am 14. Mrz. 2021 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP