---

Skizze1.jpg Skizze2.jpg Skizze3.jpg

Hallo,
möchte mir die Arbeit etwas erleichtern und lästige Arbeiten automatisieren.
Mein erstes Problem steht schon an.
Ich finde die momentan aktive Skizze in einer idw nicht.

Gibt es da überhaupt eine Möglichkeit?

Ist mein Vorhaben mit VBA zu lösen?
In welcher Inventor-Version?

Punkt 1 + 2 + 5 werden manuell gemacht
Punkt 3 + 4 sollten wenn möglich automatisch ablaufen

1. Skizze auf Ansicht ist aktiv

2. Linien und Kreis projizieren

3. Parallele Linien zu den projizierten Linien zeichnen und mit Abhängigkeit
  Koinzident zum Zentrum des projizierten Kreises versehen.

4. Layer der gezeichneten Linien ändern

5. Skizze beenden

Zur Zeit arbeite ich in IV11

------------------

          Gruß
          Hans-Peter    

  

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

---

Hallo

Ich verstehe leider nicht ganz wo du hin willst. Was bezwecken die erzeugten Linien denn am Ende? Ich frag nur, weil's vielleicht eine andere Lösung gibt, an die so keiner denkt.

Die aktive Skizze müßte man so kriegen:

Code:

---

Dim oactivesketch as drawingsketch
set oactivesketch = thisapplication.activedocument.activatedobject

---

Funktioniert natürlich nur, wenn beim Aufruf die Skizze bereits in Bearbeitung ist. Das dürfte bei dir der Fall sein, sonst könntest du keine Kanten projezieren.

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

[Diese Nachricht wurde von rkauskh am 05. Mrz. 2009 editiert.]

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

---

Skizze5.jpg

Danke für die Antwort.

Ich brauche die Linen zum Bemaßen.

Inzwischen finde ich das aktive Objekt.
Nur kann ich den Typ nicht prüfen.

Code

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument

Dim oAktiv As Object
Set oAktiv = oDrawDoc.ActivatedObject

If oAktiv.Type <> kDrawingSketchObjekt Then
        MsgBox "Keine Skizze aktiv", vbOKOnly
        Exit Sub
End If

Code Ende

In oAktiv wird zwar "kDrawingSketchObjekt" angezeigt (siehe Bild), aber danach prüfen kann ich nicht.

------------------

          Gruß
          Hans-Peter     

     

[Diese Nachricht wurde von SHP am 05. Mrz. 2009 editiert.]

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

---

Hallo

Probiers mal so

Code:

---

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument

Dim oAktiv As Object
Set oAktiv = oDrawDoc.ActivatedObject

If Not TypeOf oAktiv Is DrawingSketch Then
        MsgBox "Keine Skizze aktiv", vbOKOnly
        Exit Sub
End If

---

EDIT: Könntest du bitte mal einen Screenshot vor so einer Bemassung machen mit Angaben was warum wie voneinander abhängen muß? Als Nicht-Maschinenbauer bin ich sonst zu blöd deinen Beschreibungen zu folgen.

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

[Diese Nachricht wurde von rkauskh am 05. Mrz. 2009 editiert.]

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

---

Danke für den Tip, jetzt hab ich's.

------------------

          Gruß
          Hans-Peter    

  

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