---

Hallo beisammen,

vielleicht kann mir jemand auf die Sprünge helfen, ich versuche innerhalb einer VBA-Routine den Objektfang zu beeinflussen, so daß nur Objekte vom Typ "Punkt" gefangen werden können (analog dem Auswahlfenster unter CTRL-[rechte Maustaste])
Derzeit sieht mein Code so aus:

Punkt = ThisDrawing.Utility.GetPoint(, "Punkt wählen:")

dabei ist leider der aktuelle Objektfang (den ich eigentlich nur für diese Aktion außer Kraft setzen möchte) aktiv.

Ich bedanke mich schon mal im voraus für alle Antworten

Servus - Hübi

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

---

Die osnap-Variable vor der eigentlichen Punktwahl verändern, mit thisdrawing.sendcommand "_osmode" ... oder auch anders ... aber die erste Variante dürfte auch gehen.

------------------
(entmake (entget (entlast))) | Die Pro-Version auf Anfrage erhältlich.

          "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File

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

---

Hi,

altOsnap=ThisDrawing.Getvariable "osmode"
ThisDrawing.SetVariable "osmode", 8 '8=Punktfang
...
...
...
ThisDrawing.SetVariable "osmode", altOsnap

Gruss,
Harry

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

---

Vielen Dank,

hier werden Sie geholfen *fg*
Vor allem der Tip von Harryk hat das Problem auf den Punkt gebracht -thanks.
Dank auch an Proxy, da mir der "thisdrawing.sendcommand" - Befehl auch noch nicht geläufig war.

Gruß Hübi

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