为什么这行没执行完就执行下一行了？

taocitc

(defun c:kk ()
  (setvar "cecolor" "6")
  (command "bhatch" "p" "SOLID" pause)
  (setvar "cecolor" "bylayer")
)
为什么点了一下之后，图层就又变成bylayer了？填充的还是不是洋红色，如何解决？

liu_kunlun

通过检查系统变量cmdactive，判断命令是否还在执行

ljpnb

(defun c:kk ()
  (setvar "cecolor" "6")
  (command "bhatch" "p" "SOLID" pause)
  (while (/= (getvar "cmdactive") 0)
    (command pause)
    )
  (setvar "cecolor" "bylayer")
)

taocitc

多谢，解决了， 我研究研究是啥意思去。