一个程序求修改。

millermin

我编了一个程序，但是最后一句总是不运行，但我又不想运行两次，希望一个命令连续完成。求修改。谢谢。

(defun c:ha()
(prompt "\nCHOOSE POINT FOR HATCH AREA:")
(setq point nil)
(setq pt (getpoint "\nSelect a point:"))
(while (/= pt nil)
  (setq point (cons pt point))
  (setq pt (getpoint "\nSelect a point:"))
)
   (command "pline")                  
     (foreach x point (command x))      
   (command "c" )
   (setq box(entlast))
   (command "layer" "s" "st-g-hatch" "")
   (initdia)
   (command "_bhatch")
  (command "erase" box "")
)

wowan1314

(command "_bhatch" PAUSE PAUSE)