・ コマンドが終わるまでループさせる

(wcmach) を使ってコマンドの終了を調べる。

CMDNAMES の返す値は、大文字
WCMATCH 関数は、大文字と小文字を区別するので注意！

例）

(command "_QDIM")
(princ "\n寸法を記入する線分を選択：")
(while (wcmatch (getvar "CMDNAMES") "*QDIM*") ;コマンドが終わるまでループ
  (command pause)
  ); end while

システム変数 "CMDACTIVE" を使ってコマンドの終了を調べる

例）

(command "._xline" "_hor")
(while (/= 0 (getvar "CMDACTIVE")) ;コマンドが終わるまでループ 
  (prompt "\n通過点を指示")
  (command "\\")
  )