日志
No2--->获取块中属性值的LIST
|
;;获取块中属性值的LIST,如不是属性块,返回nil;;en为块的图元名
(DEFUN swp_get_attrib (en / f dxf)
(WHILE en
(SETQ dxf (ENTGET en))
(IF (= (CDR (ASSOC 0 dxf)) "ATTRIB")
(SETQ
f (APPEND
f
(LIST
(CDR (ASSOC 1 dxf))
)
)
)
)
(SETQ en (ENTNEXT en))
)
f
)
(WHILE en
(SETQ dxf (ENTGET en))
(IF (= (CDR (ASSOC 0 dxf)) "ATTRIB")
(SETQ
f (APPEND
f
(LIST
(CDR (ASSOC 1 dxf))
)
)
)
)
(SETQ en (ENTNEXT en))
)
f
)
