琴剑江山_10184 发表于 2014-8-4 15:58:56

图层快速转换

(defun c:cn( / ss)
(setvar "CMDECHO" 0)
(if (not (tblsearch "layer" "center"))
      (command "-layer" "n" "center" "c" "1" "center" "L" "center2" "center" "")
      (princ "\nCenter层已存在")
      );if
(setq ss (ssget))
(if (null ss)
      (setvar "clayer" "center")
      (command "_.chprop" ss "" "la" "center" "")
      );if
);defun



http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 琴剑江山_10184的微博

潇湘飞雨 发表于 2014-8-11 15:19:20

路过纯支持！！！
页: [1]
查看完整版本: 图层快速转换