Folgende Funktionen sollten dir weiterhelfen :
(defun LAYER_GET_PROPS (LAYERNAME / LAYERDATEN LAYER_PROPS SAVEDIMZIN)
(if(and(= (type LAYERNAME) 'STR)
(setq LAYERDATEN (tblobjname "LAYER" LAYERNAME))
(setq LAYERDATEN (entget LAYERDATEN))
)
(progn
(setq SAVEDIMZIN (getvar "DIMZIN"))
(setvar "DIMZIN" 0)
(setq LAYER_PROPS (list (cdr (assoc 2 LAYERDATEN))
(itoa(abs(cdr (assoc 62 LAYERDATEN))))
(cdr (assoc 6 LAYERDATEN))
(if (>=(cdr (assoc 370 LAYERDATEN)) 0)
(rtos (/(cdr (assoc 370 LAYERDATEN))100.0) 2 2)
(itoa (cdr (assoc 370 LAYERDATEN))))
(if (< (cdr (assoc 62 LAYERDATEN)) 0) "nein" "ja" )
(if (= (cdr (assoc 290 LAYERDATEN)) 0) "nein" "ja" )
(if (= (logand (cdr (assoc 70 LAYERDATEN)) 1) 1) "ja" "nein" )
(if (= (logand (cdr (assoc 70 LAYERDATEN)) 4) 4) "ja" "nein" ))
)
(setvar "DIMZIN" SAVEDIMZIN)
)
)
LAYER_PROPS
)
(defun LAYER_SHOW_PROPS ( LAYERNAME / LAYER_PROPS)
(if (setq LAYER_PROPS (LAYER_GET_PROPS LAYERNAME))
(princ (strcat "\nLayername : " (nth 0 LAYER_PROPS)
"\nLayerfarbe : " (nth 1 LAYER_PROPS)
"\nLinientyp : " (nth 2 LAYER_PROPS)
"\nLinienstärke : " (nth 3 LAYER_PROPS)
"\nLayer sichtbar : " (nth 4 LAYER_PROPS)
"\nLayer plotbar : " (nth 5 LAYER_PROPS)
"\nLayer gefroren : " (nth 6 LAYER_PROPS)
"\nLayer gesperrt : " (nth 7 LAYER_PROPS)
"\n---------------------------\n"))
(princ "\nAngegebener Layer existiert nicht.\n")
)
(princ)
)
(defun c:LAYER_INFO ( / LAYER)
(While (setq LAYER (tblnext "LAYER" (null LAYER)))
(LAYER_SHOW_PROPS (cdr(assoc 2 LAYER)) )
(princ "\n")
)
(princ)
)
Ansonsten gibts noch die direktere Möglichkeit über ActivX.
SCNR
------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP