• На форуме с 15 января 2007г.
  • Сообщений: 6
  • Спасибо: 0

Тема: Помогите Кто может по поводу штриховок в автокаде

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

  • На форуме с 7 ноября 2005г.
  • Сообщений: 505
  • Спасибо: 0

Re: Помогите Кто может по поводу штриховок в автокаде

Немного не понял.. Точки-то нужно тоже программно вводить или вручную?
Если вручную, то проще этого:
*^C^C-hatch;p;solid;\;
дальше некуда:)
А если программно, то что именно нужно-то?

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

Re: Помогите Кто может по поводу штриховок в автокаде

> бродяга
Не нравится мне этот SendCommand,
работает не всегда, но это вроде пашет
(без обработчика ошибок)

Option Explicit
Sub TestBHatch()
With ThisDrawing
.SetVariable "HPGAPTOL", 10
.SetVariable "HPNAME", "ANSI31"
.SetVariable "OSMODE", 0
.SetVariable "CMDDIA", 0
.SetVariable "CMDECHO", 0
Dim intPt As Variant
Dim pstr As String
intPt = .Utility.GetPoint(, "Pick the inner point of boundary")
pstr = Replace(CStr(intPt(0)), ",", ".") & "," & Replace(CStr(intPt(1)), ",", ".")
.SendCommand "-BOUNDARY" & vbCr & pstr & vbCr & vbCr
Debug.Print Err.Number 'for the delay only
.SendCommand "_-BHATCH" & vbCr & "S" & vbCr & "L" & vbCr & vbCr & vbCrLf
.SetVariable "CMDDIA", 1
.SetVariable "CMDECHO", 1
.Regen True
End With
End Sub

~'J'~

  • KAI
  • KAI
  • Активный участник
  • Откуда: Магадан
  • На форуме с 19 января 2003г.
  • Сообщений: 344
  • Спасибо: 0

Re: Помогите Кто может по поводу штриховок в автокаде

Ну, если у вас тяжелый чертеж, сложные (многовершинные), да еще вытянутые и/или разветвленные контуры то Acad может и не создать контур по boundary, следует проверять это.

  • На форуме с 15 января 2007г.
  • Сообщений: 6
  • Спасибо: 0

Re: Помогите Кто может по поводу штриховок в автокаде

Что ж, будем копаться, может что и накопаю.
Всем большое спасибо.