| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Farbe eines Layers als Variable Speichern? lisp.... (206 mal gelesen)
|
Schachinger
Ehrenmitglied V.I.P. h.c.
Konstrukteur
   Beiträge: 2040
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: 21533
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: 2040
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: 4171
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: 2490
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: 2040
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 |
Foren auf CAD.de (alle Foren)
| 
