无痕 发表于 2004-4-15 22:21:00

来一个爽的：）;(getatt ) = 取块的所有属性文本--------vl方法-----by 无痕.2004.4
;测试: (getatt (car(entsel "\n选择含属性的块:")))
(defun getatt (blk   / attlst lst)
   (setq attlst (vlax-invoke (vlax-ename->vla-object blk) 'GetAttributes ))
   (foreach n attlst (setq lst (append lst (list (vlax-get n 'TextString)))))
)

千年浪子 发表于 2004-5-25 22:58:00

无痕发表于2004-4-15 22:21:00static/image/common/back.gif来一个爽的：）






;(getatt ) = 取块的所有属性文本--------vl方法-----by 无痕.2004.4;测试: (getatt (car(entsel \"\n选择含属性的块:\")))


...

<FONT style="BACKGROUND-COLOR: #f3f3f3">程序运行没有任何结果！！</FONT><BR>

meflying 发表于 2004-5-25 23:48:00

估计是你选择的块不是带属性的块吧

huanghao35 发表于 2005-8-26 10:50:00

<P>太感谢了！我想它都想疯了！</P>
<P>明天我把它变个脸给斑竹看看</P>
<P>看我是否真正了解其真谛！</P>
<P>加油加油！！！</P>

zhongys 发表于 2005-8-29 18:19:00

很好的东西，谢了!

xuefeng032 发表于 2005-12-18 09:05:00

千年浪子发表于2004-5-25 22:58:00static/image/common/back.gif程序运行没有任何结果！！无痕兄的程序是获得图块属性列表，放在子程lst表中我把程序稍作更改：(defun c:text4 (/ blk lst)
(setq blk (car (entsel "请选择带属性的图块：")))
(getatt blk)
(princ lst)
)(defun getatt (blk / attlst)
(setq
    attlst (vlax-invoke (vlax-ename->vla-object blk) 'GetAttributes)
)
(foreach n attlst
    (setq lst (append lst (list (vlax-get n 'TextString))))
)
)

魔力茉莉 发表于 2006-6-10 14:06:00

<P>如何将AutoCAD的数据读出,在VS.net环境下?</P>

liexol 发表于 2006-9-23 23:20:00

谢谢你了，我这个用得着

liexol 发表于 2006-9-24 19:44:00

我正找这个东东，太谢谢

leeyuan 发表于 2006-9-29 15:27:00

如果是文本属性块，如何提取其中某一个文本？
页: 1 [2] 3
查看完整版本: 请问怎样读取属性块中的数据？