Штриховки

Штриховки · 12.01.2007, 08:20

Доброго всем реммени суток!!!
Возник тут вопрос по VB
Есть отрисованный линисями замкнутый контур с известными координатами углов (отрисован программой). Как его теперь программно же залить пользовательской штриховкой? В AddHath нашел как указывать координаты точки для области. Рабираться долго времени как всегда нет, помогите кто чем может :x

Кулик Алексей aka kpblc · 12.01.2007, 09:57

Сначала добавляешь Hatch в текущее пространство, потом добавляешь внешние (outerloops) и внутренние (innerloops) контуры - вроде так оне называются; в конце даешь Evaluate.

Цитата:

Сообщение от F1

Create a Hatch object
This example creates an associate hatch in model space. Once the hatch has been created, you can change the size of the circle that the hatch is associated with. The hatch will change to match the current circle size.

Код:

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

Sub Ch4_CreateHatch()
    Dim hatchObj As AcadHatch
    Dim patternName As String
    Dim PatternType As Long
    Dim bAssociativity As Boolean
    
    ' Define the hatch
    patternName = "ANSI31"
    PatternType = 0
    bAssociativity = True
    
    ' Create the associative Hatch object
    Set hatchObj = ThisDrawing.ModelSpace.AddHatch _
                   (PatternType, patternName, bAssociativity)
    
    ' Create the outer boundary for the hatch. (a circle)
    Dim outerLoop(0 To 0) As AcadEntity
    Dim center(0 To 2) As Double
    Dim radius As Double
    center(0) = 3: center(1) = 3: center(2) = 0
    radius = 1
    Set outerLoop(0) = ThisDrawing.ModelSpace. _
                       AddCircle(center, radius)
    
    ' Append the outerboundary to the hatch
    ' object, and display the hatch
    hatchObj.AppendOuterLoop (outerLoop)
    hatchObj.Evaluate
    ThisDrawing.Regen True
    
End Sub

Пример из VBA-шной справки, но для VB принципиально ничего не меняется (ЯТД)

Бродяга · 15.01.2007, 01:28

всем спасибо, дальше попробую разобраться сам!

Бродяга · 15.01.2007, 05:41

Еще раз доборого времени суток!!!
К сожалению вариант не прошел.
Требуется программно внести штриховку на существующий чертеж (вынесены все линии). Картинка состоит из пересечения линий образующих неправильную фигуру, острова то же могут быть. В общем описывать это удовольствие проблемно. Может кто подскажет как внести штриховку задав точку внутри штрихуемой области, как это делается через диалоговое окно, желательно с примером?

12.01.2007, 08:20		#1
Штриховки Бродяга Геология П-Камчатский Регистрация: 22.08.2006 Сообщений: 20 Доброго всем реммени суток!!! Возник тут вопрос по VB Есть отрисованный линисями замкнутый контур с известными координатами углов (отрисован программой). Как его теперь программно же залить пользовательской штриховкой? В AddHath нашел как указывать координаты точки для области. Рабираться долго времени как всегда нет, помогите кто чем может :x
Просмотров: 2924