关于“ALIGN”在程序中不能正确执行的问题

yshf

陈老师，您好！今有一程序如下：
(defun c:zbhs()
(setq p1 '(0 0) p2 '(0 1100)
p3 '(65696.6352 91907.3854)
p4 '(66795.5702 91955.7778)
pp '(66015.9240 91875.8585)
cm (getvar "cmdecho")
)
(setvar "cmdecho" 0)
(command "point" pp)
(setq en (entlast))
(command "_align" en "" p3 p1 p4 p2 "" "y")
(setq pt (cdr (assoc 10 (entget en))))
(entdel en)
(setvar "cmdecho" cm) (princ)
) 在Auto CAD 2000中运行，遇到以下问题：
Command: zbhs
Unknown command "ALIGN". Press F1 for help.
<Entity name: 193B980>
| （程序停止，回车后显示如下：）
Unknown command "ZBHS". Press F1 for help.
Unknown command "ZBHS". Press F1 for help.
Unknown command "ZBHS". Press F1 for help.
Unknown command "Y". Press F1 for help. 但如果在程序执行前，键入“ALIGN”，并一路回车至命令结束，再运行程序，则又能正确运行，请问陈老师，这是怎么回事，如何解决？