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

bdwzx

我想画表格并在表格里写字，程序是这样的：

(defun c:drlist()
 (setvar "cmdecho" 0)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq pt1 (getpoint "\n左上角:"))
  (setq ww 90)
  (setq hh 8)
  (setq pt2(polar pt1 0 ww))
 (setq pt3(polar pt2 (* pi 1.5) hh)) 
 (setq pt4(polar pt1 (* pi 1.5) hh))
  (command "pline" pt1 pt2 pt3 pt4 "c")
  (setq pt5(polar pt1 0 15))
  (setq pt6(polar pt5 (* pi 1.5)hh))
  (command "line" pt5 pt6 "")
  (setq pt7(polar pt5 0 30))
  (setq pt8(polar pt7 (* pi 1.5)hh))
  (command "line" pt7 pt8 "")
  (setq pt9(polar pt7 0 15))
  (setq pt10(polar pt9 (* pi 1.5)hh))
  (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 "材料标准")
   (setq pt1 pt4 pt5 pt6 pt7 pt8 pt9 pt10 pt2 pt3)
(setq p4 (polar pt1 (* pi 1.5)hh))
 (setq p6 (polar pt5 (* pi 1.5)hh))
  (setq p8 (polar pt7 (* pi 1.5)hh))
  (setq p10 (polar pt9 (* pi 1.5)hh))
  (setq p3 (polar pt2 (* pi 1.5)hh))
  (command "pline" pt2 pt3 pt4 pt1 "")
   (command "line" pt5 pt6 "")
   (command "line" pt7 pt8 "")
   (command "line" pt9 pt10 "")
   (command "text" "m" (inters pt1 pt6 pt4 pt5)(/ hh 2)0 orde)
  (command "text" "m" (inters pt5 pt8 pt6 pt7)(/ hh 2)0 name)
  (command "text" "m" (inters pt7 pt10 pt8 pt9)(/ hh 2)0 numb)
  (command "text" "m" (inters pt9 pt3 pt10 pt2)(/ hh 2)0 mate)
 (setvar "osmode" os)
  )

为什么第二行表格画不上去？

ljpnb

这几句的变量名错误

(setq p4 (polar pt1 (* pi 1.5)hh)) ;_不是p4，应该是pt4,下面几个变量也是一样
 (setq p6 (polar pt5 (* pi 1.5)hh))
  (setq p8 (polar pt7 (* pi 1.5)hh))
  (setq p10 (polar pt9 (* pi 1.5)hh))
  (setq p3 (polar pt2 (* pi 1.5)hh))

Andyhon

(command "text"
    "m"
    (inters pt1 pt6 pt4 pt5)
    (/ hh 2)
    0
    orde      ; 这个没有赋值
  )

bdwzx

谢谢了