cad LISP 坐标画图 怎么没画出来？帮我看看哪里有语法错误吗

[kingueocn]

根据用户输入的参数，然后计算出坐标，画多线段，每次输入变量都画不出来，要是输入坐标就能画出来，为什么？求各位大神帮忙看看，谢谢！

(defun C:jjgg()
(setq kc (getint "\n请输入长:\n"))
(setq kk (getint "\n请输入宽:\n"))
(setq kg (getint "\n请输入高:\n"))
(setq gh (getint "\n请输入厚度:\n"))
(setq kh (getint "\n请输入框厚度:\n"))
(setq dh (getint "\n请输入底板厚度:\n"))
(setq zc (getint "\n请输入折弯长度:\n"))
(setq fj (getint "\n请输入分几个，如果是横2竖2输入5:\n"))

(setq kcd1 '(0 0))
(setq kcd2 '(kc 0))
(setq kcd3 '(kc (- 0 (- kg kh))))
(setq kcd4 '((- kc zc) (- 0 (- kg kh))))
(setq kcd5 '((- kc zc) (- 0 (- (+ kg zc) kh kh))))
(setq kcd6 '(zc (- 0 (- (+ kg zc) kh kh))))
(setq kcd7 '(zc (- 0 (- kg kh))))
(setq kcd8 '(0 (- 0 (- kg kh))))
(setq kcd9 '(0 0))
(command "pline" kcd1 kcd2 kcd3 kcd4 kcd5 kcd6 kcd7 kcd8 kcd9 "")
(princ)
)

[kingueocn]

下面是运行的显示

请输入长:
800
请输入宽:
1200
请输入高:
100
请输入厚度:
5
请输入框厚度:
5
请输入底板厚度:
5
请输入折弯长度:
30
请输入分几个，如果是横2竖2输入5:
2 pline
指定起点:
当前线宽为 0.0000
指定下一个点或 [圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:
命令:
命令:
命令:
命令:
命令:
命令:
命令:
命令: JJGG
未知命令“JJGG”。按 F1 查看帮助。
命令: