 - (defun c:cc (/ ss); 作者:Andyhon
-
- (setq ss (ssget '((0 . "CIRCLE"))))
- (if (setq ss50+ (ssget "P" '((-4 . ">") (40 . 25))))
- (command "Chprop" ss50+ "" "layer" "02" "")
- )
- (command "Select" ss "")
- (if (setq ss50 (ssget "P" '((-4 . "<=") (40 . 25))))
- (command "Chprop" ss50 "" "layer" "01" "")
- )
- )
|