(defun C:Mclean ( / OldLay FrzLay Counter rpt)
(setq OldLay (getvar "CLAYER" ))
(setq FrzLay (cdr (assoc 70 (tblsearch "LAYER" "Defpoints"))))
(setq Counter 1)
(if (or (= FrzLay 1) (= FrzLay 5)) (command ".-layer" "Thaw" "defpoints" "") ( ))
(if (tblsearch "LAYER" "Defpoints") (setvar "CLAYER" "Defpoints") ( ))
(setq rpt(getint "\nKAÇ TEKRAR? <1> :"))
(if (not rpt) (setq rpt 1))
(repeat rpt
(command "-Purge" "All" "*" "N")
(command "-Purge" "R" "*" "N")
(command "-overkill" "All" "" "")
(command "audit" "Y")
(princ (strcat "*************** OVERKILL PURGE AUDIT TAMAMLANDI. ***************\n"))
(princ (strcat "************ İŞE YARAMADI MI? O ZAMAN >> WBLOCK DENEYIN << *************\n"))
(setq Counter (1+ Counter))
)
(if (= (tblsearch "LAYER" OldLay) nil) (setvar "CLAYER" "0") (setvar "CLAYER" OldLay))
(if (or (= FrzLay 1) (= FrzLay 5)) (command ".-layer" "Freeze" "defpoints" "") ( ))
(princ)
)