[求助]：请大家帮着看看问题在哪

c3a139

(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)。。。)

单步调试时还能运行，一起调试就不行了，只运行第一、二、三句，不知为什么？大家给看看，谢谢

8daysago

我也出现同样问题了，哪位高手能帮忙解决一下，谢谢。。。

winabcd

在最前面加上
setq  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))