CAD Viewport scale reset and cleaner

;; =========================================================================
;; AutoCAD Scale List Purge & Reconstruction Utility
;; Generated by CADGuide.tools
;; -------------------------------------------------------------------------
;; 💡 Usage: 
;; 1. Open CAD, enter APPLOAD Load this LISP file. 
;; 2. Type ResetScaleList in the command line and press Enter to run.. 
;; =========================================================================

(defun c:ResetScaleList (/)
  (setvar "CMDECHO" 0)
  (princ "\n[CADGuide] Initializing drawing viewport scale data...")
  
  ;; Step 1: Run CAD Built-in command line scale reset, first restore factory configuration
  (command "-SCALELISTEDIT" "Reset" "Yes" "Exit")
  
  ;; Step 2: Use the dictionary function to completely cancel the proportion list data, Prevent redundant caching of xrefs
  (dictremove (namedobjdict) "ACAD_SCALELIST")
  
  ;; Step 3: Reactivate and create a clean scale list dictionary
  (command "-SCALELISTEDIT" "Reset" "Yes" "Exit")
  
  ;; Step 4: According to your configuration, Automatic writing of preserved/reconstructed standard scales on demand
  (princ "\n[CADGuide] Rebuilding the selected standard scale structure...")
  (command "-SCALELISTEDIT" "Add" "1:1" "1:1" "Exit")
  (command "-SCALELISTEDIT" "Add" "1:2" "1:2" "Exit")
  (command "-SCALELISTEDIT" "Add" "1:5" "1:5" "Exit")
  (command "-SCALELISTEDIT" "Add" "1:10" "1:10" "Exit")
  (command "-SCALELISTEDIT" "Add" "1:20" "1:20" "Exit")
  (command "-SCALELISTEDIT" "Add" "1:50" "1:50" "Exit")
  (command "-SCALELISTEDIT" "Add" "1:100" "1:100" "Exit")
  (command "-SCALELISTEDIT" "Add" "1:200" "1:200" "Exit")
  (command "-SCALELISTEDIT" "Add" "1:500" "1:500" "Exit")
  (command "-SCALELISTEDIT" "Add" "1:1000" "1:1000" "Exit")
  
  (setvar "CMDECHO" 1)
  (princ "\n[CADGuide] The scale list was reset successfully! Invalid reference scales have been eliminated. ")
  (princ)
)