• Shummi
  • Восстановленный участник
  • На форуме с 11 декабря 2007г.
  • Сообщений: 2
  • Спасибо: 0

Тема: Можно ли разделить штриховку?

В окне редактирования штриховки есть такая фича - пункт "отдельные штриховки". Ставишь галочку, и штриховка разделяется на несколько, если она была создана по нескольким контурам. Можно такое сделать с помощью средств VBA?

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

Re: Можно ли разделить штриховку?

> Shummi
Можно

Option Explicit
Sub EditHatch()
Dim oEnt As AcadEntity
Dim oHatch As AcadHatch
Dim varpt
'//
ThisDrawing.Utility.GetEntity oEnt, varpt, vbCrLf & "Select hatch: "
If oEnt Is Nothing Then
MsgBox "Nothing selected"
Exit Sub
End If
'//
If Not TypeOf oEnt Is AcadHatch Then
MsgBox "Must be selected the hatch only"
Exit Sub
End If
'//
Set oHatch = oEnt
Dim strHdl As String
strHdl = oHatch.Handle
ThisDrawing.SendCommand "-HATCHEDIT " & "(handent " & Chr(34) & strHdl & Chr(34) & ") " & "H" & vbCr
End Sub

~'J'~

  • Shummi
  • Восстановленный участник
  • На форуме с 11 декабря 2007г.
  • Сообщений: 2
  • Спасибо: 0

Re: Можно ли разделить штриховку?

> Fatty
Огромное спасибо. Не знал просто, что для hatchedit можно использовать с интерфейсом для командной строки. Только сначала он выдавал типа, что -HATCHEDIT - неизвестная команда. Потом уже доперло, что для русского Автокада надо использовать
ThisDrawing.SendCommand "_-HATCHEDIT " & "(handent " & Chr(34) & strHdl & Chr(34) & ") " & "_H" & vbCr