---

Hallo Leute

ich möchte ein LISP erstellen, welches sämtliche Geometrie um einen gewissen Wert verschiebt (z.B. @10,0)...

Als AutoCAD-Schaltfläche (Makro) wäre das auch ganz einfach:
_move;all;;0,0;10,0;

ich benötige aber eine LISP. Leider sind meine LISP-Kentnisse sehr beschränkt :-(

Kann mir jemand das Makro oben in eine LISP "übersetzen"?

Für alle Antworten bin ich sehr dankbar.

mfg
neo

------------------
Welcome to the Real

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

---

also wenn dir das Makro ausreicht, dann bleibe einfach bei dem
AutoCAD-Befehl _move :

(command "_move" "_all" "" "0,0" "10,0")

denke bei Macros und Scripten aber immer an gesperrte oder gefrorene Layer
und stelle osnapcoord immer auf 1 bei so Aktionen, gell  

 

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

[Diese Nachricht wurde von cadffm am 17. Aug. 2010 editiert.]

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

---

(command "_move" (ssget "_x" (list(cons 410 (getvar "CTAB")))) "" '(0 0 0)'(0 10 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

---

Danke cadffm,
Danke CADmium,

Hat tip top geklappt! (command XY) kannte ich noch nicht. Danke.

Infos am Rande:

osnapcoord ist immer auf 1.
es gibt nix gefrohrenes, nix ausgeblendetes, da es sich um das schemaprogramm "AutoCAD ecscad 2010" handelt.

hab da eine lisp erstellt, welche bei jedem schemablatt automatisch abgearbeitet wird beim blättern.

die sieht jetzt so aus:

(princ "\nSystemvariablen für AutoCAD ecscad geladen.\nTexte werden gleich neu ausgerichtet...\n")

(setvar "textfill" 1)
(setvar "pickfirst" 1)
(setvar "pickadd" 1)
(setvar "pickdrag" 0)
(setvar "grips" 0)
(setvar "mirrtext" 0)
(setvar "mbuttonpan" 1)
(command "_move" "_all" "" "0,0" "0,0" "regenall" "_zoom" "_e")

;; Silent load.
(princ)

... und beim verschieben um 0,0 werden die texte neu ausgerichtet :-D

mfg
neo

------------------
Welcome to the Real

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