---

Hallo, Ich würde gern ein interaktives Makro erstellen, bei dem der Anwender über verschiedene "Userforms" noch Einstellungen vornehmen kann. Das Makro soll dann Stückchenweise je nach Eingabe ablaufen. Bei den Makros die ich bisher aufgezeichnet oder im Web gefunden hab ist es aber so, das man vom Skizziermodus garnichts mitkriegt und statt dessen am Ende nur eine mehr oder weniger fertige Skizze präsentiert kriegt. Meine Frage also: Ist es irgendwie möglich ein Makro direkt im Skizziermodus ablaufen zu lassen und zu pausieren.

Vielen Dank für eure Hilfe

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

---

Hi,

die Factory2D kann Skizzen bearbeiten.

Probiere doch mal folgendes Beispiel aus:

1. Leeres CATPart öffnen
2. Im Hauptkörper eine Skizze mit dem Namen "Sketch.1" erzeugen
3. Die Skizze durch Doppelklicken im Sketcher öffnen
4. folgendes Makro starten:

Sub CATMain()

Set Skizze = CATIA.ActiveDocument.Part.MainBody.Sketches.Item("Sketch.1")
Set F2D = Skizze.OpenEdition
Set Linie = F2D.CreateLine(0,0,100,100)
CATIA.ActiveDocument.Part.Update

End Sub

Es wird einwandfrei eine Linie erzeugt, während ich im Skizzierer bin.

Ich hoffe, das hilft weiter. Mehr dazu findest Du im Buch "Effiziente Konstruktion mit Makros", S. 86 ff. (Abschnitt "Skizzengeometrie erzeugen")

------------------
Tschüß, Dieter

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

---

Danke für deine Antwort, ist es auch irgenwie möglich das Doppelklicken auf die Skizze zu emulieren bzw. den Skizzierer vom Makro aus zu starten?

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

---

Hallo,

es gib eine Möglichkeit, in den Skizziermodus zukommen. Als erstes wird die Skizze über das Programm selektiert und dann über die StartCommand-Methode der Skizziermodus aufgerufen.

Sub CATMain()
    Dim oDoc As PartDocument
    Set oDoc = CATIA.ActiveDocument
    Dim oPart As Part
    Set oPart = oDoc.Part
    Dim oBody As Body
    Set oBody = oPart.MainBody
    Dim oSketch As Sketch
    Set oSketch = oBody.Sketches.Item(1)
    Dim oSel As Selection
    Set oSel = oDoc.Selection
    oSel.Add oSketch
    CATIA.StartCommand "Sketcher" 'In deutscher Umgebung "Skizze"
   
    '... Jetzt die Sketcher-Geometrie-Anweisungen
   
    CATIA.StartCommand "Exit Workbench" 'In deutscher Umgebung ???? (habe ich auf die Schnelle nicht gefunden)
End Sub

Gruß
Steffen

[Diese Nachricht wurde von Steffen Hohmann am 24. Jun. 2005 editiert.]

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

---

Tausend Dank, genau das was ich gesucht hab.
Super!!!

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