[讨论]怎么样提取属性块值LISP

lzy9788

这两种情况都有，我也是做不出，太笨了，请大侠帮忙

无痕

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

lzy9788

多谢了。

lzy9788

两种要求都得，VL真简捷，功能也不错。一定得学学。

lzy9788

VL扩展函数中怎么样修改图元的定义数据


像上面所求出的属性块值列表，我想更改，用VL扩展函数怎么样实现呢？


像用subst 与entmod函数实现的功能。

无痕

vlax-put


vla－put－property

lzy9788

无痕能列个例子给小弟看看吗，多谢了

meflying

lzy9788发表于2004-4-19 15:55:00无痕能列个例子给小弟看看吗，多谢了

一种极其消极的学习方法!!!

LYC688

无痕 发表于 2004-4-15 22:28

大佬，如何提取零件号，到零件内，就是每张图纸都有一个零件号，我想一下子提取过去，弄个lsp

Johnspring

学不完啊 根本学不完