（xd::block:getattdefs）获取图中所有的属性定义实体

Lispboy

1. (defun xd::block:getattdefs (/ atts)
   
2.   (xdrx_object_get "block")
   
3.   (while (setq e (xdrx_object_next))
   
4.     (if        (and (not (xdrx_getpropertyvalue (cadr e) "islayout"))
   
5.              (xdrx_block_getentities (car e) '((0 . "att*")))
   
6.         )
   
7.       (setq atts (cons (car e) atts))
   
8.     )
   
9.   )
   
10.   (reverse atts)
    
11. )
    

(defun xd::block:getattdefs (/ atts)<br />   (xdrx_object_get "block")<br />   (while (setq e (xdrx_object_next))<br />     (if        (and (not (xdrx_getpropertyvalue (cadr e) "islayout"))<br />              (xdrx_block_getentities (car e) '((0 . "att*")))<br />         )<br />       (setq atts (cons (car e) atts))<br />     )<br />   )<br />   (reverse atts)<br /> )<br />