---

Hallo,
ich habe auf dem wahrscheinlich ein ganz triviales Problem, finde jedoch in der Hilfe keine genaue Antwort.

Ich habe einen Punkt in einer Zeichnung, von dem ich über anklicken seine Koordinaten abfragen möchte. Mit pickedPoint habe ich es  bereits versucht, da bekomme ich die Koordinaten wo ich den Punkt angeklickt habe jedoch nicht die, die unter den Punkteigenschaften stehen.

Beispiel: Punkt in Zeichung (x,y,z) = (1,2,3)
              Punkt laut pickedpoint (x,y,z) = (1.00234,2.0324,0)

patrick

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

---

Hallo

Was Du suchst ist folgendes:

Dim Punkt as Variant
Dim Prompt as String
Prompt = "Bitte Punkt in der Zeichnung wählen!"
Punkt = ThisDrawing.Utility.GetPoint(, Prompt)

Punkt ist nun ein Array(0 to 2) mit den Punktkoordinaten.
Punkt(0) = X-Koordinate
Punkt(1) = Y-Koordinate
Punkt(2) = Z-Koordinate

Natürlich alle Werte vom absoluten Zeichnungs-Nullpunkt gemessen!

Viel Spass beim Ausprobieren! Pitsch

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

---

Hi und Willkommen Patrick,

Über Getpoint usw. kommst du nur an den Punkt, den du anklickst, aber nicht an die Koordinaten des Elements "Punkt", den du denke ich meinst.

Probier folgendes:

Code:

---

Public Sub test123()
Dim Punkt As AcadPoint
Dim promt As String
Dim Pickedpoint As Variant
On Local Error Resume Next
promt = "Punkt wählen:"
Utility.GetEntity Punkt, Pickedpoint, promt
    If TypeName(Punkt) = "IAcadPoint" Then
        MsgBox "Die Koordinaten des Punkts sind:" & vbCr & _
        "X= " & Punkt.Coordinates(0) & vbCr & _
        "Y= " & Punkt.Coordinates(1) & vbCr & _
        "Z= " & Punkt.Coordinates(2)
    End If
End Sub

---

Gruß, Carsten

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

---

Vielen dank Ihr habt  mit sehr geholfen 
Patrick

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