---

Hallo,

ich habe ein Problem mit VBA in AutoCAD 2000.

Wie kann ich dort über einen Befehl 2 Linien abrunden? Das kann doch nicht so schwer sein? Ich meine hiermit nicht den Befehl ABRUNDEN sondern einen Befehl innerhalb von VBA, wie zum Beispiel

Radius = 15
Thisdrawing.Linie1.round(Linie2, Radius)

oder Ähnliches (nur so als Idee)

Vielleicht kann mir jemand helfen!

Dirk Thiesen

------------------
------
Dirk Thiesen
Thiesen Treppen Haan www.thiesen.de

[Diese Nachricht wurde von Dirk Thiesen am 06. September 2002 editiert.]

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

---

Ups

[Diese Nachricht wurde von Wolli am 06. September 2002 editiert.]

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

---

Hai!

Sorry, falls ich jetzt Deine Frage nicht ganz verstanden hab - aber zwei Linien kannst Du ganz einfach mit dem Befehl ABRUNDEN miteinander verbinden; hast Du einen Radius angegeben, wird das Ergebnis rund, falls Radius=0 verbindest Du die Linien eckig.

Schönes WE!

Katrin

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

---

Hi,

das Problem íst , daß es mindestens 4 Möglichkeiten gibt, welche Linie wo gekürzt wird , beim Abrunden sagst Du im "normalen" Autocadbefehl auch die Seite die behalten werden soll, ansonsten wären die folgenden Zeilen vielleicht schon die halbe Miete:

Sub Example_IntersectWith()
    Dim lineObj As AcadLine
    Dim lineObj1 As AcadLine
    Dim startPt(0 To 2) As Double
    Dim endPt(0 To 2) As Double
    startPt(0) = 100: startPt(1) = 100: startPt(2) = 0
    endPt(0) = 0: endPt(1) = 0: endPt(2) = 0
    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPt, endPt)
    startPt(0) = 60: startPt(1) = 40: startPt(2) = 0
    endPt(0) = 100: endPt(1) = 0: endPt(2) = 0
    Set lineObj1 = ThisDrawing.ModelSpace.AddLine(startPt, endPt)
    Dim intPoints As Variant
    intPoints = lineObj1.IntersectWith(lineObj, acExtendBoth)
    lineObj.EndPoint = intPoints
    lineObj1.EndPoint = intPoints
End Sub

liebe grüsse Fred

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