---

Hallo,
ich habe noch eine weitere Frage.....
Eine Linie mit Abstand versetzen klappt

    Dim paralleleachse As Variant
    paralleleachse = zylinderachse.Offset(-1)

Ich möchte nun eine Linie durch einen Punkt versetzen.
Die Linie wurde folgendermaßen erstellt und soll nun durch den
Hilfspunkt versetzt werden

    dim start(0 to 2) as Double
    dim ende(0 to 2) as Double
    dim hilfspkt (0 to 2) as Double
    Dim hilfslinie As AcadLine
    Set hilfslinie = model.AddLine(start,ende)
    dim versetztelinie as Variant
    versetztelinie=hilfslinie.Offset(hilfspkt)

klappt so nicht????
Kann mir jemand helfen???
Viele Grüße
GJ-Werner

------------------
D. Werner

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

---

Hallo,

offset funktioniert nur mit direkter Angabe des Abstandes, nicht durch Angabe eines Punktes. Der Übergabewert muss vom Typ Double sein.
Du musst also vorher den Abstand Linie-Punkt ermitteln.
Soweit ich weiß gibt es dafür leider nichts vorgefertigtes.

------------------
Grüße!
René

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