• На форуме с 30 июня 2010г.
  • Сообщений: 48
  • Спасибо: 1

Тема: Перенос блока с атрибутами

Здравствуйте знатоки!  Подскажите пожалуйста! у меня есть блок с атрибутами на листе(блок штампа заполненного)  , мне нужно его перенести в другую координату. Команда  objLayout.Block.InsertBlock( _
                          varInsPt, psBlockRamk, 1, 1, 1, 0)  не подходит. Может есть команда переноса в другие координаты?

  • AnatolyN
  • Активный участник
  • Откуда: Москва
  • На форуме с 14 мая 2009г.
  • Сообщений: 178
  • Спасибо: 4

Re: Перенос блока с атрибутами

У BlockReference есть InsertionPoint, меняяем ее и блок перемещается.

Dim blockRefObj As AcadBlockReference
 ' получаем существующий BlockReference
.....
Dim newpnt(0 To 2) As Double
newpnt(0) = x: newpnt(1) = y
blockRefObj.InsertionPoint = newpnt