;; --------- Fix scale ---------


(princ "\n****************************************")
(princ "\nART_echelle is commence ...")

(while (assoc 350 (dictsearch (namedobjdict) "ACAD_SCALELIST"))

(progn

(vla-delete (vlax-ename->vla-object (cdr (assoc 350 (dictsearch (namedobjdict) "ACAD_SCALELIST")))))

)

)



	(command "-scalelistedit" "r" "o" "q")
	(command "-scalelistedit" "s" "*" "q")

	(command "-scalelistedit" "a" "1/5" "1000:5" "q")
	(command "-scalelistedit" "a" "1/10" "1000:10" "q")
	(command "-scalelistedit" "a" "1/12.5" "1000:12.5" "q")
	(command "-scalelistedit" "a" "1/20" "1000:20" "q")
	(command "-scalelistedit" "a" "1/25" "1000:25" "q")
	(command "-scalelistedit" "a" "1/30" "1000:30" "q")
	(command "-scalelistedit" "a" "1/40" "1000:40" "q")
	(command "-scalelistedit" "a" "1/50" "1000:50" "q")
	(command "-scalelistedit" "a" "1/75" "1000:75" "q")
	(command "-scalelistedit" "a" "1/100" "1000:100" "q")
	(command "-scalelistedit" "a" "1/125" "1000:125" "q")
	(command "-scalelistedit" "a" "1/150" "1000:150" "q")
	(command "-scalelistedit" "a" "1/200" "1000:200" "q")
	(command "-scalelistedit" "a" "1/250" "1000:250" "q")
	(command "-scalelistedit" "a" "1/300" "1000:300" "q")
	(command "-scalelistedit" "a" "1/400" "1000:400" "q")
	(command "-scalelistedit" "a" "1/500" "1000:500" "q")
	(command "-scalelistedit" "a" "1/600" "1000:600" "q")
	(command "-scalelistedit" "a" "1/750" "1000:750" "q")
	(command "-scalelistedit" "a" "1/800" "1000:800" "q")
	(command "-scalelistedit" "a" "1/1 000" "1000:1000" "q")
	(command "-scalelistedit" "a" "1/1 250" "1000:1250" "q")
	(command "-scalelistedit" "a" "1/1 500" "1000:1500" "q")
	(command "-scalelistedit" "a" "1/2 000" "1000:2000" "q")
	(command "-scalelistedit" "a" "1/2 500" "1000:2500" "q")
	(command "-scalelistedit" "a" "1/3 000" "1000:3000" "q")
	(command "-scalelistedit" "a" "1/4 000" "1000:4000" "q")
	(command "-scalelistedit" "a" "1/5 000" "1000:5000" "q")
	(command "-scalelistedit" "a" "1/6 000" "1000:6000" "q")
	(command "-scalelistedit" "a" "1/7 500" "1000:7500" "q")
	(command "-scalelistedit" "a" "1/8 000" "1000:8000" "q")
	(command "-scalelistedit" "a" "1/10 000" "1000:10000" "q")
	(command "-scalelistedit" "a" "1/12 500" "1000:12500" "q")
	(command "-scalelistedit" "a" "1/15 000" "1000:15000" "q")
	(command "-scalelistedit" "a" "1/20 000" "1000:20000" "q")
	(command "-scalelistedit" "a" "1/30 000" "1000:30000" "q")
	(command "-scalelistedit" "a" "1/40 000" "1000:40000" "q")
	(command "-scalelistedit" "a" "1/50 000" "1000:50000" "q")
	(command "-scalelistedit" "a" "1/60 000" "1000:60000" "q")
	(command "-scalelistedit" "a" "1/80 000" "1000:80000" "q")
	(command "-scalelistedit" "a" "1/75 000" "1000:75000" "q")
	(command "-scalelistedit" "a" "1/100 000" "1000:100000" "q")
	(command "-scalelistedit" "a" "1/150 000" "1000:150000" "q")
	(command "-scalelistedit" "a" "1/200 000" "1000:200000" "q")
	(command "-scalelistedit" "a" "1/300 000" "1000:300000" "q")
	(command "-scalelistedit" "a" "1/400 000" "1000:400000" "q")
	(command "-scalelistedit" "a" "1/500 000" "1000:500000" "q")
	(command "-scalelistedit" "a" "1/600 000" "1000:600000" "q")
	(command "-scalelistedit" "a" "1/750 000" "1000:750000" "q")
	(command "-scalelistedit" "a" "1/800 000" "1000:800000" "q")
	(command "-scalelistedit" "a" "1/900 000" "1000:900000" "q")
	(command "-scalelistedit" "a" "1/1 000 000" "1000:1000000" "q")






(princ "\nLes échelles sont prêtes à être utilisées pour un dessin en mètre et une impression en mm ")
(princ "\n****************************************")

(princ "\n****************************************")
(princ "\nLe modifs des variables")

	(command "AUNITS" "0")
	(command "fieldeval" "31")
	(command "MIRRTEXT" "0")

(princ "\nOpération terminée")
(princ "\n****************************************")

	(command "LAYOUTREGENCTL" "1")