lzy9788 发表于 2004-4-15 21:59:00

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

无痕 发表于 2004-4-15 22:28: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)))))
)

lzy9788 发表于 2004-4-16 10:02:00

多谢了。

lzy9788 发表于 2004-4-16 10:08:00

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

lzy9788 发表于 2004-4-19 09:17:00

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


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


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

无痕 发表于 2004-4-19 13:31:00

vlax-put


vla－put－property

lzy9788 发表于 2004-4-19 15:55:00

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

meflying 发表于 2004-4-19 18:10:00

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

<BR>一种极其消极的学习方法!!!

LYC688 发表于 2021-12-21 12:03:38

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


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

Johnspring 发表于 2024-5-29 15:55:41

学不完啊 根本学不完
页: 1 [2]
查看完整版本: [讨论]怎么样提取属性块值LISP