shenshang 发表于 2008-8-1 13:37:00

如何将一个表两端的括号去掉.

<p>(setq xyz '((0 0 0) (10 10 0) (10 20 0) (0 20 0)))</p><p>(command "_-vports" "p" xyz)</p><p>执行出错</p><p>(setq x1 (nth 0 xyz))</p><p>(setq x2 (nth 1 xyz))</p><p>(setq x3 (nth 2 xyz))</p><p>(setq x4 (nth 3 xyz))</p><p>(command "_-vports" "p" x1 x2 x3 x4)</p><p>执行正确,</p><p>请问:如何将一个表两端的括号去掉.</p><p>或者说有什么好的简单方法可实现以上方法?</p>

dinosaurhxe 发表于 2008-8-1 13:40:00

本帖最后由 作者 于 2008-8-1 13:40:42 编辑 <br /><br /> <p>(setq xyz '((0 0 0) (10 10 0) (10 20 0) (0 20 0)))</p><p>(command "_-vports" "p" )</p><p>(foreach&nbsp;xx xyz (command xx))</p>

飞诗(fsxm) 发表于 2008-8-1 17:17:00

<p>(mapcar 'command xyz) ;这样也行</p>
页: [1]
查看完整版本: 如何将一个表两端的括号去掉.