菜鸟求助关于用LISP绘制表格的问题

ngl_123

我今天编了一小段绘制表格的小程序    可是不知道为什么话出来的线总是乱连   并且画一次一个样    真的是很迷惑    希望哪位大侠能帮助解决下   指点下迷经  谢谢了

这是我编的代码 (defun c:cqcgb()
  (setq pt1(getpoint"\n请选择成果表输出位置："))
  (setq x(car pt1))
  (setq y(cadr pt1))
  (setq x1(+ x 107))
  (setq y1(- y 68))
  (setq pt2(list x y1))
  (setq pt3(list x1 y))
  (setq pt4(list x1 y1))
  (setq x2(+ x 15))
  (setq x3(+ x 26.78))
  (setq x4(+ x 38))
  (setq x5(+ x 53))
  (setq y2(- y 4.7))
  (setq y3(- y2 4.7))
  (setq y4(- y3 4.7))
  (setq y5(- y4 4.7))
  (setq y6(- y5 4.7))
  (setq y7(- y6 4.7))
  (setq y8(- y7 4.7))
  (setq y9(- y8 4.7))
  (setq y10(- y9 4.7))
  (setq y11(- y10 4.7))
  (setq y12(- y11 4.7))
  (setq y13(- y12 4.7))
  (setq y14(- y13 5.8))
  (setq pt5(list x2 y3))
  (setq pt6(list x3 y13))
  (setq pt7(list x4 y2))
  (setq pt8(list x5 y))
  (setq pt9(list x y2))
  (setq pt10(list x y3))
  (setq pt11(list x1 y2))
  (setq pt12(list x2 y13))
  (setq pt13(list x3 y1))
  (setq pt14(list x4 y13))
  (setq pt10(list x5 y1))
  (setq a 1)
  (repeat 10
     (command "pline" pt10 "l" -53 "")
     (setq pt10(list x (- y3 (* a 4.7))))
     (setq a (+ a 1))
   )
  (command "pline" pt9 pt11 "")
  (command "pline" pt5 pt12 "")
  (command "pline" pt6 pt13 "")
  (command "pline" pt7 pt14 "")
  (command "pline" pt8 pt15 "")
  (command "pline" pt1 "w" 0.25 0.25 pt2 "w" 0.25 0.25 pt4 "w" 0.25 0.25 pt3 "w" 0.25 0.25 pt1 "")
)

想传个效果图可是总是传不上来    大概就是一个横竖的表格    还有就是我这种方法是不是很笨啊   还有没有其他好的画表格的方法啊？

ayunger

绘图前把自动捕捉应该关掉。