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

Тема: Вставка блока из файла

Подскажите пожалуста, как добавить в текущий чертеж блок из другого файла. Заранее спасибо!

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

Re: Вставка блока из файла

'Создай новый рисунок, помести в него объекты,
'из которых будет состоять блок и сохрани.
'Базовой точкой блока будет
'точка с координатами(0,0,0)
Sub InsertBlockPath()
Dim blockRefObj As AcadBlockReference 'блок
Dim InsPnt(0 To 2) As Double 'Точка вставки
Dim DocPath As String 'Путь
'Указываем путь(Block1-имя файла)
DocPath = "С:\Блоки\Block1.dwg"
'Вставка блока:
InsPnt(0) = 100: InsPnt(1) = 100: InsPnt(2) = 0
Set blockRefObj = ThisDrawing.ModelSpace. _
InsertBlock(InsPnt, DocPath, 1, 1, 1, 0)
End Sub