---

Hallo,

ich bin immer noch dabei einen Firmen spezifischen Bohrdialog zu gestallten und komm auch gut voran. Da ich auf meinen Beitrag zum Thema Senkung noch nicht die gewünschte Antwort bekommen habe möchte ich hier noch ein zweites Problem erfragen.
Wenn ich über unten angehängte Zeile eine Skizze beenden möchte, Stütz Inventor ab. Was mach ich falsch?

If TypeOf ThisApplication.ActiveEditObject Is Sketch Then sk.ExitEdit

Gruß Jürgen

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

---

- Inhaltsloser Beitrag -

---

Hallo Jürgen,

danke für deine Nachfrage. Wenn ich Absturz meine, dann so dass ich noch einen Bericht senden kann aber keine Fehlermeldung bekommen. Hört sich so an als ob die Zeile eigentlich funktionieren müsste.
Ich werde es nochmal testen.

Gruß Jürgen

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

---

Hallo Jürgen,

ich habe es nun nochmal getestet. Der Absturz ist nicht immer zu reproduzieren. Es passiert beim ersten mal sowie auch nach dem fünften mal. Es ist auch nicht vom Rechner abhängig.
Code:
    ' Set active part document.
    Dim oPartDoc As PartDocument
    Set oPartDoc = ThisApplication.ActiveEditDocument
   
                   
    ' Set a reference to the component definition.

    Dim oCompDef As PartComponentDefinition
    Set oCompDef = oPartDoc.ComponentDefinition
   
    ' Set a reference to the transient geometry object.
    Dim oTransGeom As TransientGeometry
    Set oTransGeom = ThisApplication.TransientGeometry
   
    ' Get the sketch
    Dim osketch As PlanarSketch
    Dim os As Long
    Dim oHoleTapInfo As HoleTapInfo
    os = oCompDef.Sketches.Count
    Set osketch = oCompDef.Sketches.Item(os)
   
    If TypeOf ThisApplication.ActiveEditObject Is Sketch Then osketch.ExitEdit

Kannst du da einen Fehler erkennen?

Gruß Jürgen

[Diese Nachricht wurde von Denk75 am 09. Dez. 2015 editiert.]

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