高级用户 发表于 2008-6-12 13:24:00

本帖最后由 作者 于 2008-6-12 13:26:41 编辑 <br /><br /> <p>if应该是这样吧 :)</p><p>(if&nbsp; (and (&gt;= i 0) (&lt; i (length li)) (/= i k) (&gt;= k 0) (&lt; k (length li)) )</p><p>)</p><p></p><p>照瓢画葫芦，看看我的有问题不</p><p>;;将表内第4个和第5个元素交换</p><p>(defun c:test2()<br/>&nbsp; (setq L '("a" "b" "1" "2" "3" "c"))<br/>&nbsp; (setq i 3)<br/>&nbsp; (setq ii 4)<br/>&nbsp; (setq new (jh L&nbsp; i ii))<br/>)</p><p>(defun jh(li a b / aa bb )<br/>&nbsp; (if (and (&gt;= a 0) (&gt;= b 0) (&lt; a (length li)) (&lt; b (length li)) )<br/>&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp; (setq aa (nth a&nbsp; li))<br/>&nbsp;&nbsp;&nbsp; (setq bb (nth b&nbsp; li))<br/>&nbsp;&nbsp;&nbsp; (setq li (subst "x" bb li)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; li (subst bb aa li)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; li (subst aa "x" li)<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp; )<br/>&nbsp; )<br/>)</p><p></p>
页: 1 [2]
查看完整版本: 如何调整表内元素？