(defun c:datos nil ;declaración de nuevo comando llamado datos
;seleccionar una entidad
(setq entidad (car (entsel)))
;leer las propiedades de la entidad
(setq props (entget entidad))
;obtener el nombre de la capa
(setq ncapa (cdr (assoc 8 props)))
;obtener objeto de la capa
(setq capa (tblobjname "LAYER" ncapa))
;leer las propiedades de la capa
(setq propscapa (entget capa))
;obtener las propiedades de la capa
(setq color (cdr (assoc 62 propscapa))
ltype (cdr (assoc 6 propscapa))
noimpri (zerop (cdr (assoc 290 propscapa)))
grosor (cdr (assoc 370 propscapa))
)
;mostrar datos en un mensaje
(alert
(strcat
"La entidad está en la capa "
ncapa
"\n\nPropiedades de la capa:\n\tColor: "
(vl-princ-to-string color)
"\n\tTipo de línea: "
ltype
"\n\tImprimible: "
(if noimpri "No" "Si")
"\n\tGrosor de línea: "
(cond
( (= grosor -1) "Bylayer")
( (= grosor -2) "Byblock")
( (= grosor -3) "Default")
( (strcat (rtos (/ grosor 100.) 2 2) "mm"))
)
)
)
)