| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Biegungshinweistexten abfragen (746 mal gelesen)
|
Christian-67 Mitglied Entwicklungsingenieur
Beiträge: 103 Registriert: 14.06.2006 DELL - Precision 7540 Windows 10 Inventor 2022
|
erstellt am: 07. Dez. 2012 14:03 <-- editieren / zitieren --> Unities abgeben:
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 |
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2580 Registriert: 15.11.2006 Windows 10 x64, AIP 2020-2025
|
erstellt am: 07. Dez. 2012 19:36 <-- editieren / zitieren --> Unities abgeben: Nur für Christian-67
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 |
Christian-67 Mitglied Entwicklungsingenieur
Beiträge: 103 Registriert: 14.06.2006 DELL - Precision 7540 Windows 10 Inventor 2022
|
erstellt am: 10. Dez. 2012 07:52 <-- editieren / zitieren --> Unities abgeben:
|
Christian-67 Mitglied Entwicklungsingenieur
Beiträge: 103 Registriert: 14.06.2006 DELL - Precision 7540 Windows 10 Inventor 2022
|
erstellt am: 11. Dez. 2012 07:54 <-- editieren / zitieren --> Unities abgeben:
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 |
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2580 Registriert: 15.11.2006 Windows 10 x64, AIP 2020-2025
|
erstellt am: 11. Dez. 2012 09:16 <-- editieren / zitieren --> Unities abgeben: Nur für Christian-67
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).BendEdgeDim oView as DrawingView Set oView=oDrawingCurveSegment.Parent.Parent
------------------ MfG Ralf Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Christian-67 Mitglied Entwicklungsingenieur
Beiträge: 103 Registriert: 14.06.2006 DELL - Precision 7540 Windows 10 Inventor 2022
|
erstellt am: 11. Dez. 2012 11:27 <-- editieren / zitieren --> Unities abgeben:
|