【已解决】求大神帮提取增强属性块内图号和图名，并且复制在剪贴板内，谢谢了

wo870711 · 发表于 2022-2-8 08:14:02

vitalgg 发表于 2022-2-8 06:53
(block:get-attributes (car(entsel))) ;; 将属性名和值以点对表的形式返回。

使用方法：

大神，你这个是提取了所有的值么，提取所有的值我找到代码了，但是我就想提取其中的某项怎么弄。

sniper1111 · 发表于 2022-2-8 08:39:45

http://bbs.mjtd.com/thread-184304-1-1.html，这里面有，我时按照属标记的内容选的属性文字，重新定义的。

wo870711 · 发表于 2022-2-8 08:42:32

sniper1111 发表于 2022-2-8 08:39
http://bbs.mjtd.com/thread-184304-1-1.html，这里面有，我时按照属标记的内容选的属性文字，重新定义的。

这个也是不能直接提取到我要的那个名字，还是需要我再复制一次，我就想直接复制出图号和图名

烟盒迷唇 · 发表于 2022-2-8 09:20:08

想要现成的符合你的肯定没有啊，大多都要自己组合起来的，没有人的需要和你一样的，也不会写出和你一样的东西来。

vitalgg · 发表于 2022-2-8 09:28:34

本帖最后由 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)))))

panliang9 · 发表于 2022-2-8 09:28:57

sniper1111 发表于 2022-2-8 08:39
http://bbs.mjtd.com/thread-184304-1-1.html，这里面有，我时按照属标记的内容选的属性文字，重新定义的。

Q-[TKBH]图纸编号及图名填写-V2.2-内含通用函数.lsp

无法下载，能不能再传一次。

lijiao · 发表于 2022-2-8 09:36:24

(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))) ;;;"图样代号"的属性值

wo870711 · 发表于 2022-2-8 09:37:57

烟盒迷唇发表于 2022-2-8 09:20
想要现成的符合你的肯定没有啊，大多都要自己组合起来的，没有人的需要和你一样的，也不会写出和你一样的东 ...

我没找到能单独取某个值的，就是类似的也没有，只找到一个能取所有的。

wo870711 · 发表于 2022-2-8 09:38:46

vitalgg 发表于 2022-2-8 09:28
如果你要现成的，可以求助会开发的给你写。
如果你想学习怎么开发，可以从基础学起。

好的，我再研究下，谢谢大神

wo870711 · 发表于 2022-2-8 10:26:52

lijiao 发表于 2022-2-8 09:36

谢大神，我研究下。

账号		自动登录	找回密码
密码			注册

[提问] 【已解决】求大神帮提取增强属性块内图号和图名，并且复制在剪贴板内，谢谢了