Kopieren und Drehen (Autodesk/Lisp)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: Kopieren und Drehen (823 mal gelesen)

Dober Heinz
Mitglied
Technischer Zeichner

Senden Sie eine Private Message an Dober Heinz

Schreiben Sie einen Gästebucheintrag für Dober Heinz

Beiträge: 1149
Registriert: 20.12.2002

erstellt am: 24. Nov. 2005 12:55

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

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

CADmium
Moderator
Maschinenbaukonstrukteur

Senden Sie eine Private Message an CADmium

Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13533
Registriert: 30.11.2003

erstellt am: 24. Nov. 2005 12:57

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

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

Dober Heinz
Mitglied
Technischer Zeichner

Beiträge: 1149
Registriert: 20.12.2002

erstellt am: 24. Nov. 2005 13:00

<-- editieren / zitieren -->

Unities abgeben:

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

CADmium
Moderator
Maschinenbaukonstrukteur

Beiträge: 13533
Registriert: 30.11.2003

erstellt am: 24. Nov. 2005 13:04

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

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

Dober Heinz
Mitglied
Technischer Zeichner

Beiträge: 1149
Registriert: 20.12.2002

erstellt am: 24. Nov. 2005 13:12

<-- editieren / zitieren -->

Unities abgeben:

@ 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

Dober Heinz
Mitglied
Technischer Zeichner

Beiträge: 1149
Registriert: 20.12.2002

Autocad 2021/64B
Win10
WORKSTATION Intel(R) CPU E5-1620 3.60GHz
32 GB Ram
64 Bit-Betriebssystem
HP Designjet T7200
Grafik NVIDIA Quadro P4000
ZWCAD2021

erstellt am: 24. Nov. 2005 13:22

<-- editieren / zitieren -->

Unities abgeben:

@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

Infos zum Werbeplatz >>

ELCOVISION ELTheo CAD APP für AEC - Architektur-, Ingenieur- und Bauwesen, GIS, Vermessung und Kartografie, Messtechnik

ELCOVISION ElTheo ist ein "Gerätetreiber" für Tachymeter mit serieller oder Bluetooth Schnittstelle, der es einem CAD Programm ermöglicht, direkt mit dem Tachymeter zu kommunizieren. Dadurch wird jede Funktion des CAD-Systems zu einer Messfunktion. Der Tachymeter wird zu einem 3D Digitizer für CADs.

CADmium
Moderator
Maschinenbaukonstrukteur

Beiträge: 13533
Registriert: 30.11.2003

erstellt am: 24. Nov. 2005 13:26

<-- editieren / zitieren -->

Unities abgeben:

Nur für Dober Heinz

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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)