---

hallo ihr!

noch bin ich kein lisp'ler, aber ich will so langsam einsteigen. zu beginn eine frage: kann man an ureigensten autocadbefehlen wie "drehen" auch rumeditieren in lisp? wo find ich überhaupt den befehl?

es geht mir nämlich ständig auf die nerven, daß acad (14 zumindest) beim drehen die objekte nämlich nicht kopiert sondern die vorhandene position der objekte löscht. hat da vielleicht schon jemand rumgedoktort?

gruß,
rené

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

---

Hallo Rene,

eine ähnliche Funktion ist meines Wissens nach bei den BonusTools für AutoCAD14 dabei. Bei der hast Du die Möglichkeit ein Objekt zu kopieren und ohne neues anwählen zu drehen.

Die Funktion ist glaube ich nicht als lisp-Befehl abgelegt, aber wenn Du Dich sowieso ein wenig in Lisp reinarbeiten möchtest dürfte es nicht so schwer sein die Funktion selbst zu programmieren.

Gruß
Marcel

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

---

Früh am Morgen, da schreibt man nur die Hälfte von dem was man denkt;
ich meine die Funktion rotate ist nicht als Lisp abgelegt

Marcel

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

---

Hallo René,
natürlich kann man sich jeden Befehl mit Hilfe von LISP-Routinen anpassen. Besser ist aber sich den eigenen, bzw. angepassten Befehl unter einem eigenen Namen zu definieren und nicht den "original" AutoCAD-Befehl zu ändern oder gar zu "beseitigen".
Ich würde erstmal empfehlen die Handbücher bzw. Hilfedateien (Handbuch für Benutzeranpassungen, Teil II AutoLISP Referenz) vom AutoCAD zu bemühen und das ganze an paar Beispielen zu probieren.

Das beim Drehen die alten Objekte gelöscht werden ist eigentlich einleuchtend.
Sicherlich gibt es auch schon was fertiges, ich weiß jetzt nur nicht, ob für R14...
z.B. bei den Express Tools zu AutoCAD 2000 gibt es einen Befehl Verschieben Kopieren Drehen, der macht genau die gewünschten Dinge...

Gruss Angelika

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

---

hi,

die funktion geht über die griffe am besten: wenn man den griffmodi "drehen" auswählt, ist die option "kopieren" standardmäßig vorhanden (bzw. man hält beim drehen die shift-taste gedrückt). probiers doch mal damit.

Yeti

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

---

bei acad14 heißt der entsprechende befehel "mocoro" (move-copy-rotate). der ist aber ausgesprochen umständlich und zeitaufwändig und daher wirklich nicht für solche fälle zu empfehlen.

rené

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

---

Hi geh mal in die Hilfe und such mal zum Thema BF -> BFlösch, bfrück, usw.

------------------
Gruß
CADwiesel

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

---

@yeti:

klar, über die griffe gehts auch, aber du musst zugeben, auch das ist ein eher umständlicher und zeitaufwändiger weg...

danke für alle hinweise. das wird wohl mein erster eigener lisp-befehl... (kann man eigentlich nicht mal in die acad-funktionen "reinschnuppern" oder sind die nicht in lisp geschrieben?)

danke, alle zusammen erst mal.

rené

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

---

Hallo Rene,

hier die Lösung in Lisp:

Die Datei in eine Textdatei mit Name rotate.lsp kopieren und abspeichern. Aufruf mit (load"rotate.lsp")

;Erstellt von Mann Datentechnik, Karlsruhe
;www.mann-datentechnik.de
;-----------------------------------------------------
(setvar"cmdecho" 0)
(princ"\nObjekte zum Kopieren+Drehen wählen:")
(setq auswahl(ssget))
(if auswahl
(progn
(setq p(getpoint"\nDrehpunkt wählen:"))
(if p
(progn
(command"._copy" auswahl "" "_non" p "_non" p)
(command"._rotate" auswahl "" "_non" p)
);Ende progn
);Ende if
);Ende progn
);Ende if
(princ)

Viel Spaß.

Gruß
A.Mann www.mann-datentechnik.de

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