• Alexys
  • Восстановленный участник
  • На форуме с 11 августа 2006г.
  • Сообщений: 63
  • Спасибо: 0

Тема: Вопрос про штриховку программным способом

Я только начинающий.
Можно ли как-то на vba указать не контур для штрихования (loop), а точку внутри некоторого контура (программно) ?
В хелпе нашел толко пример создания штриховки черех задания контуров.
Если кто может пришлите пожалуйста пример !

  • На форуме с 17 августа 2006г.
  • Сообщений: 17
  • Спасибо: 0

Re: Вопрос про штриховку программным способом

Если вы заранее знаете координаты точки внтри этого контура, то можно написать

ThisDrawing.SendCommand "-BHATCH xxx.xx yyy.yy"

Где xxx и yyy - координаты.

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Вопрос про штриховку программным способом

> Alexys
Содрал из хэлпа:

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 = "SOLID"
PatternType = 0
bAssociativity = True
' Create the associative Hatch object in model space
Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, _
bAssociativity)
' Create the outer boundary for the hatch. (a circle)
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) ' <-- the error seems to live just here
hatchObj.Evaluate
ThisDrawing.Regen True
End Sub

~'J'~