本帖最后由 ZZXXQQ 于 2015-8-31 15:37 编辑
 - (defun c:tt ()
- (if (setq ss (ssget "X" '((8 . "1"))))
- (command "-LAYER" "C" "1" "1" "" "_.CHPROP" ss "" "C" "bylayer" "")
- )
- (if (setq ss (ssget "X" '((8 . "2"))))
- (command "-LAYER" "C" "2" "2" "" "_.CHPROP" ss "" "C" "bylayer" "")
- )
- ;...
- (princ)
- )
|