• Romik
  • Восстановленный участник
  • На форуме с 15 октября 2001г.
  • Сообщений: 142
  • Спасибо: 0

Тема: Вставка блока

Есть ли возможность в VBA вставить блок таким образом, чтобы после укзания точки вставки появилась возможность задавать направление(угол поворота) при помощи мыши ??? Кто знает, поделитесь, plezzzz!

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

Re: Вставка блока

самое первое что приходит на ум... просто извлечь координаты точки, извлеч жалаемый угол наклона (пусть даже через временные примитивы) а потом вставить блок в жту точку с заданным углом....

  • DZEN
  • Восстановленный участник
  • На форуме с 4 июня 2005г.
  • Сообщений: 1
  • Спасибо: 0

Re: Вставка блока

А не подскажете, как вставить блок из файла. Я сделал все как написано в хелпе, но ничего не получается. Выдает сообщение об ошибке:"Wrong number of arguments or invalid property assigment (450)". Версия AutoCAD R14, VB 6.0.
Листинг:

Private Sub Postroenia_Click()
  Dim MSpace, Acad, ADoc As Object
  Dim begp(0 To 2) As Double
  Dim endp(0 To 2) As Double
  Dim InsertPoint(0 To 2) As Double
  Dim buf As Object
Dim blockname As String
Set Acad = GetObject(, "AutoCAD.Application")
Set ADoc = Acad.ActiveDocument
Set MSpace = ADoc.ModelSpace
blockname = "C:\block.dwg"
begp(0) = 10
begp(1) = 20
endp(0) = 100
endp(1) = 200
InsertPoint(0) = 2
 InsertPoint(1) = 2
 InsertPoint(2) = 0
Dim blockRefObj As Object
Set blockRefObj = MSpace.InsertBlock(InsertPoint, blockname, 1, 1, 1, 0)
End Sub