---

GetPoint bieten keinerlei Objektfangmöglichkeiten.

Deshalb ein kleiner Workaround per LASTPOINT

Public Function GetSnapPoint() As Variant
    Dim pt As Variant
    Dim pt1 As Variant
       
    On Error GoTo Error:
   
    pt = ActiveDocument.Utility.GetPoint(, "Endpunkt wählen: ")
    ThisDrawing.SetVariable "Lastpoint", pt
   
   
    'Per _id Befehl Die Variable Lastpint auf den gewünschten Fangpunkt ändern
    ThisDrawing.SendCommand ("_id end @ ")
   
    'Koorigierte Koordinaten in GetSnapPoint speichern
    GetSnapPoint = ThisDrawing.GetVariable("LASTPOINT")
   
    Exit Function
 
Error:
    'MsgBox "error"
   
End Function

Public Sub TestEndpunkt() 'Zeichnet Kreis mit Durchmesser 5 ZE an dem gewählten Endpunkt
    Dim Endpunkt As Variant
   
    Endpunkt = GetSnapPoint
   
    'Prüfen, ob Punkt gewählt wurde (wenn ESC gedrückt wurde ist Endpunkt leer)
    If Not IsEmpty(Endpunkt) Then
        ThisDrawing.ModelSpace.AddCircle Endpunkt, 5
    End If
End Sub

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

---

Zitat:

---

Original erstellt von CADoktor:
GetPoint bieten keinerlei Objektfangmöglichkeiten.

---

Seit wann denn das??

also bei mir nutzt die ActiveX-Methode ( der Einfachheit halber für mich mal in Lisp implementiert ) sehr wohl den Objektfang :

(vla-getpoint(vla-get-utility(vla-get-activedocument(vlax-get-acad-object))))

kopiers in die Befehlszeile und probier es aus.

Zum Thema: und selbst wenn kein Objektfang aktiv sein sollte:
(osnap(getpoint "Punkt") "_end") macht das in Lisp ... warum also VBA'lern (das ging an Stelli  )
------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Es geht ja nur um das Problem, dass
z.B. (osnap(getpoint "Punkt") "_end") unter VBA nicht geht.

Und manchmal muss es in bestimmten Funktionen auch ein ganz bestimmter Objektfang unabhängig vom eingestellten OSNAP sein.

Deshalb dachte ich, dass es für manche VBA´ler eine interessante Alternative ist.

Warum Lisp, wenn es auch unter VBA geht ;-)

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