c3a139 发表于 2008-10-25 15:46:00

请大家帮着看看问题在哪

本帖最后由 作者 于 2008-10-25 16:09:45 编辑 <br /><br /> <p>(setq n 0)<br/>&nbsp; (setq pt_lst '())<br/>&nbsp; (repeat (length pt_base1)<br/>&nbsp;&nbsp;&nbsp; (setq ptbase (nth n pt_base1))<br/>&nbsp;&nbsp;&nbsp; (if (&gt; (length ptbase) 2)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ptbase1 (cdr ptbase))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ptbase2 (car ptbase1))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ptbase3 (cdr ptbase1))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq n1 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq templst '())<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (repeat (length ptbase3)<br/>&nbsp; (setq ptbase31 (nth n1 ptbase3))<br/>&nbsp; (setq ptytoy (- ptbase31 ptbase2))<br/>&nbsp; (setq templst (append templst (list ptytoy)))<br/>&nbsp; (setq n1 (1+ n1))<br/>&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq templst (append (list (car ptbase)) templst))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;(setq templst (cons (list (car ptbase) 0) templst))<br/>&nbsp;)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (setq pt_lst (append pt_lst (list templst)))<br/>&nbsp;&nbsp;&nbsp; (setq n (1+ n))<br/>&nbsp;&nbsp;&nbsp; )</p><p>pt_base1：((245400.0 1256.46 1255.08 1249.03) (245450.0 1256.82 1255.54 1249.21) (245500.0 1255.91 1255.07 1249.4) (245550.0 1255.48 1254.62 1249.45) (245600.0 1255.77 1254.69 1249.44) (245608.0 1255.88 1254.7 1249.44) (245638.0 1255.94 1254.76 1249.44) (245658.0 1256.16 1254.91 1249.43)。。）</p><p>结果：((245400.0 -1.38 -7.43) (245450.0 -1.28 -7.61)。。。)</p><p>单步调试时还能运行，一起调试就不行了，只运行第一、二、三句，不知为什么？大家给看看，谢谢！</p>

wwwliuyu 发表于 2008-10-25 18:18:00

<p><font color="#f70909">没发现你的代码有什么问题,可能是你前部分出现的问题.</font></p>

c3a139 发表于 2008-10-25 18:47:00

<p>哪为什么单步调试又可以得出结果？</p>

c3a139 发表于 2008-10-27 17:40:00

<p>大家帮着看看，谢谢</p>
页: [1]
查看完整版本: 请大家帮着看看问题在哪