---

Hallo

gibt es in VBA einen Befehl oder -kombination, um eine aktive Skizze zu beenden?

ich habe ein Programm, welches ein Klötzchen durch Eingabe von Länge, Breite und Höhe erzeugt. Wenn ich die Skizze benutze, welche aktiv ist, wenn ein neues Document (Norm.ipt) erstellt wird, bleibt die Skizze aktiv, obwohl der Body erstellt wurde. Ich muss dann im Dokumentenfenster mit der rechten Maustaste, die Skizze beenden. Das muss doch auch in VBA gehen? oder nicht?

Gruss aus dem regnerischen Affoltern

Mike

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

---

Hallo Mike,

ist das nicht "exitedit"

siehe Beispiel

Public Sub AddSketch()
    ' Set a reference to the part component definition.
    ' This assumes that a part document is active.
    Dim oCompDef As PartComponentDefinition
    Set oCompDef = ThisApplication.ActiveDocument.ComponentDefinition
   
    ' Get the first face of the model.  This sample assumes a simple
    ' model where at least the first face is a plane.  (A box is a good
    ' test case.)
    Dim oFace As Face
    Set oFace = oCompDef.SurfaceBodies.Item(1).Faces.Item(1)
   
    ' Create a new sketch.  The second argument specifies to include
    ' the edges of the face in the sketch.
    Dim oSketch As PlanarSketch
    Set oSketch = oCompDef.Sketches.Add(oFace, True)
   
    ' Change the name.
    oSketch.Name = "My New Sketch"
    oSketch.Edit
    MsgBox ("123")
    oSketch.ExitEdit
   
End Sub

------------------
Gruß Jörn

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

---

Hallo Jörn

besten Dank für Deinen Tip. Mit Sketch.Exitedit funktioniert es natürlich. Mann oder Frau muss es nur richtig anwenden.

Gruss

Mike

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