yang686526

请大家帮着看看问题在哪
www.dimcax.com
请大家帮着看看问题在哪
(setq n 0)
(setq pt_lst '())
(repeat (length pt_base1)
(setq ptbase (nth n pt_base1))
(if (> (length ptbase) 2)
(progn
(setq ptbase1 (cdr ptbase))
(setq ptbase2 (car ptbase1))
(setq ptbase3 (cdr ptbase1))
(setq n1 0)
(setq templst '())
(repeat (length ptbase3)
(setq ptbase31 (nth n1 ptbase3))
(setq ptytoy (- ptbase31 ptbase2))
(setq templst (append templst (list ptytoy)))
(setq n1 (1+ n1))
)
(setq templst (append (list (car ptbase)) templst))
)
(progn
(setq templst (cons (list (car ptbase) 0) templst))
)
)
(setq pt_lst (append pt_lst (list templst)))
(setq n (1+ n))
)
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)。。）
结果：((245400.0 -1.38 -7.43) (245450.0 -1.28 -7.61)。。。)
单步调试时还能运行，一起调试就不行了，只运行第一、二、三句，不知为什么？大家给看看，谢谢！
d
没发现你的代码有什么问题,可能是你前部分出现的问题.
d
哪为什么单步调试又可以得出结果？
d
大家帮着看看，谢谢
d