我这段程序出了什么问题？

bdwzx

我这段程序为什么p1、p2点赋不了值？

(defun c:pzb()

  (setq fp (open "g:/partsdata1.txt"  "r" ))

  (setq pdata (read-line fp))

  (setq zb (read pdata))

  (while pdata

   (setq zb (read pdata))

   (setq xh (car zb)) 

    (if(= xh 103) (pp)

     (setq pdata (read-line fp)))

  (close fp))

(defun pp()

  (setq p1x (nth 1 zb))

  (setq p1y (nth 2 zb))

  (setq p1z (nth 3 zb))

  (setq p2x (nth 4 zb))

  (setq p2y (nth 5 zb))

  (setq p2z (nth 6 zb))

  (setq p1 '(p1x p1y p1z) p2 '(p2x p2y p2z)))

王咣生

(setq p1 '(p1x p1y p1z))中'是禁止求值符号,是不是应该这样写:

(setq p1 (list p1x p1y p1z))

bdwzx

谢谢了！