请帮忙看一下程序出了什么问题？

bdwzx

我要填写零件表，程序运行不了，我试了试两个子程序没有问题，可能是主程序的问题，请看一下：

;---读数据写明细表---;
(defun c:dataw()
  (setq data_list '())
  (setq f (open "f:/lisp/pinfro.txt" "r"))
  (setq data (read(read-line f)))
  (while data
     (setq data_list (cons data data_list))
     (setq data (read(read-line f))))
  (close f)
  (setq pt1 (getpoint "\n左上角:"))
  (listh)
  (setq i 1)
(setq n(length data_list)) 
(repeat n
    (setq datad (assoc i data_list))
  (setq datad(nth 0 (cdr datad)))
  (setq xh(nth 0 datad))
  (setq mc(nth 1 datad))
  (setq sl(nth 2 datad))
  (setq clbz(nth 3 datad))
    (drlist)
  (setq pt1 (polar pt1 (* pi 1.5) hh))
  (setq i (1+ i))
  )
  )

;---画明细表---;
(defun drlist()
 (setvar "cmdecho" 0)
  (setq pt1x (car pt1) pt1y (cadr pt1))
  (setq ww 90)
  (setq hh 8)
  (setq pt2(polar pt1 0 ww))
 (setq pt3 (list(+ pt1x ww)(- pt1y hh) 0.0)) 
 (setq pt4(polar pt1 (* pi 1.5) hh))
  (command "pline" pt1 pt2 pt3 pt4 "c")
  (setq pt5(polar pt1 0 15))
  (setq pt6(list(+ pt1x 15)(- pt1y hh)0.0))
  (command "line" pt5 pt6 "")
  (setq pt7(polar pt1 0 45))
  (setq pt8(list(+ pt1x 45)(- pt1y hh)0.0))
  (command "line" pt7 pt8 "")
  (setq pt9(polar pt1 0 60))
  (setq pt10(list(+ pt1x 60)(- pt1y hh)0.0))
  (command "line" pt9 pt10 "")
(command "text" "m" (inters pt1 pt6 pt4 pt5)(/ hh 2)0 (itoa xh))
  (command "text" "m" (inters pt5 pt8 pt6 pt7)(/ hh 2)0 (vl-symbol-name mc))
  (command "text" "m" (inters pt7 pt10 pt8 pt9)(/ hh 2)0 (itoa sl))
  (command "text" "m" (inters pt9 pt3 pt10 pt2)(/ hh 2)0 (vl-symbol-name clbz)))

;---画明细表头---;
(defun listh()
 (setvar "cmdecho" 0)
  (setq pt1x (car pt1) pt1y (cadr pt1))
  (setq ww 90)
  (setq hh 8)
  (setq pt2(polar pt1 0 ww))
 (setq pt3 (list(+ pt1x ww)(+ pt1y hh) 0.0)) 
 (setq pt4(polar pt1 (* pi 0.5) hh))
  (command "pline" pt1 pt2 pt3 pt4 "c")
  (setq pt5(polar pt1 0 15))
  (setq pt6(list(+ pt1x 15)(+ pt1y hh)0.0))
  (command "line" pt5 pt6 "")
  (setq pt7(polar pt1 0 45))
  (setq pt8(list(+ pt1x 45)(+ pt1y hh)0.0))
  (command "line" pt7 pt8 "")
  (setq pt9(polar pt1 0 60))
  (setq pt10(list(+ pt1x 60)(+ pt1y hh)0.0))
  (command "line" pt9 pt10 "")
(command "text" "m" (inters pt1 pt6 pt4 pt5)(/ hh 2)0 "序号")
  (command "text" "m" (inters pt5 pt8 pt6 pt7)(/ hh 2)0 "零件名称")
  (command "text" "m" (inters pt7 pt10 pt8 pt9)(/ hh 2)0 "数量")
  (command "text" "m" (inters pt9 pt3 pt10 pt2)(/ hh 2)0 "材料/标准")
   )

别晨

f:/lisp/pinfro.txt的数据格式没有提供

别晨

(setvar "osmode" 0) 试试

bdwzx

f:/lisp/pinfro.txt的格式是这样的： (1(1 齿轮 1 40Cr)) (2(2  轴  1 40Cr)) …… 应该没问题，我在单独画的时候可以的，捕捉我也去掉了，还是执行不了，麻烦再给看一下．

xyp1964

错误：(setq data (read(read-line f)))

2. (defun c:dataw ()
3.   (setvar "osmode" 0)
4.   (setq data_list '()
5. date   nil
6. f   (open "f:/lisp/pinfro.txt" "r")
7.   )
8.   (while (setq data (read-line f))
9.     (setq data (read data));;;
10.     (setq data_list (cons data data_list))
11.   )
12.   (close f)
13.   (setq pt1 (getpoint "\n左上角: "))
14.   (listh)
15.   (setq i 1)
16.   (setq n (length data_list))
17.   (repeat n
18.     (setq datad (assoc i data_list))
19.     (setq datad (nth 0 (cdr datad)))
20.     (setq xh (nth 0 datad))
21.     (setq mc (nth 1 datad))
22.     (setq sl (nth 2 datad))
23.     (setq clbz (nth 3 datad))
24.     (drlist)
25.     (setq pt1 (polar pt1 (* pi 1.5) hh))
26.     (setq i (1+ i))
27.   )
28.   (princ)
29. )
30. ;;---画明细表---;
31. (defun drlist ()
32.   (setvar "cmdecho" 0)
33.   (setq pt1x (car pt1)
34. pt1y (cadr pt1)
35.   )
36.   (setq ww 90)
37.   (setq hh 8)
38.   (setq pt2 (polar pt1 0 ww))
39.   (setq pt3 (list (+ pt1x ww) (- pt1y hh) 0.0))
40.   (setq pt4 (polar pt1 (* pi 1.5) hh))
41.   (command "pline" pt1 pt2 pt3 pt4 "c")
42.   (setq pt5 (polar pt1 0 15))
43.   (setq pt6 (list (+ pt1x 15) (- pt1y hh) 0.0))
44.   (command "line" pt5 pt6 "")
45.   (setq pt7 (polar pt1 0 45))
46.   (setq pt8 (list (+ pt1x 45) (- pt1y hh) 0.0))
47.   (command "line" pt7 pt8 "")
48.   (setq pt9 (polar pt1 0 60))
49.   (setq pt10 (list (+ pt1x 60) (- pt1y hh) 0.0))
50.   (command "line" pt9 pt10 "")
51.   (command "text"
52.     "m"
53.     (inters pt1 pt6 pt4 pt5)
54.     (/ hh 2)
55.     0
56.     (itoa xh)
57.   )
58.   (command "text"
59.     "m"
60.     (inters pt5 pt8 pt6 pt7)
61.     (/ hh 2)
62.     0
63.     (vl-symbol-name mc)
64.   )
65.   (command "text"
66.     "m"
67.     (inters pt7 pt10 pt8 pt9)
68.     (/ hh 2)
69.     0
70.     (itoa sl)
71.   )
72.   (command "text"
73.     "m"
74.     (inters pt9 pt3 pt10 pt2)
75.     (/ hh 2)
76.     0
77.     (vl-symbol-name clbz)
78.   )
79. )
80. ;;---画明细表头---;
81. (defun listh ()
82.   (setvar "cmdecho" 0)
83.   (setq pt1x (car pt1)
84. pt1y (cadr pt1)
85.   )
86.   (setq ww 90)
87.   (setq hh 8)
88.   (setq pt2 (polar pt1 0 ww))
89.   (setq pt3 (list (+ pt1x ww) (+ pt1y hh) 0.0))
90.   (setq pt4 (polar pt1 (* pi 0.5) hh))
91.   (command "pline" pt1 pt2 pt3 pt4 "c")
92.   (setq pt5 (polar pt1 0 15))
93.   (setq pt6 (list (+ pt1x 15) (+ pt1y hh) 0.0))
94.   (command "line" pt5 pt6 "")
95.   (setq pt7 (polar pt1 0 45))
96.   (setq pt8 (list (+ pt1x 45) (+ pt1y hh) 0.0))
97.   (command "line" pt7 pt8 "")
98.   (setq pt9 (polar pt1 0 60))
99.   (setq pt10 (list (+ pt1x 60) (+ pt1y hh) 0.0))
100.   (command "line" pt9 pt10 "")
101.   (command "text"
102.     "m"
103.     (inters pt1 pt6 pt4 pt5)
104.     (/ hh 2)
105.     0
106.     "序号"
107.   )
108.   (command "text"
109.     "m"
110.     (inters pt5 pt8 pt6 pt7)
111.     (/ hh 2)
112.     0
113.     "零件名称"
114.   )
115.   (command "text"
116.     "m"
117.     (inters pt7 pt10 pt8 pt9)
118.     (/ hh 2)
119.     0
120.     "数量"
121.   )
122.   (command "text"
123.     "m"
124.     (inters pt9 pt3 pt10 pt2)
125.     (/ hh 2)
126.     0
127.     "材料/标准"
128.   )
129. )

(defun c:dataw ()   (setvar "osmode" 0)   (setq data_list '() date   nil f   (open "f:/lisp/pinfro.txt" "r")   )   (while (setq data (read-line f))     (setq data (read data));;;     (setq data_list (cons data data_list))   )   (close f)   (setq pt1 (getpoint "\n左上角: "))   (listh)   (setq i 1)   (setq n (length data_list))   (repeat n     (setq datad (assoc i data_list))     (setq datad (nth 0 (cdr datad)))     (setq xh (nth 0 datad))     (setq mc (nth 1 datad))     (setq sl (nth 2 datad))     (setq clbz (nth 3 datad))     (drlist)     (setq pt1 (polar pt1 (* pi 1.5) hh))     (setq i (1+ i))   )   (princ) ) ;;---画明细表---; (defun drlist ()   (setvar "cmdecho" 0)   (setq pt1x (car pt1) pt1y (cadr pt1)   )   (setq ww 90)   (setq hh 8)   (setq pt2 (polar pt1 0 ww))   (setq pt3 (list (+ pt1x ww) (- pt1y hh) 0.0))   (setq pt4 (polar pt1 (* pi 1.5) hh))   (command "pline" pt1 pt2 pt3 pt4 "c")   (setq pt5 (polar pt1 0 15))   (setq pt6 (list (+ pt1x 15) (- pt1y hh) 0.0))   (command "line" pt5 pt6 "")   (setq pt7 (polar pt1 0 45))   (setq pt8 (list (+ pt1x 45) (- pt1y hh) 0.0))   (command "line" pt7 pt8 "")   (setq pt9 (polar pt1 0 60))   (setq pt10 (list (+ pt1x 60) (- pt1y hh) 0.0))   (command "line" pt9 pt10 "")   (command "text"     "m"     (inters pt1 pt6 pt4 pt5)     (/ hh 2)     0     (itoa xh)   )   (command "text"     "m"     (inters pt5 pt8 pt6 pt7)     (/ hh 2)     0     (vl-symbol-name mc)   )   (command "text"     "m"     (inters pt7 pt10 pt8 pt9)     (/ hh 2)     0     (itoa sl)   )   (command "text"     "m"     (inters pt9 pt3 pt10 pt2)     (/ hh 2)     0     (vl-symbol-name clbz)   ) ) ;;---画明细表头---; (defun listh ()   (setvar "cmdecho" 0)   (setq pt1x (car pt1) pt1y (cadr pt1)   )   (setq ww 90)   (setq hh 8)   (setq pt2 (polar pt1 0 ww))   (setq pt3 (list (+ pt1x ww) (+ pt1y hh) 0.0))   (setq pt4 (polar pt1 (* pi 0.5) hh))   (command "pline" pt1 pt2 pt3 pt4 "c")   (setq pt5 (polar pt1 0 15))   (setq pt6 (list (+ pt1x 15) (+ pt1y hh) 0.0))   (command "line" pt5 pt6 "")   (setq pt7 (polar pt1 0 45))   (setq pt8 (list (+ pt1x 45) (+ pt1y hh) 0.0))   (command "line" pt7 pt8 "")   (setq pt9 (polar pt1 0 60))   (setq pt10 (list (+ pt1x 60) (+ pt1y hh) 0.0))   (command "line" pt9 pt10 "")   (command "text"     "m"     (inters pt1 pt6 pt4 pt5)     (/ hh 2)     0     "序号"   )   (command "text"     "m"     (inters pt5 pt8 pt6 pt7)     (/ hh 2)     0     "零件名称"   )   (command "text"     "m"     (inters pt7 pt10 pt8 pt9)     (/ hh 2)     0     "数量"   )   (command "text"     "m"     (inters pt9 pt3 pt10 pt2)     (/ hh 2)     0     "材料/标准"   ) )

bdwzx

茅塞顿开，我憋了一天，太谢谢了！！！