| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | | Effiziente Datenmigration trifft nahtlose Systemintegration (SAP S/4HANA, SAP ECTR, AutoCAD, Inventor), ein Anwenderbericht
|
Autor
|
Thema: Halo lisp (1037 / mal gelesen)
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 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: 22275 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 >>)
|