[请教]扩展数据的问题?
本帖最后由 作者 于 2008-7-10 23:51:02 编辑 <br /><br /> <p>请先看图片</p>源文件代码小程序
问题
问题:<br/>1.扩展数据属性已经附加在图元(如直线)上,如何来提取它?<br/>2.对于已经附加了扩展属性的图元,如何删除它的相对应的属性?<br/>3.对于已经附加了扩展属性的图元,如何修改它的相对应的属性?<br/>4.是否能够用变量赋值的方式来修改扩展属性(如下所示:)?<br/> (setq a "this is a string")<br/> (setq exdata1 '(( -3 ("ND_gd1_bianhao" (1000 . a)))))<br/> 试了试,结果失败了 <p>1、扩展数据属性已经附加在图元(如直线)上,如何来提取它</p><p>(cdr (cadadr (assoc -3 (entget (car (entsel)) (list "ND_gd1_bianhao")))))<br/>(cdr (cadadr (assoc -3 (entget (car (entsel)) (list "ND_gd2_changdu")))))</p><p>2.对于已经附加了扩展属性的图元,如何删除它的相对应的属性</p><p>(setq exdata1 '(( -3 ("ND_gd1_bianhao"))))<br/>(setq newent (append lastent exdata1))<br/>(entmod newent)</p><p>3.对于已经附加了扩展属性的图元,如何修改它的相对应的属性</p><p>(setq exdata1 '(( -3 ("ND_gd1_bianhao" (1000 . "0003")))))<br/>(setq newent (append lastent exdata1))<br/>(entmod newent)<br/>4.是否能够用变量赋值的方式来修改扩展属性</p><p>(setq a "this is a string")<br/>(setq exdata1 '(( -3 ("ND_gd1_bianhao" (cons 1000 a)))))</p><p>(setq newent (append lastent exdata1))<br/>(entmod newent)<br/></p> 本帖最后由 作者 于 2008-7-15 20:33:28 编辑 <br /><br /> <p>还是不太明白,多谢<strong><font face="Verdana" color="#61b713">byghbcx兄</font></strong>指点,已经收藏,再试试看</p> <p>试了试,前面三个问题已经得到解决,第4个问题好像还是不成功,请再指点指点。</p> 4.是否能够用变量赋值的方式来修改扩展属性<p>(setq a "this is a string")<br/>(setq exdata1 (list ( -3 ("ND_gd1_bianhao" (cons 1000 a)))))</p><p>(setq newent (append lastent exdata1))<br/>(entmod newent)<br/></p> <p>在反应器回调函数里,</p><p>怎样读取图元的扩展数据?</p><p>怎样追加护展数据?</p>
页:
[1]