---

Hallo

Ich will ein Objekt kopieren und um 90  Grad Drehen.
mit entsel wähle ich das objekt.
(command "_.copy" (entsel)"" (cdr(assoc 10 (entget (entlast))))pause "_rotate" (entlast)""  (cdr(assoc 10 (entget (entlast)))) 90.0)

aber der Basispunkt der Kopie ist immer der des letzten Objektes,nicht der desen Objekt ich gewählt habe.
Woll liegt das der Fehler.
Danke

------------------
Heinz 

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

---

..ungetestet.. aber ich denke dein Fehler ist klar???

(command "_.copy" (setq OBJECT(entsel))"" (cdr(assoc 10 (entget OBJECT)))pause "_rotate" OBJECT ""  (cdr(assoc 10 (entget OBJECT))) 90.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

---

Hallo Thomas

Bricht ab mit Folgender Meldung

Befehl: (command "_.copy" (setq OBJECT(entsel))"" (cdr(assoc 10 (entget
OBJECT)))pause "_rotate" OBJECT ""  (cdr(assoc 10 (entget OBJECT))) 90.0)
_.copy
Objekt wählen:
Objekte wählen:  1 gefunden
Objekte wählen:
Basispunkt angeben oder [Verschiebung/Mehrfach] <Verschiebung>: ; Fehler:
Fehlerhafter Argumenttyp: lentityp (<Objektname: 7861f370> (2.62423 218.471
0.0))
Basispunkt angeben oder [Verschiebung/Mehrfach] <Verschiebung>: Zweiten Punkt
angeben oder <ersten Punkt der Verschiebung verwenden>:

------------------
Heinz 

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

---

ja, dann mach (setq OBJECT (car(entsel)))

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

---

@ Thomas
Jetzt dreht er mir das original Objetk um 90 Grad, das Kopierte dreht er nicht.
danke 

------------------
Heinz 

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

---

@Thomas

Jetzt Funkt es
(command "_.copy" (setq OBJECT(car(entsel)))"" (cdr(assoc 10 (entget OBJECT)))pause "_rotate" (entlast) ""  (cdr(assoc 10 (entget (entlast)))) 90.0)

Danke dir

------------------
Heinz 

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

---

ja, so ist das .. beim rotate natürlich die Kopie.. d.h. (entlast) nehmen

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