• Dimas
  • Восстановленный участник
  • На форуме с 25 июля 2006г.
  • Сообщений: 48
  • Спасибо: 0

Тема: Координаты штриховки

как получить координаты hatch (штриховки)

  • Vildar
  • Активный участник
  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Координаты штриховки

По геометрическому центру попробуй.
получил точки по GetBoundingBox, и вычисляй )))
Так, на уровне предположения.

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

Re: Координаты штриховки

GetLoopAt и пример посмотри.

  • Dimas
  • Восстановленный участник
  • На форуме с 25 июля 2006г.
  • Сообщений: 48
  • Спасибо: 0

Re: Координаты штриховки

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

  • FrDrake
  • Активный участник
  • На форуме с 14 мая 2009г.
  • Сообщений: 120
  • Спасибо: 1

Re: Координаты штриховки

Использую метод GetLoopAt

Dim sSetObj As AcadSelectionSet
Dim gpCode(0) As Integer
Dim dataValue(0) As Variant
Dim innersOBJ As Variant
Dim J As Long
Dim jX As Long
gpCode(0) = 0
dataValue(0) = "HATCH"
Set sSetObj = ThisDrawing.SelectionSets.Add("HHH1HHHHHHHHHHHHHHHHHHH")
sSetObj.Select acSelectionSetAll, , , gpCode, dataValue
On Error Resume Next
For J = 0 To sSetObj.Count - 1
    jX = 0
    Err.Clear
    Do Until Not IsEmpty(innersOBJ)
    sSetObj.Item(J).GetLoopAt jX, innersOBJ
    If Err Then Exit Do
    jX = jX + 1
    Loop
    If IsEmpty(innersOBJ) Then
    MsgBox "Штриховка №" & J & vbCrLf & "Объекты не обнаружены"
    Else
    MsgBox "Штриховка №" & J & vbCrLf & "Кол-во объектов:" & UBound(innersOBJ) + 1
    End If
    innersOBJ = Empty
Next
sSetObj.Delete

не понятно как получить объекты из которых состоит заливка если она не ассоциативная????