获得块所有属性的代码

Lisphk

(defun c:tt (/ att atts obj)
  (setq atts '())
  (setq obj (car (entsel)))
  (foreach att (vlax-invoke (vlax-ename->vla-object obj) 'getattributes)
    (setq atts (cons (vla-get-textstring att) atts))
  )
  (princ atts)
)

cable2004

正需要，支持楼主大人了！

yoyoho

感谢 Lisphk 楼主分享了！

zyhandw

感谢 Lisphk 楼主分享

sicky111

这个很有用

炫翔

2. (defun c:tt ( / att obj s1)
   
3.   (if (setq s1 (car (entsel)))
   
4.     (mapcar
   
5.       (function (lambda (x)
   
6.                   (vla-get-textstring x)
   
7.                 )
   
8.       )
   
9.       (vlax-invoke (vlax-ename->vla-object obj) 'getattributes)
   
10.     )
    
11.   )
    
12. )
    
13. 
    
14. (defun c:tt ( / s1)
    
15.   (if (setq s1 (car (entsel)))
    
16.     (mapcar 'vla-get-textstring (vlax-invoke (vlax-ename->vla-object s1) 'getattributes))
    
17.   )
    
18. )
    

(defun c:tt ( / att obj s1)<br />   (if (setq s1 (car (entsel)))<br />     (mapcar<br />       (function (lambda (x)<br />                   (vla-get-textstring x)<br />                 )<br />       )<br />       (vlax-invoke (vlax-ename->vla-object obj) 'getattributes)<br />     )<br />   )<br /> )<br /> <br /> (defun c:tt ( / s1)<br />   (if (setq s1 (car (entsel)))<br />     (mapcar 'vla-get-textstring (vlax-invoke (vlax-ename->vla-object s1) 'getattributes))<br />   )<br /> )<br />

xvjiex

感谢分享获得块所有属性的代码