[LISP函数]：高手看看怎么解决这个小问题.

max_yu_2003

我要写一段让所有我要的层打开，其余的层关闭
(defun c:2 ()
  (command "Layer" "OFF" "*" "")
  (command "Layer" "on" "EQUIP-照明" "")
  (command "Layer" "on" "EQUIP-动力" "")
  (command "Layer" "on" "EQUIP-消防" "")
  (command "Layer" "on" "EQUIP-通讯" "")
  (command "Layer" "on" "EQUIP-箱柜" "")
  (command "Layer" "on" "ELEMENT" "")
  (command "Layer" "on" "DOTLN" "")
  (command "Layer" "on" "LWIRE" "")
  (command "Layer" "on" "SHTLN" "")
  (command "Layer" "on" "WIRE-照明" "")
  (command "Layer" "on" "WIRE-动力" "")
  (command "Layer" "on" "WIRE-消防" "")
  (command "Layer" "on" "WIRE-通讯" "")
  (command "Layer" "on" "WIRE-系统" "")
  (command "Layer" "on" "WIRE-母线" "")
  (command "Layer" "on" "WIRE-避雷" "")
  (command "Layer" "on" "WIRE-接地" "")
  (command "Layer" "on" "DIM-照明" "")
  (command "Layer" "on" "DIM-动力" "")
  (command "Layer" "on" "DIM-消防" "")
  (command "Layer" "on" "DIM-通讯" "")
  (command "Layer" "on" "DIM-系统" "")
  (command "Layer" "on" "DIM-箱柜" "")
  (command "Layer" "on" "LTN_WIRE" "")
  (command "Layer" "on" "LIGHTNING" "")
  (command "Layer" "on" "GRD_WIRE" "")
  (command "Layer" "on" "SIG_TEXT" "")
  (command "Layer" "on" "WRSOCK" "")
   )
但是"*"后面有时需要加个"y"才能运行，有时却不需要才能运行，请高手们帮帮我这个菜鸟,如何才能解决这个问题。

hsslyl

设置(setvar "expert" 1)，在"*"之后就不会问Y/N。

max_yu_2003

多谢指教，问题解决了，你怎么会注意到这个系统变量的啊？

网络水手

设置(setvar "expert" 1)，在"*"之后就不会问Y/N。

超强的系统变量! 还有好多不知道的东东啊! 汗!

zhynt

这样不是更好？

[php]
(defun C:offlay        ()  
  (setq oldexpert (getvar "expert"))
  (setvar "expert" 1)
  (setvar "cmdecho" 0)
  (setq e (car (entsel "\n选择实体 :")))
  (setq n (cdr (assoc 8 (entget e))))
  (setq first T)
  (while (setq lay1 (cdr (assoc 2 (tblnext "layer" first))))
    (if        (= first T)
      (setq first nil)
    )
    (if        (/= lay1 n)
      (command "layer" "off" lay1 "")
    )
  )
  (setvar "expert" oldexpert)
)
[/php]

呵呵，写完才知道，理解错了。

max_yu_2003

我的是超级低级得LISP语句，你的比我的高级多了，呵呵