---

Hallo Leute
Ich habe gehört, dass es möglich sei, in AutoCAD-VBA eine Linie im ModelSpace auch ohne die Add-Methode zu erstellen. Nur weiss ich nicht wie das möglich sein soll.
Ich brauche die Linie ja nur um mit der Length-Eigenschaft, die direkte Distanz von einem Bogen-Endpunkt zum Bogen-Startpunkt zu ermitteln. Die Linie wird dann sofort wieder gelöscht.
Wenn ohne die Add-Methode eine Linie gar nicht in der Zeichnung eingetragen würde, könnte mann sich das löschen sparen.

Kann mir Jemand sagen wie das geht?

Mit freundlichen Grüssen!  Pitsch

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

---

Hi,

Ich gehe mal davon aus, das du nur den Abstand zwischen den beiden Punkten benötigst, ähnlich der Abstand-Funktion im AutoCAD.

Hier ist ein Testcode mit der Funktion:

Code:

---

Public Sub test123()
Dim Object As Object
Dim promt As String
Dim PickedPunkt As Variant
On Local Error Resume Next
promt = "Objekt wählen:"
Utility.GetEntity Object, PickedPunkt, promt
If TypeName(Object) = "IAcadArc" Then
Dim Abstand As Double
Abstand = Distanz(Object.StartPoint, Object.EndPoint)
MsgBox Abstand
End If
End Sub

Function Distanz(Punkt1, Punkt2) As Double
Dim dist As Double
On Error Resume Next
For i = LBound(Punkt1) To UBound(Punkt1)
dist = dist + ((Punkt1(i) - Punkt2(i)) ^ 2)
If Err Then Exit For
Next
Distanz = Sqr(dist)
End Function

---

Gruß, Carsten

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

---

Hallo Carsten1210

Genau das was ich brauche!
Funktioniert ausgezeichnet!!

Mit freundlichen Grüssen! Pitsch

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