• SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Тема: InsertBlock & GetAngle

Public Sub IB()
Dim MSpace, Acad, ADoc As Object
Dim blockname As String
Set Acad = GetObject(, "AutoCAD.Application")
Set ADoc = Acad.ActiveDocument
Set MSpace = ADoc.ModelSpace
blockname = "C:\1.dwg"
    Dim retAngle As Double
    Dim returnPnt As Variant
    returnPnt = ThisDrawing.Utility.GetPoint
    retAngle = ThisDrawing.Utility.GetAngle(returnPnt, "Enter an angle: ")
Set blockRefObj = MSpace.InsertBlock(returnPnt, blockname, 1, 1, 1, retAngle)
End Sub

Все вставляется только угол, не соответствует тому, что я указывал маусом. Как пересчитать данный угол, чтоб вставляемый объект был необходимого угла?

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: InsertBlock & GetAngle

Вопрос снят, вот решение :)

Set blockRefObj = MSpace.InsertBlock(returnPnt, blockname, 1, 1, 1, 4.71239 + retAngle)

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: InsertBlock & GetAngle

4.71239 - уж больно сильно напоминает 1,5PI. Решение наверняка сработает только в данной конкретной ситуации. Может, проблема в преобразовании точек в мировую систему и обратно?
---
ИМХО и на уровне предположений