[求助]：怎样让块中的属性值显示出来？？

tukuitk

*-*4

请教各位大虾，请帮忙：
只准用AutoLisp编！
下面这个函数的(entmod okEnt)不能把我填充的文字显示出来！
我把一个含属性参照的块中的所有属性参照放在一个LIST中，即变量AttRefEntList中了。
最好是尽量不改变我的程序框架。

2. 
   
3. (defun Fill (AttRefEntList Text tag / i okEnt)
   
4.   (setq i 0)
   
5.   (while (< i (length AttRefEntList))
   
6.     (if (= (cdr (assoc 2 (entget (nth i AttRefEntList)))) tag)
   
7.       (progn
   
8. (setq okEnt (subst (cons 1 Text)
   
9.       (assoc 1 (entget (nth i AttRefEntList)))
   
10.       (entget (nth i AttRefEntList))
    
11.       )
    
12. )
    
13. (entmod okEnt)
    
14. (setq i (length AttRefEntList))
    
15.       )
    
16.     )
    
17.     (setq i (1+ i))
    
18.   )
    
19.   (princ)
    
20. )
    

<br /> (defun Fill (AttRefEntList Text tag / i okEnt)<br />   (setq i 0)<br />   (while (< i (length AttRefEntList))<br />     (if (= (cdr (assoc 2 (entget (nth i AttRefEntList)))) tag)<br />       (progn<br /> (setq okEnt (subst (cons 1 Text)<br />       (assoc 1 (entget (nth i AttRefEntList)))<br />       (entget (nth i AttRefEntList))<br />       )<br /> )<br /> (entmod okEnt)<br /> (setq i (length AttRefEntList))<br />       )<br />     )<br />     (setq i (1+ i))<br />   )<br />   (princ)<br /> )<br />

lsjjm

Reference:

2. 
   
3. (defun GetAttributes (ent / lst)
   
4.   (vl-load-com)
   
5.   (if (safearray-value
   
6.         (setq lst (vlax-variant-value
   
7.                     (vla-getattributes (vlax-ename->vla-object ent))
   
8.                   )
   
9.         )
   
10.       )
    
11.     (mapcar '(lambda (x) (list  (vla-get-tagstring x)
    
12.                                (vla-get-textstring x)
    
13.                                (vlax-vla-object->ename x)
    
14.                          )
    
15.              )
    
16.              (vlax-safearray->list lst)
    
17.     )
    
18.   )
    
19. );defun
    

<br /> (defun GetAttributes (ent / lst)<br />   (vl-load-com)<br />   (if (safearray-value <br />         (setq lst (vlax-variant-value<br />                     (vla-getattributes (vlax-ename->vla-object ent)) <br />                   )<br />         )<br />       )<br />     (mapcar '(lambda (x) (list  (vla-get-tagstring x)<br />                                (vla-get-textstring x)<br />                                (vlax-vla-object->ename x)<br />                          )<br />              )<br />              (vlax-safearray->list lst)<br />     )<br />   )<br /> );defun<br />

aeo

自己看: