Forum:Inventor VBA
Thema:IDW:(PL) Add-In-Funktin von Drittanbieter ausführen und auf Place-Funktion reagieren?
Möchten Sie sich registrieren?
Wer darf antworten? Registrierte Benutzer können Beiträge verfassen.
Hinweise zur Registrierung Sie müssen registriert sein, um Beiträge oder Antworten auf Beiträge schreiben zu können.
Ihr Benutzername:
Ihr Kennwort:   Kennwort vergessen?
Anhang:    Datei(en) anhängen  <?>   Anhänge verwalten  <?>
Grafik für den Beitrag:                                                
                                                       
Ihre Antwort:

Fachbegriff
URL
Email
Fett
Kursiv
Durchgestr.
Liste
*
Bild
Zitat
Code

*HTML ist AUS
*UBB-Code ist AN
Smilies Legende
Netiquette

10 20 40

Optionen Smilies in diesem Beitrag deaktivieren.
Signatur anfügen: die Sie bei den Voreinstellungen angegeben haben.

Wenn Sie bereits registriert sind, aber Ihr Kennwort vergessen haben, klicken Sie bitte hier.

Bitte drücken Sie nicht mehrfach auf "Antwort speichern".

*Ist HTML- und/oder UBB-Code aktiviert, dann können Sie HTML und/oder UBB Code in Ihrem Beitrag verwenden.

T H E M A     A N S E H E N
RolandD

Beiträge: 465 / 1210

i7-9700k
32GB DDR4-RAM
Nvidia RTX 2060
SSD 970 m.2
Win10-64 (2004)
AIP 2020.3
Dell U3417W

Zitat:
Original erstellt von mb-ing:
..Wie bekomme ich einen Point2D in den Befehl?

Du könntest den Punkt rechts oben vom Schriftfeld nehmen:

Code:
Dim oSheet As Sheet
        oSheet = oDoc.ActiveSheet

        Dim oTitleBlockPoint As Point2d
        If Not oSheet.TitleBlock Is Nothing Then 'TitleBlock existiert. SL rechts oben ausrichten
            oTitleBlockPoint = oSheet.TitleBlock.RangeBox.MaxPoint
        Else                'kein TitleBlock vorhanden.
            MsgBox("kein Schriftfeld zum Ausrichten der SL vorhanden")
            Exit Sub
        End If 'oSheet.TitleBlock Is Nothing


Oder eben feste Koordinaten nutzen:

Code:
Dim Pkt As Point2d = invApp.TransientGeometry.CreatePoint2d(0, 0)

------------------
Gruß Roland