---

Hallo allerseits,
seit einigen Tagen mache ich meine ersten Schritte mit CATSkript. Bei meinem Versuch einen einfachen Kreis zu zeichnen, habe ich beim Öffnen der Toolbox Probleme. Der Compiler erkennt die Anweisung "OpenEdition" nicht. Ich hab schon einige Beispielquellcodes etc durchlaufen lassen, doch nichts funktioniert.
Hier die Unterroutine:

Sub Konstruktion ()
Dim Bauteil
'Dim Dokument
'Set Dokument = CATIA.Documents.Add ("Part")
Set Bauteil = Dokument.Part

Dim Skizzen
Set Skizzen = Bauteil.MainBody.Sketches

Dim UrsprungsElemente, Ebene
Set UrsprungsElemente = Bauteil.OriginElements
Set Ebene = UrsprungsElemente.PlaneYZ

Dim Factory2D
Set Factory2D = Skizzen.OpenEdition
Dim Kreis
Set Kreis = Factory2D.CreateClosedCircle (X, Y, R)

Skizze.CloseEdition
Bauteil.Update

End Sub

Desweiteren versteh ich nicht, warum laut Compiler beim Deklarieren einer Variablen etc. nach der Variablen das Zeilenende erwartet wird, ohne der Zuordnung zu einer Klasse (z.B.: DIM Kreis As Factory2D)

Auch wenn es eine simple Frage zu sein scheint, schon mal Danke für Vorschläge.

big bob

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

---

Hallo!
Du hast vergessen, Skizzen erzeugen.

Code:

---

Sub Konstruktion()
Dim Bauteil
Dim Dokument
Set Dokument = CATIA.Documents.Add("Part")
Set Bauteil = Dokument.Part

Dim Skizzen
Set Skizzen = Bauteil.MainBody.Sketches

Set UrsprungsElemente = Bauteil.OriginElements
Set Ebene = UrsprungsElemente.PlaneYZ

Set Skizze = Skizzen.Add(Ebene)'Skizze erzeugen.

Set Factory2D = Skizze.OpenEdition
Dim Kreis
Set Kreis = Factory2D.CreateClosedCircle(X, Y, r)

Skizze.CloseEdition
Bauteil.Update

End Sub

---

------------------
Mit freundlichen Grüßen,
JuPaV

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

---

vermutlich wäre das später noch ein Problem geworden, aber nach wie vor zeigt er den Laufzeitfehler an, indem er die Methode oder Eigenschaft "OpenEdition" nicht unterstützt.

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