[求助]请教一段程序

jxlsp

下面程序画线是地正常,可用于多线不行,要全部完成才能显示,请帮忙改下.

(defun hx(tc xx /)
  (command "layer" "make" tc "")

 (setq p1(getpoint "\n第一点:"))
 (command "mline" "st" xx p1)

 (setq p1(getpoint p1 "\n下一点:"))
  (while p1
   (command p1)
    (setq p1(getpoint p1 "\n下一点:"))

 )(command)
    (command "layer" "make" "0" "")
   (princ)

)

ZZXXQQ

这样试试：

3. (defun hx (tc xx /)
4.   (command "layer" "make" tc "")
5. (setq p1(getpoint "\n第一点:"))
6. (command "mline" "st" xx p1)
7. (WHILE (NOT (ZEROP (GETVAR "CMDACTIVE"))) (COMMAND PAUSE))
8. (command "layer" "make" "0" "")
9. (princ)
10. )

(defun hx (tc xx /)   (command "layer" "make" tc "") (setq p1(getpoint "\n第一点:")) (command "mline" "st" xx p1) (WHILE (NOT (ZEROP (GETVAR "CMDACTIVE"))) (COMMAND PAUSE)) (command "layer" "make" "0" "") (princ) )

jxlsp

可以,谢谢,原来一直找不到"CMDACTIVE"系统变量.