- ;图层冻结-------
- (defun c:ko nil
- (if (/= (getvar "clayer") 0)
- (vl-cmdf "-LAYER" "S" 0 ""))
- (vl-cmdf "LAYFRZ" "S" "V" "V" "")
- (if (= cost_faf 0)
- ((vl-cmdf "LAYFRZ" "S" "B" "B")
- (setq cost_faf 1)) ;设置变量
- ((vl-cmdf "LAYFRZ" "S" "B" "E")
- (setq cost_faf 0))
- )
- )
|