gzkang 发表于 2011-10-14 16:50:53

LISP怎样提取增强属性编辑器里属性值

请教各位大哥
LISP怎样提取增强属性编辑器里属性值

xujinhua 发表于 2018-7-19 19:49:18

wade320 发表于 2011-10-15 22:06
如果你自己定义的属性块的话，用VLA函数可能更方便些
(defun getatt(blka / blkename blkx attlist att_tx ...

谢谢啊，学习到东西了！

wo870711 发表于 2022-2-7 13:45:11

s678z 发表于 2013-4-8 08:14
不需lsp，用cad命令就可，http://bbs.mjtd.com/thread-96635-1-1.html

大神，你这帖子浏览权限太高了啊

wo870711 发表于 2022-2-7 13:12:01

s678z 发表于 2013-4-8 08:14
不需lsp，用cad命令就可，http://bbs.mjtd.com/thread-96635-1-1.html

大神，这个帖子新人看不了啊

vormittag 发表于 2011-10-14 18:23:49

获取图块DXF组码，如果组码66为1，说明图块有属性，用(entnext ename)可以获得属性图元名，从而能够获得属性值。

wade320 发表于 2011-10-15 22:06:39

如果你自己定义的属性块的话，用VLA函数可能更方便些
(defun getatt(blka / blkename blkx attlist att_txt attxtlist)
(vl-load-com)
(setq blkename (car (entsel "请选择一个属性块:")))
(setq blkx (vlax-ename->vla-object blkename))
(setq attlist (vlax-safearray->list (vlax-variant-value (vla-getattributes blkx))))
(foreach att attlist
   (setq att_txt (vla-get-textstring att))
    (setq attxtlist (cons att_txt attxtlist))
    (reverse attxtlist)
    )
)
请指教

xiaomm250 发表于 2012-8-22 17:56:03

这个似乎正是我需要的

45296876 发表于 2013-4-7 12:31:05

实在搞不懂啥意思

s678z 发表于 2013-4-8 08:14:57

不需lsp，用cad命令就可，http://bbs.mjtd.com/thread-96635-1-1.html

77077 发表于 2014-6-27 21:46:31

楼上的办法不错，可惜咱提取属性是用于程序运算，你这种方法提取出来不好运算啊~

流浪的军刀 发表于 2019-10-17 06:49:35

正在学习中
页: [1] 2
查看完整版本: LISP怎样提取增强属性编辑器里属性值