求助：属性块里的内容怎么读取出来？

ustbwang

一般我们在CAD标图时，都会用到属性块，现想修改属性块内的内容，就是图中的 属性栏中的---“A001"，
现想知道怎么才能读取出来（想读取出来后，对其修改）
若是手动一个个修改，效率太低了。。。
[ 此帖被机构在2011-06-19 22:03重新编辑 ]

        

  




  
  

少说多做，多想多问！[td][/tr]

reko_3

(defun cs-get-atts (ref / ATTS X)
(if (and (= (type ref) 'VLA-OBJECT)
(= (strcase (vla-get-objectname ref)) "ACDBBLOCKREFERENCE")
(= (vla-get-HasAttributes ref) :vlax-true)
)
(progn
(setq atts (vla-GetAttributes ref))
(setq atts (vlax-safearray->list (vlax-variant-value atts)))
(setq atts (mapcar '(lambda (x)
(cons (vla-get-TagString x)
(vla-get-TextString x)
)
)
atts
)
)
)
)
)

libingfx

你发一张图要有块A4带有A001属性，用lisp可能能求出。
        

  




  
  

gbg[td][/tr]

ustbwang

我简单的做的图框，看看这个是否可以，或给个思路什么的，谢谢！
        

  
  

少说多做，多想多问！[td][/tr]

libingfx

用下面的程序：
求属性关键在 (setq en (entnext) en1 (entnext en) een1 (entget en1) att (cdr (assoc 0 een1)))
如只有A0001就不要循环，程序中用有条件的循环。


(defun c:intatt ()
(setq an (entsel "去点要求属性的块:") en (entget (car an)) p1 (cdr (assoc 10 en)) i 1 ;块的插入点84.7705,74.108,0
na (cdr (assoc 2 en)) ;块名a4-001
x (cdr (assoc 41 en)) y (cdr (assoc 42 en)) z (cdr (assoc 43 en)) ;x y z比例 1 1 1
ang (cdr (assoc 50 en)))
(setq en (entnext) en1 (entnext en) een1 (entget en1) att(cdr (assoc 0 een1))) ;属性ATTRIB
(while (= att "ATTRIB")
(setq txt (cdr (assoc 1 een1)) ;属性A0001
pp1 (cdr (assoc 10 een1)) ;属性A0001的输入点145.54,78.0572,0
h (cdr (assoc 40 een1)) ;属性的字高 1.8
txtang (cdr (assoc 50 een1)) ) ;属性A0001的角度 0
(setq en1 (entnext en1) een1 (entget en1) att (cdr (assoc 0 een1)))
)
)
        

  
  

gbg[td][/tr]

ustbwang

如果图框里有很多带属性的块，他又怎么一个个去识别呢？
        

  
  

少说多做，多想多问！[td][/tr]

漂亮蓝影

如果你的CAD是完全安装的（包含了express tools工具）可以使用attout命令输出到文本，然后修改后通过命令attin输入到属性块里！

漂亮蓝影

如果txt文件修改不方便可以先改扩展名为xls,用EXCEL修改保存再改回txt文件！

ustbwang

express里有一个批量修改属性内容一致的命令：gatte

我一直想他能批量修改一致，那我就能批量修改逐个，可是。。。
我的想法是将属性块内的内容读取在进行修改。。。
        

  
  

少说多做，多想多问！[td][/tr]

陈佰强

好资料啊，加油。。