怎么取得属性块的属性提示值

lzy9788

请问：怎么取得属性块的属性提示值？

alin

Bobby Jones wrote: > An ATTDEF is an attribute definition that you create prior to including it
> in your block definition. An ATTRIB is what an ATTDEF becomes after you
> insert a block with attribs.
> -- 所以ATTRIB与ATTDEF不同，要找到属性提示，你要找到ATTDEF，先用 (tblobjname "block" "图块名") 找到图块定义入口，在-2组码下是第一个ATTDEF图元，其3组码下为属性提示 使用ENTNEXT可得到第二个ATTDEF图元，如此类推。 (Defun C:getprompt(/ blkname attdef elist)
(setq blkname (cdr (assoc 2 (entget (car (entsel "\n选择属性块："))))))
(setq attdef (cdr (assoc -2 (entget (tblobjname "BLOCK" blkname)))))
(While attdef
(setq elist (entget attdef))
(if (= (cdr (assoc 0 elist)) "ATTDEF")
(progn
(princ "\n")
(princ (cdr (assoc 3 elist)))
)
)
(setq attdef (EntNext attdef))
)
(princ)
)

zhangcan0515

留个脚印日后方便找

meflying

??????????????????????????????????????????????? http://bbs.mjtd.com/forum.php?mod=viewthread&tid=19422

lzy9788

如图中红线内的：(属性提示)


       

meflying

to 楼主:为什么每次我给你的链接都不看,或者不看完?

alin

哦，飞斑竹的连接里确有了更简洁的解，只是当时输出默认值，而不是属性提示，我是画蛇添足了。:)

meflying

这里只是一点点的变动,相信他如果把链接和链接里的链接看明白了,肯定能写出现在这个,如果没看明白,为何没有继续.


觉得楼主是每次把问题弄出来了就得,并不是把问题弄明白了才算结束.


-------其实经常说这么多罗嗦的话,一是让他们能知道一些学习的方法,另一方面,也是不要让自己成为一部代码机器,并且是重复的代码机器

无痕

meflying说的很对，支持

lzy9788

小弟铭记，多谢大哥！

lzy9788

meflying大哥，不好意思，我没有仔细看。 谢谢你。