求优化
本帖最后由 無恒的地盘 于 2011-11-11 20:04 编辑(defun C:R2(/ ent)
(princ "\n对象物体改为 RC2天花造型 图层")
(setq ent (ssget))
(command "LAYER" "M" "RC2天花造型" "c" "2" """")
(command "change" ent "" "p" "layer" "RC2天花造型" """"))
(defun C:R3(/ ent)
(setvar "CMDECHO" 0)
(princ "\n对象物体改为 RC3灯位标注 图层")
(command "LAYER" "M" "RC3灯位标注" "c" "8" """")
(setq ss (ssget '((0 . "DIMENSION,LEADER,TEXT,MTEXT"))))
(command "change" "p" "" "p" "layer" "RC3灯位标注" "c" "bylayer" ""))
求优化代码，以上是图层转换命令可以使用，但我觉得下面那个命令是可以优化的，不过自己不会，请大师帮忙
页:
[1]