[求助]：如何实现关闭图层?

sfjlx

在lisp中如何实现关闭图层?我写了一个,不知错在那里?
(defun c:ppp(/ )
   (command  "layer" off 21000 )
)

haibinpro

你敲入
-layer
看看就知道了。

1. 
   
2. AutoCAD 菜单实用程序已加载。
   
3. 命令: -layer
   
4. 
   
5. 当前图层:  0
   
6. 输入选项
   
7. [?/生成(M)/设置(S)/新建(N)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/打印(P)/冻结(
   
8. F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)]: off
   
9. 
   
10. 输入要关闭的图层名列表或 <选择对象>: 0
    
11. 确实希望关闭图层“0”(当前图层)? <N> y
    
12. 输入选项
    
13. [?/生成(M)/设置(S)/新建(N)/开(ON)/关(OFF)/颜色(C)/线型(L)/线宽(LW)/打印(P)/冻结(
    
14. F)/解冻(T)/锁定(LO)/解锁(U)/状态(A)]:
    

复制代码

黄河之水

楼上说得对,按提示做,一步也不能少

sfjlx

谢谢!能不能告诉我,怎样关闭所有图层?

fools

[php]
(DEFUN c:ppp (/ O_CMD O_EXP)
  (SETQ o_cmd (GETVAR "cmdecho"))
  (SETVAR "cmdecho" 0)
  (SETQ o_exp (GETVAR "expert"))
  (SETVAR "expert" 1)
  (COMMAND "_.-layer" "_off" "*" "")
  (SETVAR "expert" o_exp)
  (SETVAR "cmdecho" o_cmd)
  (PRINC)
)
[/php]

sfjlx

非常感激各位朋友!五楼的大侠这句  (COMMAND "_.-layer" "_off" "*" "")
应改为 (COMMAND "_.-layer" "_off" "*" "y" "")

happyboy75

;;//////////////////////////////////////////////////////////////////
;;;关闭所有图层
;;//////////////////////////////////////////////////////////////////
(DEFUN C:offall   ()
                (setvar "cmdecho" 0)
                (COMMAND "-LAYER"  "off" "*" "")
                (setvar "cmdecho" 1)
                (princ)
)