• На форуме с 8 апреля 2009г.
  • Сообщений: 5
  • Спасибо: 0

Тема: Установка Global scale, Drawing Units, Current object scale

Приветствую! Помогите решить следующую проблему:
необходимо с помощью VBA установить Drawing Units(команда un), Global scale и current object scale.
Пробежал по всему хелпу, нашел установку только для Листа(Layout) или блоков(или размеров), но это все не то.
Нужно именно на ModelSpace, глобально как в командe "un".
Помогите пожалуйста

Ответ от sim_p (изменено: Павел Симонов, 14 января 2010г. 14:06:34)

  • На форуме с 8 апреля 2009г.
  • Сообщений: 5
  • Спасибо: 0

Re: Установка Global scale, Drawing Units, Current object scale

Итак, нашел как ставить Global Scale:
в командной строке вбить LTSCALE с указанием масштаба, например
ThisDrawing.SendCommand ("LTSCALE 100 ")

Остались два других вопроса...

Ответ от sim_p (изменено: Павел Симонов, 14 января 2010г. 15:04:53)

  • На форуме с 8 апреля 2009г.
  • Сообщений: 5
  • Спасибо: 0

Re: Установка Global scale, Drawing Units, Current object scale

Продолжаем....
установка формата:
ThisDrawing.SendCommand ("LUNITS 2 ") - установит Decimal
ThisDrawing.SendCommand ("INSUNITS 4 ") -  установит миллиметры

  • На форуме с 12 февраля 2009г.
  • Сообщений: 26
  • Спасибо: 0

Re: Установка Global scale, Drawing Units, Current object scale

Для VBA можно так:

...
ThisDrawing.SetVariable "INSUNITS", 4
...