请教一个有关nth参数的问题！！！
<P>请高手帮我看一下这个语句为什么不能运行？</P><P>(setq ed (entget (entsel "请选择一个对象: ")))</P>
<P>(setq text (nth 1(assoc '1 ed )))</P>
<P>本来写这个程序的目的是修改尺寸标注里面的文字，可为什么不能用 nth cadr 等函数取得标注的文字内容呢？总是说列表错误。请高手指点指点，或者是有什么好的办法可以批量替换标注文字内容呢？（比如把%%C用φ替代）</P>
<P>还有一个问题就是可不可以把R14里面的MODIFY命令移植到2000以上的版本，感觉R14的MODIFY挺好用的，希望高手帮帮忙．这里先谢谢了</P> <P>你发的两句都是错误的语法,</P>
<P>正确的如下</P>
<P>(setq ed (entget(CAR (entsel "请选择一个对象: "))))<BR>(setq text (CDR(assoc '1 ed )))</P>
<P>顺便讨论一下(assoc '1 ed )这个地方, 为什么用'1 ? </P>
<P>直接(assoc 1 ed )这样就好的了. 不过用 '1 也对的, </P> <P>谢谢斑竹</P>
<P>至于(assoc '1 ed )这个地方，是我刚学的时候就这样了，还以为格式就是这样的。</P>
<P>不过还是搞不懂：为什么不能用NTH函数取得表中的一个元素，然后把它赋值给一个变量？ </P> <P>你得搞清楚一个定义“点对”</P>
页:
[1]