• Durimar
  • Восстановленный участник
  • На форуме с 9 марта 2005г.
  • Сообщений: 29
  • Спасибо: 0

Тема: Units - миллиметры, дюймы и тд

Здравствуйте!
У меня возникла необходимость менять системы измерения (дюймовую на метрическую и наоборот) при вставке блоков и внешних ссылок. Но в VBA F1 по этой теме оказалась довольно скудной. Всё, что она предлагает это описание object.Units без примера использования. Но при этом есть примечание, что необходимо использовать IAcadBlock3 interface. Второй вариант - использовать командную строку. Через командную строку работает так:

 ThisDrawing.SendCommand "INSUNITS" & vbCr & "4" & vbCr

Подскажите пожалуйста, как проделать эту операцию используя VBA. Спасибо за ответ.

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Units - миллиметры, дюймы и тд

ThisDrawing.SetVariable "insunits", 4

Наверное, так...