TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: ronjonp on February 19, 2005, 12:04:24 PM

Title: Select xref nested layer
Post by: ronjonp on February 19, 2005, 12:04:24 PM

I have this simple lisp that I use everyday to change an objects layer color by selecting the object. My question is: How could this be modified to get the entity's nested xref layer.

Code: [Select]

(defun C:CLC (/ lay colr)
 (setvar "cmdecho" 0)
 (setq lay (cdr (assoc 8
 (entget (car (entsel "\nSelect entity to specify layer for color: "))))))
 (setq colr (getstring "\nEnter desired color:  "))
 (command "-layer" "c" colr lay "" )
 (princ)
  )
(setfunhelp "c:clc" "acadtools.chm" "clc")

Thanks,

Ron

Title: Select xref nested layer
Post by: ronjonp on February 19, 2005, 12:05:28 PM

Nevermind.....did some reading in the help file on nentsel :)