• На форуме с 18 июля 2005г.
  • Сообщений: 1
  • Спасибо: 0

Тема: Как измененить размеры примитивов, входящих в блок?

Здравствуйте, уважаемые!
Обращаюсь ко всем за помощью:
нужно как-то с помощью VBA сделать возможным
изменять размеры примитивов, входящих в блок,
например, длину прямоугольника,и.т.п
Как это сделать???
Подскажите, пожалуйста!

  • На форуме с 21 июня 2005г.
  • Сообщений: 21
  • Спасибо: 0

Re: Как измененить размеры примитивов, входящих в блок?

Hint:
ModelSpace - это тоже блок, в который заключены все-все примитивы
по-этому, если вместо

Set CS=ThisDrawing.ModelSpace

написать

Set CS=ThisDrawing.Blocks("MyBlock")

ничего не изменится, только "рисовать" будешь не в ModelSpace,а в блоке MyBlock