获取图形所有词典

st788796

1. (defun GetDicts        (/ lst nl)
   
2.   (setq        lst (vl-remove-if-not
   
3.               '(lambda (x) (or (= (car x) 3) (= (car x) 350)))
   
4.               (entget (namedobjdict))
   
5.             )
   
6.   )
   
7.   (while lst
   
8.     (setq nl  (cons (list (cdar lst) (cdadr lst)) nl)
   
9.           lst (cddr lst)
   
10.     )
    
11.   )
    
12.   nl
    
13. )
    

(defun GetDicts        (/ lst nl)<br />   (setq        lst (vl-remove-if-not<br />               '(lambda (x) (or (= (car x) 3) (= (car x) 350)))<br />               (entget (namedobjdict))<br />             )<br />   )<br />   (while lst<br />     (setq nl  (cons (list (cdar lst) (cdadr lst)) nl)<br />           lst (cddr lst)<br />     )<br />   )<br />   nl<br /> )<br />

Free-Lancer

1. (defun getdicts        (/ lst)
   
2.   (vlax-for dict (fy:acdicts)
   
3.     (if        (vlax-property-available-p dict 'Name)
   
4.       (setq lst (cons (list (vla-get-name dict) dict) lst))
   
5.     )
   
6.   )
   
7.   lst
   
8. )
   

(defun getdicts        (/ lst)<br />   (vlax-for dict (fy:acdicts)<br />     (if        (vlax-property-available-p dict 'Name)<br />       (setq lst (cons (list (vla-get-name dict) dict) lst))<br />     )<br />   )<br />   lst<br /> )<br />

cable2004

源码是好东西

yhly555

不太清楚什么意思

xvjiex

感谢楼主分享获取图形所有词典

olenewman

学习了，也许以后能用着。

xvjiex

Free-Lancer 发表于 2013-12-20 11:15

这里是A/VLISP板块，麻烦大佬提供fy:acdicts函数，谢谢！