| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | Hannover Messe 2026 - Diese Lösungen prägen die Zukunft der Industrie: PNY präsentiert Anwendungen für KI, Edge-Computing und das Metaversum, eine Pressemitteilung
|
|
Autor
|
Thema: Führungslinientext verschieben - aber wie? (738 mal gelesen)
|
yamaha
Mitglied
Konstrukteur
   Beiträge: 384
Registriert: 19.05.2004 Autocad/Inventor 2022, Windows 10 Pro 64Bit
|
erstellt am: 24. Nov. 2008 12:32  <-- editieren / zitieren -->   Unities abgeben:          
Hallo zusammen, weiß jemand wie man in einer IDW einen Führungslinientext verschiebt.
Habe folgendes probiert, es gibt auch keine Fehlermeldung,
jedoch verschieben tut sich auch nichts
Code:
Public Sub LeaderNoteTextVerschieben()
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument Dim oActiveSheet As Sheet
Set oActiveSheet = oDrawDoc.ActiveSheet
Dim dblXMin As Double
Dim dblYMin As Double For Each objLeaderNote In oDrawDoc.SelectSet
Set objPoint = objLeaderNote.Position
Dim xy(1 To 2) As Double
xy(1) = objPoint.x
xy(2) = objPoint.y / 2
Call objLeaderNote.Position.PutPointData(xy)
Next End Sub
Vielen Dank für eure Hilfe ------------------
Gruß Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daywa1k3r
Ehrenmitglied V.I.P. h.c.
Softwareentwickler
Beiträge: 3497
Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 24. Nov. 2008 12:35 <-- editieren / zitieren --> Unities abgeben: Nur für yamaha 
|
yamaha
Mitglied
Konstrukteur
Beiträge: 384
Registriert: 19.05.2004 Autocad/Inventor 2022, Windows 10 Pro 64Bit
|
erstellt am: 24. Nov. 2008 13:10 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de
| 
