---

Hallo zusammen,

möchte ein Makro erzeugen, das mir eine Skizze auf eine bestimmte Ebene legt, welche der Anwender während dem Makroablauf auswählen kann.
Eine Skizze z. B. auf der XY-Ebene zu erzeugen ist kein Problem, es soll aber jedesmal eine beliebige Ebene ausgewählt werden können.
Ist dies überhaupt möglich?

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

---

Hallo Markus Pauly,

na klar ist das möglich!
Erzeuge doch einfach mal eine Ebene (plane) und darauf eine Skizze. Dann definierst Du die Skizze als Powercopy und schon ist Deine Ebene ein Eingabe-Element (input). Wenn du dieses Part nun abspeicherst und es als Powercopy in einem anderen Part verwendest, wirst Du nach einer Ebene gefragt, wobei du hier nun jede beliebige Ebene wählen kannst, also auch XY-Ebene und ebene Flächen von Körpern.

mfg,
Lusilnie

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

---

Hallo Lusilnie,

über einen Powercopy ist es natürlich möglich. Ich muss die Ebeneauswahl aber in ein Makro einbinden. Habe mir ein Makro erstellt, welches in ein Product ein Part einfügt, einige Parameter setzt, Eine Skizze mit einem Rechteckprofil erzeugt (hier soll die Ebenenauswahl kommen) und einen Block zieht.

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

---

Hallo Markus Pauly,

[Edit]-> Hatte die Anrede vergessen >> soviel Zeit muß sein![/Edit]

sorry, da hatte ich mich wohl verlesen.
Aber die Antwort bleibt die gleiche: Na klar geht das! Zum Beispiel wie folgt (mußt Du wahrscheinlich in Deinem Script dann noch anpassen):

Code:

---

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim selection1 As selection
Set selection1 = CATIA.ActiveDocument.selection

Dim sFilter(0)
sFilter(0) = "Plane"

selection1.Clear
sel = selection1.SelectElement(sFilter, "Ebene waehlen", True)

Dim reference1 As reference
Set reference1 = part1.CreateReferenceFromObject(selection1.Item(1).Value)

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("PartBody")

Dim sketches1 As Sketches
Set sketches1 = body1.Sketches

Dim sketch1 As Sketch
Set sketch1 = sketches1.Add(reference1)

part1.InWorkObject = sketch1

part1.Update

End Sub

---

Noch ein Hinweis: Wenn Du das Ganze unter VBA programmierst, mußt die die Zeile "Dim selection1 As selection" wahrscheinlich auskommentieren, sonst tut sich VBA damit schwer!

mfg,
Lusilnie

[Diese Nachricht wurde von Lusilnie am 01. Mai. 2006 editiert.]

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

---

Hallo Lusilnie,

vielen Dank für deine schnelle Antwort. Werde das Makro morgen gleich mal ausprobieren. Versuche momentan mir die Programmierung selbst ein wenig beizubringen. Kannst du vielleicht einen Kurs empfehlen? Habe mir das Buch "Effiziente Konstruktion mit Makros" besorgt. Steige aber im moment noch nicht so durch.

Nochmals vielen Dank
Gruß

Markus

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

---

Hallo Markus Pauly,

tut mir leid, aber ich kann Dir leider keinen Kurs empfehlen. Ich arbeite derzeit nur mit den Ideen vom Forum, der "Hilfe" von "Click and Error" im VBA und der Hilfe im VBA-Editor sowie der Unterstützung durch meinen Chef in grundsätzlichen Fragen der Programmierung. Aber wie gesagt, viele Dinge ergeben sich in Kombination aus dem hier Geschriebenen und den eigenen Tests im VBA-Editor von CATIA unter Windows. Ich muß zwar das Eine oder Andere nachher noch für die Nutzung als CATScript unter AIX und Windows anpassen, doch entwickele ich derzeit (leider) unter Windows, da der VBA-Editor doch eine sehr große Hilfe ist.

mfg,
Lusilnie

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

---

Fehlermeldung.png

Hallo,

kann mir bitte jemand erklären, weshalb folgender Code nicht läuft - siehe Anhang.

Beziehungsweise - was muss ich ändern?

Danke und Gruß
Martin

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

---

Hallo nochmal,

es läuft mit:

Dim sFilter(0)
sFilter(0) = "PlanarFace"

Dim status As String
status = selection1.SelectElement2(sFilter, "Bitte die Ebene auswählen.", False)

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