---

Hallo

Ich versuche eine Skizze um einen bestimmten Winkel zu drehen.

Code:

---

Dim centerpt As Point2d
    Set centerpt = oTG.CreatePoint2d(0, 0)
    Call oSketch.RotateSketchObjects(oSketchObjects, centerpt, Winkel)
    objPartDocument.Update

---

Die Skizzenelemente sammle ich per

Code:

---

Dim oSketchEntity As SketchEntity
      For Each oSketchEntity In oSketch.SketchEntities
        oSketchObjects.Add oSketchEntity
      Next

---

ein. Dabei tritt das Problem auf, sobald eine projezierte Kontur, z.B. ein Mittelpunkt in der Auswahl enthalten ist, dreht sich nix mehr. Wie kann man diese projezierten Elemente aus der Auswahl draußen halten?

------------------
MfG
RK

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

---

Hmm,

scheint wohl eine schlechte Idee gewesen zu sein.
Ich versuche alternativ das Bauteil nach Referenzen zu durchsuchen und deren Link zu lösen. Das klappt soweit auch. Da ich das Ganze zum Schluß rückgängig machen möchte, dachte ich mir so, pack ich die gesamte Soße in eine Transaction und nutze anschließend "undo".
Die Transaction habe ich aus den Samples übernommen:

Code:

---

' Get the transaction manager from the application
Dim oTxnMgr as TransactionManager
Set oTxnMgr = ThisApplication.TransactionManager

' Start a regular transaction
Dim oTxn1 As Transaction
Set oTxn = oTxnMgr.StartTransaction(oDoc, "My Rectangle Command")

oTxn.End

---

Inventor scheint aber die gesamte Transaction überhaupt nicht zur Kenntnis zu nehmen. Gibt's da in VB eine Besonderheit zu beachten oder hab ich einfach nur Pech. 

------------------
MfG
RK

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

---

HAllo,

Inventor kann auf die Transaction nicht ragieren, schau mal Deinen Code:

Dim oTxn1 As Transaction
Set oTxn = oTxnMgr.StartTransaction(oDoc, "My Rectangle Command")

Also:
Dim oTxn1 ...
Set oTxn  ...

Entweder Du entscheidest Dich für oTxn oder oTxn1...

HTH

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Meine Tochter auf Youtube

CAD-WARS - muss man gesehen haben

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

---

Hallo

Keine Ahnung wie das passieren konnte, im Code bei mir heißt die Transaction oTxn1. Schade, ich hatte mich schon gefreut, daß die Lösung so simpel (wenn auch reichlich peinlich) ist.

Ah jetzt weiß ich warum. Ich hab den Originalcode aus dem Sample rauskopiert und hier eingefügt. Da stehts falsch drin.   

Hier nochmal mein Code, an dem ich so nix Falsches sehen kann.

Code:

---

Dim oTxnMgr As TransactionManager
    Set oTxnMgr = ThisApplication.TransactionManager
   
    ' Start a regular transaction
    Dim oTxn1 As Transaction
    Set oTxn1 = oTxnMgr.StartTransaction(oDoc, "Txn1")

.....

oTxn1.end

---

oDoc wurde als thisapplication.activedocument definiert.

------------------
MfG
RK

[Diese Nachricht wurde von rkauskh am 18. Jun. 2008 editiert.]

[Diese Nachricht wurde von rkauskh am 18. Jun. 2008 editiert.]

[Diese Nachricht wurde von rkauskh am 18. Jun. 2008 editiert.]

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

---

Also wenn die Transaction nicht geht, ist es schwierig herauszufinden warum, wenn nicht der komplette Code vorliegt.
Fakt ist, dass nicht alle Befehle in einer transaction berücksichtigt werden. Wird z.B. während einer Transaction ein 'Speichern' ausgeführt, ist's mit der Transaction dahin...

HTH

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Meine Tochter auf Youtube

CAD-WARS - muss man gesehen haben

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

---

Hallo

Ich konnte, dank der freundlichen Unterstützung von Herrn Schüpbach den Fehler finden.

Code:

---

Set oTxnMgr = ThisApplication.TransactionManager

---

kann nicht funktionieren, wenn man das Makro aus VB heraus startet. Ich hab's einfach geändert in

Code:

---

Set oTxnMgr = oInventorApp.TransactionManager

---

wobei oInventorApp

Code:

---

Public oInventorApp As inventor.Application

---

ist. Jetzt läuft es.   

------------------
MfG
RK

[Diese Nachricht wurde von rkauskh am 23. Jun. 2008 editiert.]

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