怎么取得属性块的属性提示值
请问：怎么取得属性块的属性提示值？ 本帖最后由 作者 于 2004-5-11 22:19:28 编辑 <br /><br /> Bobby Jones wrote:> An ATTDEF is an attribute definition that you create prior to including it<BR>> in your block definition. An ATTRIB is what an ATTDEF becomes after you<BR>> insert a block with attribs.<BR>> --
所以ATTRIB与ATTDEF不同，要找到属性提示，你要找到ATTDEF，先用
(tblobjname "block" "图块名")
找到图块定义入口，在-2组码下是第一个ATTDEF图元，其3组码下为属性提示
使用ENTNEXT可得到第二个ATTDEF图元，如此类推。
(Defun C:getprompt(/ blkname attdef elist)<BR> (setq blkname (cdr (assoc 2 (entget (car (entsel "\n选择属性块："))))))<BR> (setq attdef (cdr (assoc -2 (entget (tblobjname "BLOCK" blkname)))))<BR> (While attdef<BR> (setq elist (entget attdef))<BR> (if (= (cdr (assoc 0 elist)) "ATTDEF")<BR> (progn<BR> (princ "\n")<BR> (princ (cdr (assoc 3 elist)))<BR> )<BR> )<BR> (setq attdef (EntNext attdef))<BR> )<BR> (princ)<BR>) 留个脚印日后方便找 ???????????????????????????????????????????????
<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=19422" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=19422</A> 如图中红线内的：(属性提示)
to 楼主:为什么每次我给你的链接都不看,或者不看完? 哦，飞斑竹的连接里确有了更简洁的解，只是当时输出默认值，而不是属性提示，我是画蛇添足了。:) 这里只是一点点的变动,相信他如果把链接和链接里的链接看明白了,肯定能写出现在这个,如果没看明白,为何没有继续.
觉得楼主是每次把问题弄出来了就得,并不是把问题弄明白了才算结束.
-------其实经常说这么多罗嗦的话,一是让他们能知道一些学习的方法,另一方面,也是不要让自己成为一部代码机器,并且是重复的代码机器 <A name=17229><FONT color=#000066><B>meflying</B></FONT></A>说的很对，支持 小弟铭记，多谢大哥！ <A name=17218><FONT color=#000066><B>meflying</B></FONT></A>大哥，不好意思，我没有仔细看。
谢谢你。
页:
[1]
2