扩展数据读取

dcl1214

;图元扩展数据读取

1. (defun $kuo-zhan-du-qu$  (ent app-n lst / -3d app-v vs dxf)
   
2.           ;和$kuo-zhan-xie-ru$函数刚好一正一反;
   
3.           ;①($kuo-zhan-du-qu$(car(entsel)) "sc" nil) ;②($kuo-zhan-du-qu$ (car(entsel)) nil nil)
   
4.   (if (not dxf)
   
5.     (and ent (setq dxf (ENTGET ent '("*"))))
   
6.   )
   
7.   (if dxf
   
8.     (progn
   
9.       (setq -3d (cdr (assoc -3 dxf)))
   
10.       (cond
    
11.   ((and app-n)
    
12.    (setq app-v (list (assoc app-n -3d)))
    
13.   )
    
14.   (t
    
15.    (setq app-v -3d)
    
16.   )
    
17.       )
    
18.     )
    
19.   )
    
20.   (setq
    
21.     vs
    
22.      (mapcar
    
23.        (function
    
24.    (lambda (a / k a-cdr s)
    
25.      (if
    
26.        (and (setq k (car a))
    
27.       (setq a-cdr (cdr a))
    
28.       (setq  s (vl-remove '(1002 . "}")
    
29.              (vl-remove '(1002 . "{") a-cdr)
    
30.         )
    
31.       )
    
32.       (setq s (mapcar 'cdr s))
    
33.        )
    
34.         (cons k s)
    
35.      )
    
36.    )
    
37.        )
    
38.        app-v
    
39.      )
    
40.   )
    
41.   (setq vs (vl-remove nil vs))
    
42.   vs
    
43. )

(defun $kuo-zhan-du-qu$  (ent app-n lst / -3d app-v vs dxf)<br />           ;和$kuo-zhan-xie-ru$函数刚好一正一反;<br />           ;①($kuo-zhan-du-qu$(car(entsel)) "sc" nil) ;②($kuo-zhan-du-qu$ (car(entsel)) nil nil)<br />   (if (not dxf)<br />     (and ent (setq dxf (ENTGET ent '("*"))))<br />   )<br />   (if dxf<br />     (progn<br />       (setq -3d (cdr (assoc -3 dxf)))<br />       (cond<br />   ((and app-n)<br />    (setq app-v (list (assoc app-n -3d)))<br />   )<br />   (t<br />    (setq app-v -3d)<br />   )<br />       )<br />     )<br />   )<br />   (setq<br />     vs<br />      (mapcar<br />        (function<br />    (lambda (a / k a-cdr s)<br />      (if<br />        (and (setq k (car a))<br />       (setq a-cdr (cdr a))<br />       (setq  s (vl-remove '(1002 . "}")<br />              (vl-remove '(1002 . "{") a-cdr)<br />         )<br />       )<br />       (setq s (mapcar 'cdr s))<br />        )<br />         (cons k s)<br />      )<br />    )<br />        )<br />        app-v<br />      )<br />   )<br />   (setq vs (vl-remove nil vs))<br />   vs<br /> )

czb203

感谢大佬的热心分享~

chenhuixo

感谢大佬的热心分享~