---

Hallo Zusammen,
ich suche die Möglichkeit die Biegungshinweistexten und die Biegungsmittellinien abzufragen.
In 2009 war das nicht möglich, gibt es diese möglich jetzt in 2013?
Die Idee währe dass, mit Hilfe eine Makro und für eine Abwicklungsansicht, diese Makro die Biegungshinweistexten + Biegungsmittellinien zurückgibt.

Bestend Dank
Christian

Inventor 2013 + PSP 2011

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

---

Hi

Code:

---

ThisApplication.ActiveDocument.ActiveSheet.DrawingNotes.BendNotes.Item(1).BendEdge

---

liefert dir die Biegelinie und

Code:

---

ThisApplication.ActiveDocument.ActiveSheet.DrawingNotes.BendNotes.Item(1).Text

---

den Text.

------------------
MfG
Ralf

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

---

Hallo Ralf,
Super, vielen Dank

------------------
Gruß Christian

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

---

Hallo Ralf,
habe getestet und hätte noch eine Frage:
wie kann man die Ansicht der Biegelinie abfragen?
Ich will, auf diese Ansicht, eine Skizze automatisch generieren und eine Linie zeichnen.
danke im Voraus für deine Hilfe

------------------
Gruß Christian

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

---

Hallo

Die Biegelinie ist vom Typ DrawingCurveSegment sein. Ausgehend davon kann man mittels DrawingCurveSegment.Parent.Parent durch den Objektbaum nach oben wandern und kommt so zum DrawingView.

Also

Code:

---

Dim oDrawingCurveSegement as DrawingCurveSegment
Set oDrawingCurveSegment = ThisApplication.ActiveDocument.ActiveSheet.DrawingNotes.BendNotes.Item(1).BendEdge

Dim oView as DrawingView
Set oView=oDrawingCurveSegment.Parent.Parent

---

------------------
MfG
Ralf

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

---

Danke Ralf für deine schnelle Antwort
Christian

------------------
Gruß Christian

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