图层快速转换

琴剑江山_10184

(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



该贴已经同步到 琴剑江山_10184的微博

潇湘飞雨

路过  纯支持！！！