求优化

無恒的地盘

2. (defun C:R2(/ ent)
   
3.                   (princ "\n对象物体改为 RC2天花造型 图层")
   
4.                   (setq ent (ssget))
   
5.                   (command "LAYER" "M" "RC2天花造型" "c" "2" """")
   
6.                   (command "change" ent "" "p" "layer" "RC2天花造型" """"))
   
7. 
   
8. (defun C:R3(/ ent)
   
9.                   (setvar "CMDECHO" 0)
   
10.                   (princ "\n对象物体改为 RC3灯位标注 图层")
    
11.                   (command "LAYER" "M" "RC3灯位标注" "c" "8" """")
    
12.                   (setq ss (ssget '((0 . "DIMENSION,LEADER,TEXT,MTEXT"))))
    
13.                   (command "change" "p" "" "p" "layer" "RC3灯位标注" "c" "bylayer" ""))

(defun C:R2(/ ent)<br />                   (princ "\n对象物体改为 RC2天花造型 图层")<br />                   (setq ent (ssget))<br />                   (command "LAYER" "M" "RC2天花造型" "c" "2" """")<br />                   (command "change" ent "" "p" "layer" "RC2天花造型" """"))<br /> <br /> (defun C:R3(/ ent)<br />                   (setvar "CMDECHO" 0)<br />                   (princ "\n对象物体改为 RC3灯位标注 图层")<br />                   (command "LAYER" "M" "RC3灯位标注" "c" "8" """")<br />                   (setq ss (ssget '((0 . "DIMENSION,LEADER,TEXT,MTEXT"))))<br />                   (command "change" "p" "" "p" "layer" "RC3灯位标注" "c" "bylayer" ""))

求优化代码，以上是图层转换命令可以使用，但我觉得下面那个命令是可以优化的，不过自己不会，请大师帮忙