子程序没错，但循环子程序时出错了，请教问题出在哪？谢了！！！

morecs

(defun c:zzxyh()
             (setq ocmde (getvar "cmdecho"))
         (setvar "cmdecho" 0)
             (setq num (getint "\n请输入优化直线的数量:"))
             (setq n 1)
             (repeat num
                 (zxyh)
                  (setq n (+ n 1))
              )
             (setvar "cmdecho" ocmde)
             (princ)
)
(defun zxyh()
               (vl-load-com)
               (setq en1 (entsel "\n请选择直线:"))
               (setq n1 (car en1))
               (setq m1 (vlax-ename->vla-object n1))
               (setq start1_point (vlax-curve-getstartpoint m1))
               (setq end1_point (vlax-curve-getendpoint m1))
               (setq refer_point (getpoint "\n请输入靠近直线的起始点的一点:"))
               (setq l1 (distance refer_point start1_point))
               (setq l2 (distance refer_point end1_point))
                (if (<= l1 l2)
                    (progn
                          (setq refer_point (polar end1_point 0 0))
                         (command "line" start1_point end1_point "")
                     )
                     (progn
                          (setq refer_point (polar start1_point 0 0))
                          (command "line" end1_point start1_point "")
                     )
                  )
                  (command "erase" en1)
                  (princ)
)

lockmyeye

(command "erase" en1)时没有退回到命令状态，应为(command "erase" en1 "")