[求助]：调用revcloud命令的程序中出现的怪问题.

maxbug

最近弄了一个小程序,出了个奇怪的问题.
(defun c:XamDr_Qu (/ cla)
  (setq cla (getvar "clayer"))
  (if (tblsearch "LAYER" "QUESTION")
    (command "-LAYER" "S" "QUESTION" "")
    (command "-LAYER" "M" "QUESTION" "C" "RED" "" "")
  )  
  (command "revcloud" "a" "250" "750")
  ;(setvar "clayer" cla)
)
去掉最后一句,只是转换到question层,画了云线,当前图层为question.
加了最后一句,反而画的线条不在question层上了,真奇怪.大家帮我看看是什么原因.

doubao

您的问题还是在于command函数的概念和应用上。
幸好最近有不少帖子讨论过这个问题， 而且相当透彻，所以请仔细阅读一下。

1、<请问怎样让画云线的时候自己创建一图层，当程序完成后返回用户图层？ >

2、<看似简单：COMMAND命令画line线， 然后显示ok >

3、<如何使area命令等待我选点？？>