vitalgg 发表于 2022-2-8 06:53
(block:get-attributes (car(entsel))) ;; 将属性名和值以点对表的形式返回。
使用方法：
大神，你这个是提取了所有的值么，提取所有的值我找到代码了，但是我就想提取其中的某项怎么弄。
http://bbs.mjtd.com/thread-184304-1-1.html，这里面有，我时按照属标记的内容选的属性文字，重新定义的。
sniper1111 发表于 2022-2-8 08:39
http://bbs.mjtd.com/thread-184304-1-1.html，这里面有，我时按照属标记的内容选的属性文字，重新定义的。
这个也是不能直接提取到我要的那个名字，还是需要我再复制一次，我就想直接复制出图号和图名
想要现成的符合你的肯定没有啊，大多都要自己组合起来的，没有人的需要和你一样的，也不会写出和你一样的东西来。
本帖最后由 vitalgg 于 2022-2-8 09:30 编辑
wo870711 发表于 2022-2-8 08:14
大神，你这个是提取了所有的值么，提取所有的值我找到代码了，但是我就想提取其中的某项怎么弄。
如果你要现成的，可以求助会开发的给你写。
如果你想学习怎么开发，可以从基础学起。
(cdr (assoc "图样名称" (block:get-attributes (car(entsel)))))(cdr (assoc "图样代号" (block:get-attributes (car(entsel)))))
sniper1111 发表于 2022-2-8 08:39
http://bbs.mjtd.com/thread-184304-1-1.html，这里面有，我时按照属标记的内容选的属性文字，重新定义的。
Q-图纸编号及图名填写-V2.2-内含通用函数.lsp
无法下载，能不能再传一次。
(setq ref (car (entsel))) ;;;选择图块引用
(setq refobj (vlax-ename->vla-object ref))
(vla-get-HasAttributes refobj) ;;;值为:vlax-true,表示具有属性
(setq atts (vla-GetAttributes refobj)) ;;;获取稍有属性
(setq atts (VLAX-SAFEARRAY->LIST (VLAX-VARIANT-VALUE atts)))
(setq atts (mapcar '(lambda(x)
(cons (vla-get-TagString x) x))
atts
)
)
(vla-get-TextString (cdr (assoc "图样名称" atts))) ;;;"图样名称"的属性值
(vla-get-TextString (cdr (assoc "图样代号" atts))) ;;;"图样代号"的属性值
烟盒迷唇 发表于 2022-2-8 09:20
想要现成的符合你的肯定没有啊，大多都要自己组合起来的，没有人的需要和你一样的，也不会写出和你一样的东 ...
我没找到能单独取某个值的，就是类似的也没有，只找到一个能取所有的。
vitalgg 发表于 2022-2-8 09:28
如果你要现成的，可以求助会开发的给你写。
如果你想学习怎么开发，可以从基础学起。
好的，我再研究下，谢谢大神
lijiao 发表于 2022-2-8 09:36
谢大神，我研究下。