Go to: http://discussion.autodesk.com/threa...hreadID=598934 and look for ScaleListDel.lsp Updated version (0.7) by Steve Johnson. Great tool!
I added "SCALELISTDELALL" to my menu.
Customized it for my needs adding code for my Scale List commands ""SCALELISTCIVIL and "SCALELISTCIVILTEMPLATE".
Code:
(defun C:SCALELISTCIVIL ()
(scaledel_smart_reset)
(prompt "\nDeleting existing unused scales...")
(scaledel_wcard "*")
(prompt "\nCreating civil scales...")
(scaledel_create_civil)
(princ)
) ; End C:SCALELISTCIVIL
(defun C:SCALELISTCIVILTEMPLATE ()
(if (= (scaledel_warning) "Yes")
(progn
(scaledel_smart_reset)
(prompt "\nDeleting all existing scales...")
(scaledel_all_unsafe)
(prompt "\nCreating civil scales...")
(scaledel_create_civil)
)
)
(princ)
) ; End C:SCALELISTCIVILTEMPLATE
;;; --------------------------------------------------------------------------
;; *** Note: several uncommon scales have been commented out.
;; Delete the leading semi-colon to make a scale active.
;; You can comment out an unwanted scale by placing a semi-colon at
;; the start of its line.
(defun scaledel_create_civil ()
(scaledel_create_scales
'(
; ("1:1" "1:1")
; ("1:2" "1:2")
; ("1:3" "1:3")
; ("1:4" "1:4")
("1:5" "1:5")
("1:10" "1:10")
("1:20" "1:20")
("1:30" "1:30")
("1:40" "1:40")
("1:50" "1:50")
("1:60" "1:60")
("1:100" "1:100")
("1:200" "1:200")
("1:300" "1:300")
("1:400" "1:400")
("1:500" "1:500")
("1:600" "1:600")
("1:1000" "1:1000")
("1:1/4 mile" "1:1320")
("1:1/2 mile" "1:2640")
("1:mile" "1:5280")
)
)
) ; End scaledel_create_civil
Good Luck,