[讨论]：如何快速取得块属性文字的内容呢？

yjtdkj

能给小弟一点提示吗？

xyp1964

[php](setq att (vla-get-textstring
            (car (vlax-invoke
                   (setq obj (vlax-ename->vla-object
                               (car (entsel))
                             )
                   )
                   'getattributes
                 )
            )
          )
)[/php]

zdarc

2. 
   
3.   [FONT=courier new]
   
4. ;;获取属性图块参数
   
5. ;;(getatt (car(entsel)))
   
6. (defun GetAtt (ent / lst)
   
7.   (if (safearray-value
   
8.         (setq lst
   
9.                (vlax-variant-value
   
10.                  (vla-getattributes (vlax-ename->vla-object ent))
    
11.                )
    
12.         )
    
13.       )
    
14.     (mapcar '(lambda (x)
    
15.                (list (vla-get-tagstring x)
    
16.                      (vla-get-textstring x)
    
17.                      (vlax-vla-object->ename x)
    
18.                )
    
19.              )
    
20.             (vlax-safearray->list lst)
    
21.     )
    
22.   )
    
23. )
    
24.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;获取属性图块参数<br /> ;;(getatt (car(entsel)))<br /> (defun GetAtt (ent / lst)<br />   (if (safearray-value<br />         (setq lst<br />                (vlax-variant-value<br />                  (vla-getattributes (vlax-ename->vla-object ent))<br />                )<br />         )<br />       )<br />     (mapcar '(lambda (x)<br />                (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 /> )<br />   [/FONT]<br />

yjtdkj

各位用的是Visual LISP扩展函数吧，不过我还没有学过，能不能给一个简单的解释呀？谢谢
有没有办法只用LISP函数实现？

舟自横

用VLISP 简单些..
如果用纯LISP也可以 用ENTNEXT 功能可以一直查询所有的属性
用ENTMOD 可以修改到每一个属性的内容

xshrimp

自己搜索一下论。lsjjm回答过，看看下面的lsp代码
[php]一个例子:
(defun getnameofblock&att ()
(setq e1 (entsel))
(setq p1 (cadr e1))
(setq elist1 (entget (car e1)))
(setq e2 (nentselp p1))
(setq e3 (car e2))
(setq elist2 (entget e3))
(Alert (strcat "\nBlock name is " (cdr (assoc 2 elist1))" and the Attr. value is " (cdr (assoc 1 elist2))))
(princ)
) [/php]