列出图中所有词典

st788796

1. (defun dt:dxf-dictlst (dxf /)
   
2.   (apply 'append
   
3.   (mapcar '(lambda (a b)
   
4.       (cond ((and (= (car a) 3) (= (car b) 350))
   
5.       (list (cons (cdr a) (cdr b)))
   
6.      )
   
7.       )
   
8.     )
   
9.    dxf
   
10.    (cdr dxf)
    
11.   )
    
12.   )
    
13. )
    
14. (defun dt:countitems (ename /)
    
15.   (length (dt:dxf-dictlst (entget ename)))
    
16. )
    
17. (defun dt:getdicts (/)
    
18.   (mapcar '(lambda (a) (list (car a) (cdr a) (dt:countitems (cdr a))))
    
19.    (dt:dxf-dictlst (entget (namedobjdict)))
    
20.   )
    
21. )
    
22. (defun c:CountDicts ()
    
23.   (foreach d (dt:getdicts) (print d))
    
24.   (princ)
    
25. )

(defun dt:dxf-dictlst (dxf /)<br />   (apply 'append<br />   (mapcar '(lambda (a b)<br />       (cond ((and (= (car a) 3) (= (car b) 350))<br />       (list (cons (cdr a) (cdr b)))<br />      )<br />       )<br />     )<br />    dxf<br />    (cdr dxf)<br />   )<br />   )<br /> )<br /> (defun dt:countitems (ename /)<br />   (length (dt:dxf-dictlst (entget ename)))<br /> )<br /> (defun dt:getdicts (/)<br />   (mapcar '(lambda (a) (list (car a) (cdr a) (dt:countitems (cdr a))))<br />    (dt:dxf-dictlst (entget (namedobjdict)))<br />   )<br /> )<br /> (defun c:CountDicts ()<br />   (foreach d (dt:getdicts) (print d))<br />   (princ)<br /> )

ysq101

不明觉厉!~