kingerst
发表于 2009-7-30 15:27:00
求循环读出扩展数据的代码。
<p>求循环读出扩展数据的代码。</p><p>小弟在一条线段上加扩展数据。加了N个专属名作为属性，并为每个专属性 加上了字符串值（1000.""）</p><p>需要循环读出这些值，谢谢！</p>
liminnet
发表于 2009-7-30 17:08:00
wxgy2806
发表于 2009-7-30 17:16:00
<div>(defun xlb(ent / entdata ent pplist plist d ptlist)</div><div> (setq ptlist nil)</div><div> (setq ent (car ent))</div><div> (setq entdata (entget ent(list "*")))</div><div> <b>(setq entdata (assoc -3 entdata))</b></div><div> (SETQ pplist (member(assoc 1000 entdata) entdata))</div><div> (setq plist (car pplist))</div><div> (while (/= plist nil)</div><div> (setq d (cdr pplist))</div><div> (setq ptlist (cons (cdr plist) ptlist))</div><div> (setq pplist (member(assoc 10000 d) d))</div><div> (setq plist (car pplist)) </div><div> )</div><div> (setq ptlist (reverse ptlist))</div><div>)</div><div><br/></div><div>加下划线的那一步可能要根据你的数据列表再改一下就可以了</div><div><br/></div>
kingerst
发表于 2009-7-30 17:23:00
<p>谢谢！再请教一下，我只想到""字符串的值，如何写呢？</p><p>另外，有个效果不知道能不能实现。 当我用line 画出一条线段出来。这条线段已经自动加入了空值的扩展数据。就相当于初始化了一样。</p><p>谢谢！</p>
wxgy2806
发表于 2009-7-30 17:27:00
第一个没看明白，<div>第二个应该是可以的，就相当于加入的扩展数据都是nill</div>
kingerst
发表于 2009-7-30 17:31:00
大哥。告诉我实现方法啊！
wxgy2806
发表于 2009-7-30 17:51:00
(cons 1000 "")<div><br/></div>
kingerst
发表于 2009-7-30 17:56:00
<p>这个我知道，定义空值，我想请教的是。当我用line 画出一条线段出来。这条线段已经自动加入了空值的扩展数据。就相当于初始化了一样。</p><p>就像插出块一样，块已经定义了属性。 </p>
wxgy2806
发表于 2009-7-30 18:06:00
不知道了
liminnet
发表于 2009-7-31 09:04:00