РЕДАКТИРОВАНИЕ СТАНДАРТНОГО СПИСКА МАСШТАБОВ

Tools -> Options -> User Preferences -> Edit Scale List

так открой шаблон, который по умолчанию используется (например acadiso.dwt) , забей масштабы и сохрани.  во всех новых чертежах они будут.

LeonidSN,
спасибо - ключевой момент,
масштабы забиваются, какие нужно,
и с каждым новым "объектом" этот список есть,
НО список меняется!
У "Нас" список выростает до вертикальной стороны монитора! - ВО ВЕСЬ ЭКРАН :)
появляются артифакты типа
1_1000
1_100_2
пичём характеристики их идентичны уже забитым - это дубликаты!
лечится дело граф. кнопкой reset - справа от списка.
НО после reset опять "дюймовые" масштабы и список не мой.
(!?) Может есть возможность подредактировать что, дабы после reset список привращался в мой?
(!?) Или может переменную какую переключить чтоб список ТАК не рос.. ?
Как Вы думаете?

Command: -scalelistedit
Enter option [?/Add/Delete/Reset/Exit] <Add>: r
Reset scale list to defaults? [Yes/No] <No>: y
Scale list reset to default entries.

Возможность есть

Не ставит масштабы вида 1:25, ну или 1:13.

По ссылке лежит лисп, который изменяет список масштабов на свой, заранее составленный список.
Вот этот:

Если здесь поставить масштабы вида 1:25, ну или 1:13 или другой, то они не будут выполнены. В меню Формат/Список масштабов их не будет.

ARX, Ты не внимательно читал. Цитата по ссылке

Там ничего не говорится про добавление

Владимир, вот лисп:

;;;Удаляем  все масштабы (scalelist) не перечисленные в списке-шаблоне
(defun restore-scale-list ()
  (vl-load-com)
  (foreach sc (dictsearch (namedobjdict) "acad_scalelist")
    (if (and (= (car sc) 350)
             (not (member (cdr (assoc 300 (entget (cdr sc))))
                          '("1:1" "1:2" "1:10" "1:50" "1:100" "2:1") ;_Здесь перечисляем нужные масштабы
                  ) ;_ end of member
             ) ;_ end of not
        ) ;_ end of and
      (vl-catch-all-apply
        'vla-delete
        (list (vlax-ename->vla-object (cdr sc)))
      ) ;_ end of vl-catch-all-apply
    ) ;_ end of if
  ) ;_ end of foreach
) ;_ end of defun
(restore-scale-list)

строку

'("1:1" "1:2" "1:10" "1:50" "1:100" "2:1") ;_Здесь перечисляем нужные масштабы

меняю на строку

'("1:1" "1:13" "1:2" "1:5" "1:10" "1:25" "1:50" "1:100" "1:1000") ;_Здесь перечисляем нужные масштабы

В результате по команде Формат/Список масштабов получаю следующее:
1:1, 1:2, 1:5, 1:10, 1:50, 1:100
Что делаю не так?

----

AlexV,
со страшно длинным списком масштабов боротся нужно следующим лиспом:

(defun restore-scale-list ()
  (command "_.-scalelistedit" "_r" "_y" "_e")
  ) ;_ end of defun

(restore-scale-list)

сам лисп закидывай в автозагрузку автокада и все, проблема решена.
Сам лисп не мой, к стыду своему автора не помню, но кто-то из гуру автокада, КРЫС или VK.

Написал небольшую программу на основе VVA для анализа и автоматического удаления длинного списка масштабов. Если список масштабов больше 50, то запускается очистка-это попытка воспроизвести реакцию на длинные списки масштабов реализованную в ACAD 2009. Может кому пригодится.

;;; Удаляем  все масштабы, если их больше 50
;;; Moltasov AI 21.10.2008
(defun c:scalelist_del ( / n sc sc1)
  (setq n 0);счетчик кол-ва масштабов
  (foreach sc (dictsearch (namedobjdict) "acad_scalelist")
    (if (= (car sc) 350)
        (foreach  sc1 (entget (cdr sc))
     (if (= (car sc1) 300)
        (setq n (+ n 1))
     );if
        );for
    );if
  ) ;end of foreach
(textscr)
(princ "\nTotal:")(princ n)
(if (> n 50)
    (progn 
      (princ "\n\nСлишком много масштабов (")
      (princ n)
      (princ ")-запускаем процедуру уменьшения количества\n\n")
      (command "-scalelistedit" "_R" "_Y" "_E")
    )
    (princ "\nВсе в порядке")
)
(princ)
)

Для автоматического запуска найти и вставить в файл acad2008doc.lsp следующие строки

(load "scalelist_del")
(c:scalelist_del)

сохранив приведенный код программы под именем scalelist_del.lsp в acad'овскую папку Support.
Теперь при открытии любого чертежа будет выполнятся данная программа.