• Дашуля
  • Восстановленный участник
  • На форуме с 23 апреля 2008г.
  • Сообщений: 114
  • Спасибо: 0

Тема: PolarPoint

А можно с помощью PolarPoint нарисовать две параллельные линии???

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

Re: PolarPoint

нельзя. С помощью PolarPoint можно узнать координаты другой точки отстоящей от заданной по некоторому вектору.

  • Дарья
  • Восстановленный участник
  • На форуме с 28 января 2008г.
  • Сообщений: 237
  • Спасибо: 0

Re: PolarPoint

> Boxa
Тогда рамку со штампом не получится нарисовать

  • fixo
  • Восстановленный участник
  • На форуме с 3 июля 2008г.
  • Сообщений: 217
  • Спасибо: 0

Re: PolarPoint

> Дарья
Ну конечно можно
Для этого например задаешь точку слева
потом с помощью PolarPoint определяешь точку
справа, рисуешь линию
Повторяешь цикл от другой точки и тд
Тоже самое для вертикальных линий, просто
используй пример из Help
~'J'~

  • Дарья
  • Восстановленный участник
  • На форуме с 28 января 2008г.
  • Сообщений: 237
  • Спасибо: 0

Re: PolarPoint

> fixo
А покажите на примере 2 линий, а я сама остальное напишу!!!
В хелпе я не нашла примера.

  • fixo
  • Восстановленный участник
  • На форуме с 3 июля 2008г.
  • Сообщений: 217
  • Спасибо: 0

Re: PolarPoint

> Дарья
Ну боже ж ты мой, ну в Хэлпе все есть

Sub PolarPoints()
Dim p1(2) As Double
Dim p3(2) As Double
Dim p2 As Variant
Dim p4 As Variant
Dim oLine As AcadLine
p1(0) = 0#: p1(1) = 0#: p1(2) = 0#
p3(0) = 0#: p3(1) = 287#: p3(2) = 0#
With ThisDrawing
p2 = .Utility.PolarPoint(p1, 0, 210#) '<-- точка старта, направление в радианах, расстоянние
p4 = .Utility.PolarPoint(p3, 0, 210#) '<-- точка старта, направление в радианах, расстоянние
Set oLine = .ModelSpace.AddLine(p1, p2)
oLine.Lineweight = acLnWt060
Set oLine = .ModelSpace.AddLine(p3, p4)
oLine.Lineweight = acLnWt060
Set oLine = .ModelSpace.AddLine(p1, p3)
oLine.Lineweight = acLnWt060
Set oLine = .ModelSpace.AddLine(p2, p4)
oLine.Lineweight = acLnWt060
.Preferences.LineWeightDisplay = True
.Regen acActiveViewport
End With
End Sub

~'J'~

  • Дарья
  • Восстановленный участник
  • На форуме с 28 января 2008г.
  • Сообщений: 237
  • Спасибо: 0

Re: PolarPoint

> fixo
Сэнк Ю большое прибольшое