| | |  | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | |  | PNY: der unverzichtbare Partner für umfassende KI-Lösungen von Workstations bis zu Edge Computing und KI-Cluster-Bereitstellung, eine Pressemitteilung
|
|
Autor
|
Thema: Halo lisp (1267 / mal gelesen)
|
Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general
   Beiträge: 3458
Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 05. Dez. 2017 07:48  <-- editieren / zitieren -->   Unities abgeben:          
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 |
| |
cadffm
Moderator
良い精神
    
Beiträge: 22595
Registriert: 03.06.2002 System: F1
und Google
|
erstellt am: 05. Dez. 2017 13:02 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P 
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 |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |
Foren auf CAD.de
| 
