[evgm]

Привет!
В акаде можно указать точку и он сам определит регион для штрихавки. Как бы тоже самое сделать кодом на VBA??? и вообще созможно ли или нужно ему явным образом передавать регион для штрихования???
заранее спасибо

[Кулик Алексей aka kpblc]

попробуй поиграться с _boundary

[fixo]

Поработай над таким вариантом:
(проверено только в 2007-м)

Код:

[Выделить все]

Option Explicit
' borrowed from from Help:
Sub Example_AddHatch()

' This example creates an associative hatch in model space.
Dim hatchObj As AcadHatch
Dim patternName As String
Dim PatternType As Long
Dim bAssociativity As Boolean

' Define the hatch
patternName = "ANSI32"
PatternType = 0
bAssociativity = True

On Error GoTo Err_Control

' Create the associative Hatch object in model space
Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, _
bAssociativity)
hatchObj.PatternScale = 1.5

' Create the outer boundary for the hatch
Dim ObjLast As AcadEntity
Dim i As Integer
Dim intPt As Variant
Dim pstr As String
Dim outerLoop(0) As AcadEntity
i = ThisDrawing.ModelSpace.Count - 1

intPt = ThisDrawing.Utility.GetPoint(, "Pick the inner point of boundary")
pstr = Replace(CStr(intPt(0)), ",", ".") & "," & Replace(CStr(intPt(1)), ",", ".")
ThisDrawing.SendCommand Chr(3) & Chr(3) & "-boundary" & vbCr & pstr & vbCr & vbCr
Set ObjLast = ThisDrawing.ModelSpace.Item(i + 1)
Set outerLoop(0) = ObjLast

' Append the outerboundary to the hatch object, and display the hatch
hatchObj.AppendOuterLoop (outerLoop)
hatchObj.Evaluate
' delete boundary
ObjLast.Delete
ThisDrawing.Regen True

Err_Control:

End Sub

~'J'~

[evgm]

работать то вроде работает даже в 2006
только вот окно boundary ждет нажатия пользователем ентера...
без окна не обойтись???
да и вот простые штриховки делает отлично (круги там прямоугольники всякие)
а вот в сложных что-то путается...

[C1]

А если
1) выбором точки внутри региона нарисовать линию нулевой длины (или точку)
2) найти регион, с которым она пересекается (перебрав все объекты)через:
intPoints = regionObj.IntersectWith(lineObj, acExtendNone)
3) заштриховать регион
4) удалить линию

[evgm]

я что-то не понимаю???
IntersectWith кажется должен отдать мне массив точек пересечения двух объйктов... какие могут быть координаты пересечения точки или линии нулевой длины находящейся например внутри окружности???

[C1]

Сообщение от evgm я что-то не понимаю??? IntersectWith кажется должен отдать мне массив точек пересечения двух объйктов... какие могут быть координаты пересечения точки или линии нулевой длины находящейся например внутри окружности???

Да, не работает. Но можно попробовать операции с регионами. Так же рисуется вспомогательный регион в точке и проверяется его пересечение методом Boolean:
Region1.Boolean acIntersection, Region2

[evgm]

взгляните - может я просто неправильно формулирую вопрос...
[ATTACH]1188313102.dwg[/ATTACH]

[C1]

Сообщение от evgm взгляните - может я просто неправильно формулирую вопрос... [ATTACH]1188313102.dwg[/ATTACH]

AutoCAD 2004 у меня сейчас не установлен. А по первому посту:
ThisDrawing.SendCommand "-bhatch p angle 2 0 " (для VBA).
Для VB: AcadDocument.SendCommand "-bhatch p angle 2 0 "

[evgm]

попробую перефразировать...
я хотел бы по известным координатам ОДНОЙ точки получить
OuterLoop или InnerLoop
а уж потом я сделаю со штриховкой все что нужно....

[C1]

Сообщение от evgm попробую перефразировать... я хотел бы по известным координатам ОДНОЙ точки получить OuterLoop или InnerLoop а уж потом я сделаю со штриховкой все что нужно....

Нужно нарисовать штриховку по координатам ОДНОЙ внутренней точки 100,200:

Код:

[Выделить все]

SendCommand "-bhatch p angle 2 0 100,200 " & vbCr

angle - ее тип, 2 - масштаб, 0 - угол
Что не устраивает?
Разумеется это пример, а не кусок кода. Чтобы можно было убедиться что работает. Наверное не нужно объяснять как со строчками работать.

[Александр Ривилис]

Сообщение от evgm попробую перефразировать... я хотел бы по известным координатам ОДНОЙ точки получить OuterLoop или InnerLoop а уж потом я сделаю со штриховкой все что нужно....

Код:

[Выделить все]

_.-boundary