[overdrive]

Доброго времени суток!

Использую ЭТУ библиотеку фитингов в .dwg.
БОльшая часть файлов сохранена в дюймах. Приходится вручную открывать каждый файл перед использованием и сохранять его в мм (_units). Это достаточно муторно. Вынужден переименовывать файлы и использовать суффиксы в именах. У меня уже накопилась кучка файлов с измененными единицами, но хочется автоматизировать процесс. Конечно, можно качать модели отсюда, но по одной, и это уж точно не быстрее, чем изменить ед-цы измерения.

Вопрос:
Как мне массово изменить единицы измерения группы файлов?

С автокадовыми скриптами, к сожалению, не дружу.

[Кулик Алексей aka kpblc]

overdrive, ты уверен, что вопрос должен быть не в ветке "Программирование" или "Поиск исполнителей"?

[overdrive]

Нет, не уверен. Если нужно переместить, прошу модераторов это сделать.

[Valery Brelovsky]

Для Автокада использую макрос, который при сохранении выставляет нужные мне настройки файла в том числе и еденицы "^C^C_INSUNITS 0;" в данном случае без едениц.
^C^C_INSUNITS 0; ^C^C_dimscale 0; ^C^C_DIMALTF 25.4; ^C^C(if (not C:EXPLODEALLPROXY) (arxload "ExplodeProxy2013.arx")) _EXPLODEALLPROXY;_REMOVEALLPROXY;_AUDIT;_Y; ^C^C_qsave;
Может где что и не правильно но результат меня устраивает.

[VVA]

overdrive, Если ты пересохраняешь в мм только чтобы не менялся масштаб при вставке, то просто отключи (можно на время) INSUNITS. Переменные INSUNITSDEFSOURCE и INSUNITSDEFTARGET

Код:

[Выделить все]

(if (getvar "INSUNITSDEFSOURCE")(setvar "INSUNITSDEFSOURCE" 0))
(if (getvar "INSUNITSDEFTARGET")(setvar "INSUNITSDEFTARGET" 0))

Valery Brelovsky, В ранних версиях Автокада (на поздних не тестировал) наблюдал, что если INSUNITS=0, а в настройках INSUNITSDEFSOURCE и INSUNITSDEFTARGET не 0, то все равно было масштабирование. Для перестраховки добавил бы в твой макрос еще и обнуление этих переменных

[overdrive]

Попробовал. Если выставить INSUNITS, INSUNITSDEFSOURCE и INSUNITSDEFTARGET =0, то вставляет "дюймовый" блок как мне нужно, но блок все равно остается в дюймах. Мне это не удобно. Хотелось бы иметь базу в ММ или unitless, и не заморачиваться в дальнейшем с масштабами и единицами измерений.

[Valery Brelovsky]

Сообщение от VVA Valery Brelovsky, В ранних версиях Автокада (на поздних не тестировал) наблюдал, что если INSUNITS=0, а в настройках INSUNITSDEFSOURCE и INSUNITSDEFTARGET не 0, то все равно было масштабирование. Для перестраховки добавил бы в твой макрос еще и обнуление этих переменных

Спасибо добавил!
Проверил обнуляет. Теперь выглядит так.
^C^C_INSUNITS 0; ^C^C_INSUNITSDEFSOURCE 0; ^C^C_INSUNITSDEFTARGET 0; ^C^C_dimscale 0; ^C^C_DIMALTF 25.4; ^C^C(if (not C:EXPLODEALLPROXY) (arxload "ExplodeProxy2013.arx")) _EXPLODEALLPROXY;_REMOVEALLPROXY;_AUDIT;_Y; ^C^C_qsave;

[Кулик Алексей aka kpblc]

Без проверки. Код должен сделать все блоки в файле "безразмерными". Ну и заодно переменные обнуляет

Код:

[Выделить все]

 (vl-load-com)

(defun tt (/ adoc)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (foreach item '("insunits" "insunitsdefsource" "insunitsdeftarget")
    (setvar item 0)
    ) ;_ end of foreach
  (vlax-for blk_def (vla-get-blocks adoc)
    (if (and (equal (vla-get-islayout blk_def) :vlax-false)
             (equal (vla-get-isxref blk_def) :vlax-false)
             ) ;_ end of and
      (vla-put-units blk_def acunitless)
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun