这段代码怎么做优化？

sunqv

(defun c:zh ()   
        (setvar "cmdecho" 0)  
        (command "layon")  
        (setvar "cmdecho" 1)
        (prin1)
) ;;打开所有图层




(defun c:yd ()     
        (setvar "cmdecho" 0)
        (command "layon")   
        (command "layer" "off" "lt*,ds*,dx*,jy*,jk*,cs*,gd*,dt*,xh*,ys*,ws*,js*,zs*,zh*,tr*,rl*" "")       
        (setvar "cmdecho" 1)
        (prin1)
)  


(defun c:lt ()     
        (setvar "cmdecho" 0)
        (command "layon")   
        (command "layer" "off" "yd*,ds*,dx*,jy*,jk*,cs*,gd*,dt*,xh*,ys*,ws*,js*,zs*,zh*,tr*,rl*" "")       
        (setvar "cmdecho" 1)
        (prin1)
)  




(defun c:ds ()     
        (setvar "cmdecho" 0)
        (command "layon")   
        (command "layer" "off" "lt*,yd*,dx*,jy*,jk*,cs*,gd*,dt*,xh*,ys*,ws*,js*,zs*,zh*,tr*,rl*" "")       
        (setvar "cmdecho" 1)
        (prin1)
)  

菜卷鱼

问题是你想要怎样优化，你对现在哪里不满意？

sunqv

四年前的问题了………