---

Anbei ein Halo Lisp, eventuell schert sich jemand den Maßstab zu ergänzen (8% Texthöhe wegen Maßstab)?
Und Farbe muss man derzeit per Hand ergänzen.

Code:

---

(defun c:Halo_new (/)
(Setq OBJ2 (ssget))
(setq OBJ(entlast))
(command "_copy" OBJ2 "" "_m" "0,0" "0.2,0.2" "-0.2,0.2" "0.2,-0.2" "-0.2,-0.2" "");Maßstab anpassen
(setq AWS(ssadd))
(while (setq OBJ(entnext OBJ))(ssadd OBJ AWS))
(sssetfirst AWS AWS)
(command "_change" AWS "" "_p" "_co" "5" "LTF" "99" "");Farbe anpassen
(command "_change" OBJ2 "" "_p" "LTF" "98" "")
(command "_draworder" OBJ2 "" "_front")
)

(defun c:Halo_renew (/)
(setq ASDel (ssget "_x" '((48 . 99))))
(command "_erase" ASDel "")
(setq OBJ2 (ssget "_x" '((48 . 98))))
(setq OBJ(entlast))
(command "_copy" OBJ2 "" "_m" "0,0" "0.2,0.2" "-0.2,0.2" "0.2,-0.2" "-0.2,-0.2" "");Maßstab anpassen
(setq AWS(ssadd))
(while (setq OBJ(entnext OBJ))(ssadd OBJ AWS))
(sssetfirst AWS AWS)
(command "_change" AWS "" "_p" "_co" "1" "LTF" "99" "");Farbe anpassen
(command "_change" OBJ2 "" "_p" "LTF" "98" "")
(command "_draworder" OBJ2 "" "_front")
)

(defun c:Halo_del (/)
(setq ASDel (ssget "_x" '((48 . 99))))
(command "_erase" ASDel "")
)

---

Wurde lt. Cadffm geändert

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

[Diese Nachricht wurde von Bernd P am 08. Dez. 2017 editiert.]

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

---

Bitte editiere den Code, du definierst standard Lispfunktionen um und
dies kann absolut unnötigen Ärger bringen, besonders bei Usern welche
selbst nur "Lisp-Anwender" sind.

Es geht hier um die Lispfunktion SET, nehme doch als Symbolnamen einfach SETX oder etwas ganz anderes, danke.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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