关于command和vl-cmdf的问题

vkzhang

具体代码：

  (setq curlayer (getvar "clayer"))
  (if (member "hatch" (COLL_LAYER))
    (command "layer" "t" "hatch" "")
    (command "layer" "m" "hatch" "c" "6" "hatch" "l" "hatch" "hatch" "")
  )
  (command "layer" "m" "hatch" "")
  (initdia)
  (vl-cmdf "bhatch")
  (if (and curlayer (>= (sslength sshatch) 1))
    (setvar "clayer" curlayer)
  )

在上述代码中，强制弹出填充对话框后，程序段无法停止等待输入而继续执行if语句，而使用pause也无法实现

请哪位高手指点下，怎么控制它等待输入后才继续执行？？

英雄无敌

 (setq curlayer (getvar "clayer"))
  (if (member "hatch" (COLL_LAYER))
    (command "layer" "t" "hatch" "")
    (command "layer" "m" "hatch" "c" "6" "hatch" "l" "hatch" "hatch" "")
  )
  (command "layer" "m" "hatch" "")
  (initdia)
  (vl-cmdf "bhatch")

(while (/= 0 (getvar"cmdactive"))
  (command pause)
  )
  (if (and curlayer (>= (sslength sshatch) 1))
    (setvar "clayer" curlayer)
  )

添加红色所示代码即可