---

Hallo,
weiss jemand wie ich mittels VBA 2 aufeinanderzulaufende Linien abrunden  oder fasen kann? Irgendwie ist mir mein Geometrieverständnis verloren gegangen. Wie kann ich den Schnittpunkt der beiden Linien ermitteln und diese dann abrunden?
Gruß Ines

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

---

Schau mal da rein http://ww3.cad.de/foren/ubb/Forum259/HTML/000569.shtml#000007 .
Den rest müßtest du rechnen oder zeichnerisch lösen.
Ist meiner Meinung nach aber für VBA ein zu großer Aufwand.

------------------
Roland

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

---

Hallo RoSiNiNO,
soory, daß ich erst jetzt mich melde, ich war einige Tage nicht im Büro. Danke für Deine Antwort. Ich hab es mal probiert, hänge aber schon wieder fest, deshalb hier einige Codezeilen:
'Zeichnen einer 1.Konstruktionslinie
    Set XlineObj1 = ThisDrawing.ModelSpace.AddXline(SPktKlinie1, _
                    SecondPktKlinie1)
'Versetzen der Konstruktionslinie1 um d
    offsetObj = XlineObj1.Offset(-d)
'Löschen der Konstruktionslinie1
    XlineObj1.Delete
'Zeichnen der 2.Konstruktionslinie
    Set XlineObj2 = ThisDrawing.ModelSpace.AddXline(SPktKlinie2, _
                    SecondPktKlinie2)
'Bestimmung der Koordinaten des Schnittpunktes der Konstruktionslinien
    SchnittPkt = XlineObj2.IntersectWith(offsetObj, acExtendNone)

Leider klappt das nicht, weil offsetObj vom Typ Variant ist und kein Object. Wie kann ich das ändern? Kannst Du mir da weiterhelfen?
Gruß Ines

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