---

Ich habe ein lisp gschrieben wo ich einen punkt ermittle, jetzt möchte ich einen block anklicken können und diesen von dem blockbasispunkt zum definierten punkt verschieben. Aber wie kann ich dem lisp sagen das der erste punkt der blockbasispunkt ist?

(COMMAND "_move" pause "" "0,0" xy)

0,0 sollte der basispunkt des angewählten block sein, wie kann ich das definieren?

------------------
[AutoCAD spricht mit jedem, nur leider nicht immer die gleiche Sprache.]

[Diese Nachricht wurde von michelangelo am 10. Dez. 2004 editiert.]

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

---

(COMMAND "_move" (setq INSERT(ssname(ssget "_:S" '((0 . "INSERT")))0)) "" (cdr(assoc 10 (entget INSERT))) '(0 0 0))

------------------
- 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

---

vielen dank

habe jetzt noch die zuvor definierte variabel xy eingebaut, aber es funkt nicht. weiss jemand wieso??

(COMMAND "_move" (setq INSERT(ssname(ssget "_:S" '((0 . "INSERT")))0)) "" (cdr(assoc 10 (entget INSERT))) '(xy))

------------------
[AutoCAD spricht mit jedem, nur leider nicht immer die gleiche Sprache.]

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

---

(COMMAND "_move" (setq INSERT(ssname(ssget "_:S" '((0 . "INSERT")))0)) "" (cdr(assoc 10 (entget INSERT))) xy)

so!

------------------
- 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

---

vielen dank.

------------------
[AutoCAD spricht mit jedem, nur leider nicht immer die gleiche Sprache.]

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