• leliknt
  • Активный участник
  • На форуме с 4 июля 2002г.
  • Сообщений: 135
  • Спасибо: 0

Тема: PolarPoint

Уважаемые знатоки.
Есть код

Dim pt0() As Double
Dim pt(0 To 2) As Double
Dim angle As Double
pt(0) = 0: pt(0) = 0: pt(2) = 0
pt0 = ThisDrawing.Utility.PolarPoint(pt, angle, 4)

При выполнения кода выдает ошибку "Недопустимый аргумент Point в PolarPoint"
Подскажите где я ошибся

  • Sari
  • Sari
  • Участник
  • На форуме с 24 ноября 2008г.
  • Сообщений: 71
  • Спасибо: 2

Re: PolarPoint

Пример из help

Sub Example_PolarPoint()
    'Этот пример находит координату точки, которая является данным 
    'расстоянием и углом от базовой точки.
    
    Dim polarPnt As Variant
    Dim basePnt(0 To 2) As Double
    Dim angle As Double
    Dim distance As Double
    
    basePnt(0) = 2#: basePnt(1) = 2#: basePnt(2) = 0#
    angle = 0.1744444   ' 45 degrees
    distance = 5
    polarPnt = ThisDrawing.Utility.PolarPoint(basePnt, angle, distance)
    
    'Создайте линию от базовой точки до полярной точки
    Dim lineObj As AcadLine
    Set lineObj = ThisDrawing.ModelSpace.AddLine(basePnt, polarPnt)
    ZoomAll
    
End Sub