millermin 发表于 2012-5-29 10:55:09

一个程序求修改。

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

(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 发表于 2012-5-29 11:43:19

(command "_bhatch" PAUSE PAUSE)
页: [1]
查看完整版本: 一个程序求修改。