;sortiert Maßstabsliste nach Zeicheneinheiten (kleinstes zuerst)
;Xref-Maßstäbe werden mitsortiert
(defun ScalelistSort ( / aktCannoScale Maßstäbe Maß-Liste ENTScale Zähler1)
(setq aktCannoScale (getvar "CannoScale"));holt aktuellen Maßstab
(setq Maßstäbe (dictsearch (namedobjdict) "ACAD_SCALELIST"))
(setq
  Maßstäbe (vl-remove-if-not '(lambda (x) (= (car X) 350)) Maßstäbe)
)
(setq Maß-Liste nil)
(foreach teil Maßstäbe
  (setq ENTScale (entget (cdr teil)))
  (setq	Maß-Liste (cons	(list (cdr (assoc 300 ENTScale))
      (cdr (assoc 140 ENTScale))
      (cdr (assoc 141 ENTScale))
      (cdr teil)
)
Maß-Liste
  )
  )
)
(setq Maß-Liste
(vl-sort Maß-Liste '(lambda (e1 e2)(< (car (cdr (cdr e1))) (car (cdr (cdr e2))))));sortiern nach dem 3.ten Atom (Zeicheneinheiten) der Liste (kleinstes zuerst)
)

(setq Maßstäbe (dictsearch (namedobjdict) "ACAD_SCALELIST"))
(setq Zähler1 -1)
(entmod
  (mapcar
    '(lambda (x)
      (if (= (car X) 350)
(progn	(setq Zähler1 (1+ Zähler1))
(cons 350 (cadddr (nth Zähler1 Maß-Liste)))
)
x
      )
    )
    Maßstäbe
  )
)
(command "CannoScale" aktCannoScale);setzt alten Maßstab aktuell
)
(ScalelistSort)