• Mbus
  • Восстановленный участник
  • На форуме с 26 апреля 2004г.
  • Сообщений: 112
  • Спасибо: 0

Тема: Проблема: Вставка блока под углом

Вот есть функция

Sub insert_block(tochka As Variant,angle As Double, path As String)
     Dim block As Object
     If (ThisDrawing.ActiveSpace = acModelSpace) Then
        Set block= ThisDrawing.ModelSpace.InsertBlock(tochka, path, 1, 1, 1, angle)
     Else
        Set block= ThisDrawing.PaperSpace.InsertBlock(tochka, path, 1, 1, 1, angle)
     End If
End Sub

вот ее вызов

Call insert_block(<точка вставки>, <угол наклона>,"<путь>")

Не могу понять почему когда я ставлю угол наклона 90 градусов, то блок встает как-то не так, как-будто градусов 120 есть. пыталась экспперементировать с градусами..никак не соображу - поворачивает как хочет. Нормально срабатывает 0 и -90

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: Проблема: Вставка блока под углом

Угол задаешь в радианах?

  • Mbus
  • Восстановленный участник
  • На форуме с 26 апреля 2004г.
  • Сообщений: 112
  • Спасибо: 0

Re: Проблема: Вставка блока под углом

ОЙ! точно! вот невнимательность то, в градусах пишу, а надо то в радианах. И главное ведь еще по ходу всего из радиан перевожу в градусы чтобы передать в функцию, тьфуты нуты.
спасибо )))