 - (defun LayerList (/ lst d la)
- "LayerList 图层名称、图层颜色、线型、打印、线宽表 (LayerList)"
- (while (setq d (tblnext "layer" (null d)))
- (setq lst (cons (entget (tblobjname "layer" (setq la (cdr (assoc 2 d))))) lst))
- )
- (mapcar '(lambda (x) (mapcar 'cdr (vl-remove-if-not '(lambda (a) (member (car a) '(2 62 6 290 370))) x))) (reverse lst))
- )
|