---

Hallo zusammen,

unter VBA

circleObj.Move point1, point2

kann man irgendwie erreichen den point2 auf den Monitor zu setzen
So als hätte ich den normalen Acad-Befehl genommen.
In Lisp ist das kein Problem.

Gruß Pan

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

---

Einfach vorher die Punkte mit thisdrawing.utilities.getpoint abfragen.

------------------
Roland

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

---

Hallo Roland
vielen Dank für Deine Antwort.
Natürlich kann man die Punkte vorher setzen, es hat aber nicht den
Effekt den ich haben will.
Unter Lisp wäre dies so

(command "text" tpunkt txthoch wi tbox)       
(setq x1 (entlast))
(command "_move" x1 "" tpunkt pause))

Mit dem ersten command setze ich einen Text irgendwo ins Niemandland
Das zweite command verschiebt diesen Text bis zum Befehl pause.
Dann hat man das Objekt am Cursor hängen und kann sauber den zweiten
Punkt setzen.
Frage ist nun ob man so etwas auch in VBA hinbekommt.

Gruß Pan

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

---

Hi Pan,
angeblich ist das möglich, ich habe in einem anderen Forum über GhostBlock gelesen, hab es auch ausprobiert (ist eine dll bzw. ein Klassenmodul), hatte aber einige Abstürze (angeblich nur bei Klassenmodul, nicht bei dll). Es ist also über einige Umwege möglich, diese sind aber nicht sehr einfach. Suche in diesem Forum nach GhostBlock --> http://www.vbdesign.net/expresso/forumdisplay.php?s=a2be1548acb648250b11756ee411b2d4&forumid=22

------------------
Roland

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

---

Danke Roland
liest sich nicht so gut
werde wohl weiter lispen.
Pan

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