请问怎样读取属性块中的数据？

无痕

来一个爽的：）

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

;(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-4-15 22:21:00来一个爽的：） ;(getatt ) = 取块的所有属性文本--------vl方法-----by 无痕.2004.4;测试: (getatt (car(entsel \"\n选择含属性的块:\"))) ...

程序运行没有任何结果！！

meflying

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

huanghao35

太感谢了！我想它都想疯了！

明天我把它变个脸给斑竹看看

看我是否真正了解其真谛！

加油加油！！！

zhongys

很好的东西，谢了!

xuefeng032

千年浪子发表于2004-5-25 22:58:00程序运行没有任何结果！！

1. 无痕兄的程序是获得图块属性列表，放在子程lst表中

复制代码

1. 我把程序稍作更改：

复制代码

2. (defun c:text4 (/ blk lst)
3.   (setq blk (car (entsel "请选择带属性的图块：")))
4.   (getatt blk)
5.   (princ lst)
6. )

(defun c:text4 (/ blk lst)   (setq blk (car (entsel "请选择带属性的图块：")))   (getatt blk)   (princ lst) )

2. (defun getatt (blk / attlst)
3.   (setq
4.     attlst (vlax-invoke (vlax-ename->vla-object blk) 'GetAttributes)
5.   )
6.   (foreach n attlst
7.     (setq lst (append lst (list (vlax-get n 'TextString))))
8.   )
9. )

(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))))   ) )

魔力茉莉

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

liexol

谢谢你了，我这个用得着

liexol

我正找这个东东，太谢谢

leeyuan

如果是文本属性块，如何提取其中某一个文本？