求助：块的属性值提取错了，麻烦高手给看看，谢谢

yaker77

(defun c:bte ()
   (if  (setq ss (ssget '((0 . "INSERT") (66 . 1))))
       (progn
           (vl-load-com)
           (setq modelspace (vla-get-Modelspace (vla-get-activeDocument(vlax-get-acad-object))))
           (setq l (sslength ss)   i 0  text1 ",")
           (repeat l
  
;;;-----------------------------------------以下提取属性值
                  (setq ent (entget(ssname ss i)))    ;;;错误的值
                  (setq att (cdr(assoc 2 ent)))      ;;;错误的值
  
;;;-----------------------------------------以上提取属性值

               (setq text1 (strcat text1  "," att))
           
               (setq i(1+ i))
           )
   
           (if(setq insertpt(getpoint "\n请输入文字插入点: "))
              (setq insertp1(vlax-3d-point insertpt)
                    textobj1 (vla-addtext modelspace text1 insertp1 700)           ;;;;输入文字高度
              )
          )
       )
    )
)

zyhandw

还是上测试图吧，不明白你要提取的属性是什么意思。试了下你的程序，能正常执行，就是不知道结果是否正确！

zml84

http://www.baidu.com/s?wd=zml84+%BF%E9%CA%F4%D0%D4