| | ![](https://ww3.cad.de/php/image.php?resolution=width:20050) | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | ![](https://ww3.cad.de/php/image.php?resolution=width:16281) | Ersatzteilwesen optimieren mit CIDEON Sparify, eine Pressemitteilung
|
Autor
|
Thema: Halo lisp (1030 / mal gelesen)
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
![](/foren/avatars/Bernd_P.gif)
![Schreiben Sie einen Gästebucheintrag für Bernd P](/foren/ubb/pmimages/gbu.gif) Beiträge: 3420 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: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
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 良い精神
![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif) ![](/foren/ubb/Admin4.gif) ![](/foren/ubb/Admin5.gif) ![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif)
![](/foren/avatars/cadffm.gif)
![Schreiben Sie einen Gästebucheintrag für cadffm](/foren/ubb/pmimages/gbu.gif) Beiträge: 22171 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 05. Dez. 2017 13:02 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) 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 >>)
![](https://ww4.cad.de/books/view.php?what=zone:10541&n=s10541BB) |