| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Farbe eines Layers als Variable Speichern? lisp.... (208 mal gelesen)
|
Schachinger Ehrenmitglied V.I.P. h.c. Konstrukteur
Beiträge: 2041 Registriert: 08.04.2002 AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D
|
erstellt am: 05. Dez. 2002 09:56 <-- editieren / zitieren --> Unities abgeben:
hy... ein kleines Problem... Ich bräuchte für eine kleine Lisp-routine die ich erstelle einen Tipp. wie bekomme ich die Farbe eines Layers in eine Fariable? ist warscheindlich "watscheneinfach" aber ich komm nicht dahinter :-( ------------------ mfg Siegfried Schachinger 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. 2002 10:05 <-- editieren / zitieren --> Unities abgeben: Nur für Schachinger
Schau doch mal in der Lisp-Hilfe unter zB. tblnext und weiter zB (tblnext "layer" T) da sagt er es dir (die Farbe des aktuellen) is wohl besser: tblsearch oder einfach auf Holger,CADwiesel etc. warten [super-jungs] ------------------ Gruß Sebastian , Ffm [Diese Nachricht wurde von cadffm am 05. Dezember 2002 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Schachinger Ehrenmitglied V.I.P. h.c. Konstrukteur
Beiträge: 2041 Registriert: 08.04.2002 AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D
|
erstellt am: 05. Dez. 2002 10:26 <-- editieren / zitieren --> Unities abgeben:
|
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 05. Dez. 2002 10:29 <-- editieren / zitieren --> Unities abgeben: Nur für Schachinger
@Sebastian, wenn das eine Aufforderung war, dann will ich Dich nicht enttäuschen. Zumindest ist es ein Ansporn! tblnext war schon dicht dran - aber es geht auch direkt. Hallo Siegried, damit hast Du's. LANAME ist durch den Layernamen zu ersetzen. (setq lacol (abs(cdr (assoc 62 (entget (tblobjname "LAYER" LANAME)))))) Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night [Diese Nachricht wurde von Brischke am 05. Dezember 2002 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 05. Dez. 2002 10:29 <-- editieren / zitieren --> Unities abgeben: Nur für Schachinger
Hi, hier steckt's drin: Code:
(defun C:GSC (/ COLR LAYR PICKED) (setq PICKED (entsel "\nObjekt anklicken dessen Layerfarbe aktuelle Farbe werden soll: " ) ;_ end entsel ) ;_ end setq (if PICKED (progn (setq LAYR (cdr (assoc 8 (entget (car PICKED)))) COLR (itoa (cdr (assoc 62 (tblsearch "LAYER" LAYR)))) ) ;_ end setq (setvar "cecolor" COLR) ) ;_ end progn (princ "\nKein OBJEKT gewählt !") ) ;_ end if (princ) )
Ok? ------------------ Ciao, Marc [Diese Nachricht wurde von marc.scherer am 05. Dezember 2002 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Schachinger Ehrenmitglied V.I.P. h.c. Konstrukteur
Beiträge: 2041 Registriert: 08.04.2002 AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D
|
erstellt am: 05. Dez. 2002 16:38 <-- editieren / zitieren --> Unities abgeben:
hy Forum... (setq farbenew (cdr (assoc 62 (tblsearch "layer" lrohr)))) Habs mit tblsearch gemacht :-) Glaubt mir euer forum erspahrt einem viel Zeit und Geld! *dickes Lob an alle* ------------------ mfg Siegfried Schachinger Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |