| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: farbe ändern über lisp (758 mal gelesen)
|
marvin101010 Mitglied ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)
Beiträge: 562 Registriert: 22.01.2003 Pentium 4 Windows XP Autocad 2006 Autocad 2006LT + Extender ADT 2007 ArchiCAD
|
erstellt am: 01. Feb. 2003 13:22 <-- editieren / zitieren --> Unities abgeben:
hallo lispler zum ersten mal stelle ich in diesem forum nicht eine frage, wie dies und jenes in einer lisp funktioniert, sondern warum eine routine nicht oder nur tw funzt: mit folgender lisp möchte ich linien eines layers auf einen anderen bringen...funktioniert soweit gut ausserdem sollen die linien aber eine andere farbe als die des layers bekommen...tuts nich ich bin mit meinem latein grad ein bisschen am ende! (defun c:sir (/ a lis neu z)
(setq lis (ssget "x" '((0 . "line") (8 . "0"))) z 0)
(repeat (sslength lis) (setq neu (entget (ssname lis z)) neu (subst (cons 8 "1") (assoc 8 neu) neu) neu (subst (cons 62 5) (assoc 62 neu) neu) z (+ z 1) ); end setq (entmod neu) ); end repeat ); end defun
------------------ alle wege führen nach rom, bis auf den mittleren! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
benwisch Mitglied Bautechniker, CAD-Konstrukteur
Beiträge: 375 Registriert: 01.02.2001
|
erstellt am: 01. Feb. 2003 13:52 <-- editieren / zitieren --> Unities abgeben: Nur für marvin101010
wenn ein objekt eine "farbe" von layer hat, dann existiert auch kein gruppencode 62 !! du muß also eine routine einbauen, die überprüft, ob der gruppencode 62 vorh. ist. wenn ja, dann geht auch (subst neu alt liste). wenn nicht, dann den gruppencode einbauen, also so z.b. (setq temp (cons 62 farbwert) neu (cons temp neu ) )
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marvin101010 Mitglied ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)
Beiträge: 562 Registriert: 22.01.2003 Pentium 4 Windows XP Autocad 2006 Autocad 2006LT + Extender ADT 2007 ArchiCAD
|
erstellt am: 01. Feb. 2003 14:02 <-- editieren / zitieren --> Unities abgeben:
danke beenwsch habe es im moment in einem älteren forumseintrag gesehen ;-) dasselbe gilt auch für strichsärke... bekommst trotzdem fünf...und glatte zehn, wenn du mir den gruppencode für den linientypfaktor sagen kennst.........danke allemal ------------------ alle wege führen nach rom, bis auf den mittleren! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
T. Bürger Mitglied Technischer Angestellter
Beiträge: 201 Registriert: 30.01.2001 AcadCAD MEP 2008 (D A CH)
|
erstellt am: 01. Feb. 2003 14:12 <-- editieren / zitieren --> Unities abgeben: Nur für marvin101010
|
otterloh Mitglied
Beiträge: 188 Registriert: 27.06.2001 AutoCAD 2012, 2013, 2019 Win8.1
|
erstellt am: 01. Feb. 2003 14:22 <-- editieren / zitieren --> Unities abgeben: Nur für marvin101010
Noch ein Weg, auch AutoCAD hat viele Wege nach Rom. Eine schnelle Möglichkeit mit AutoCAD2000i, Befehl: ssx -> ein Objekt auswählen (ist das Muster Objekt) -> evt. mit Filteroptionen eingrenzen -> Return -> 426 gefunden (zeigt AutoCAD in der Befehlszeile an) Button Eigenschaften -> im Eigenschaften Fenster -> Button Objekte wählen -> Objekte wählen: v (v für vorher eingeben) -> Return dann im Eigenschaften Fenster die gewünschten Änderungen vornehmen.
------------------ Gruß Werner http://Meyer-Werner.bei.T-Online.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
benwisch Mitglied Bautechniker, CAD-Konstrukteur
Beiträge: 375 Registriert: 01.02.2001
|
erstellt am: 01. Feb. 2003 14:24 <-- editieren / zitieren --> Unities abgeben: Nur für marvin101010
T. Bürger kam mir zuvor :-) @marvin101010 gib mal in der entwicklerhilfe (lisp-->F1) unter suchen folg. wert ein "Gruppencodes in numerischer Reihenfolge [DXF-Referenz: DXF]" dort steht vieles !! ;-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marvin101010 Mitglied ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)
Beiträge: 562 Registriert: 22.01.2003 Pentium 4 Windows XP Autocad 2006 Autocad 2006LT + Extender ADT 2007 ArchiCAD
|
erstellt am: 01. Feb. 2003 15:24 <-- editieren / zitieren --> Unities abgeben:
Danke T Bürger....Danke Benwisch...Danke otterloh an Benwisch: hatte ich schon offen, geht aber nich ins detail nur 40 - 48 = ... an otterloh: geht ist für meine spezielle "herausforderung" aber nich praktikabel ;-) ------------------ alle wege führen nach rom, bis auf den mittleren! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |