---

Kann man eine Linie/Objekt, das man im Modellbereich mittels VBA eingefügt hat, während das Makro weiterläuft, anzeigen,
damit der Nutzer bei der nächsten Eingabe die Linie sieht?

Quasi ein Gummiband, von A nach B und der Nutzer muss noch einen dritten Punkt C, auf einer Seite neben dem "Gummiband" wählen.

Code:

---

    ...
    'Hilfslinie eintragen für die Seitenangabe
    Dim HiLi As AcadLine
   
    Set HiLi = ThisDrawing.ModelSpace.AddLine(basePt1, basePt1)
    With HiLi
        .Highlight True
    End With
   
    'Linie anzeigen
    ThisDrawing.Regen acActiveViewport '????? Das geht nicht.
   
    'Dritten Punkt auf der zu beschriftenden Seite angeben.
    basePt3 = ThisDrawing.Utility.GetPoint(, "Seite wählen: ")
   
    'Hilfsline löschen
    HiLi.Delete
    ...

---

Wie muss ich da den Bilschirm aktualisieren?

------------------
Grüße aus München
Christian

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

---

Danke.
Hat sich erledigt.
Bei AddLine war der zweite Pkt = der erste.

------------------
Grüße aus München
Christian

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