原帖由 suenhjing 于 2009-4-1 12:19 发表 1 [9 f8 G1 f+ q& r: F
比如给0层设为00,输入00命令,0层关闭,再输入00命令,0层打开,其他层不影响,谢谢各位了
" e* E/ [# U+ w) u/ Z; S* W
4 J6 ?, n( g& J- y试试这个:
( R) R$ s3 J5 q- w( S1 Z! Z5 w(defun c:00()* H5 q- h* U! [) E! g, R
(if (= (getvar "clayer") "0")
9 s, |( x8 v, g6 A (progn (command "layer" "off" "0" "Y" "")- @1 m6 A" }6 x+ K3 B
(prompt "您关闭了当前层!")
9 h* ?, @% n+ E1 B )
! \8 A3 l2 [0 v; ~ h1 G$ h% G+ p/ f (command "layer" "off" "0" "")$ N* m4 ^7 a* M
)
& R" f5 D" S3 Y7 C% i (princ)- k! j; c* I: I7 w; S
) |