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

Тема: Как заштриховать сектор, указанный точкой?

Имеем окружность с сектором построиным линиями, как заштриховать этот сектор

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

Re: Как заштриховать сектор, указанный точкой?

найди точки пересечения четырех точек от двух линий.
хотя ...
два радиуса очерчивают два сектора, который из них тебе нужен?

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

Re: Как заштриховать сектор, указанный точкой?

Я так заштриховываю объект круг.
а мне надо заштриховать не весь круг а небольшой сектор который расположен в круге строго в верху.
и я незнаю какой командой указать на эту точку находящуюся внутри сектора.
Set circ = ThisDrawing.ModelSpace.AddCircle(pnt3, 0.5 * Mas)
Set hatch = ThisDrawing.ModelSpace.AddHatch(acHatchPatternTypePreDefined, "SOLID", True)
Set arrayobject(0) = circ
hatch.AppendOuterLoop arrayobject

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

Re: Как заштриховать сектор, указанный точкой?

Штриховка ето одна из немногих вещей не доработанная в ВБ. Но в ваше случае проблема решается довольно просто
Сначала добавляете дугу
object.AddArc(Center, Radius, StartAngle, EndAngle)
А затем добавляете в массив две линии и дугу

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

Re: Как заштриховать сектор, указанный точкой?

= cadhelp =
т.е. создаем объект сектор bp 2х линий и дуги и его обычным приемом как объект и штрихуем я правильно понял?

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

Re: Как заштриховать сектор, указанный точкой?

;Нет, сначала сосдаем дугу.
Set ObjArc = ThisDrawing.ModelSpace.AddArc (Center, Radius, StartAngle, EndAngle)
;Где :
;Center - center of circle(окружность)
;Radius ? Length of  (сектором построиным линиями)
;StartAngle - ObjLin1.Angle
;EndAngle - ObjLin2.Angle
 ;Затем создаем массив
Dim arrayobject(2) As AcadEntity; ( на три елемента (0,1,2) типа AcadEntity)
;Затем добавляем в него две линии (они же радиусы(сектором построиным линиями))
Set Arrayobject(0) = ObjLin1
Set Arrayobject(1) = ObjLin2
;Hаконец добавляем туда(в массив) дугу.
Set Arrayobject(1) = ObjArc
;После етого выполняем
 hatch.AppendOuterLoop arrayobject
;;;;THE END

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

Re: Как заштриховать сектор, указанный точкой?

Set Arrayobject(2) = ObjArc
Sorry

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

Re: Как заштриховать сектор, указанный точкой?

=cadhelp=
большое спасибо !