• Дарья
  • Восстановленный участник
  • На форуме с 28 января 2008г.
  • Сообщений: 237
  • Спасибо: 0

Тема: Поделить отрезок или полилинию

Скажите пожалуйста, а можно ли программно поделить отрезок или полилинию другими объектами???
Я имею ввиду AutoCAD функцию ПОДЕЛИТЬ (_divide), которая делит линию или полилинию на число заданных сегментов, например блоками.

  • fixo
  • Восстановленный участник
  • На форуме с 3 июля 2008г.
  • Сообщений: 217
  • Спасибо: 0

Re: Поделить отрезок или полилинию

Дарья (2009-01-14 23:00:36)
Что-то вроде этого:

Sub Divide_Example()
Dim returnObj As AcadEntity
Dim basePnt As Variant
Dim bName As String
On Error Resume Next
bName = InputBox("Enter block name:", _
"Divide Example", "TestBlock")
Do
ThisDrawing.Utility.GetEntity _
returnObj, basePnt, "Select an object or press Enter to exit loop"
If Err <> 0 Then
Err.Clear
MsgBox "Program stopped by user interupt.", _
, "DIVIDE Example"
Exit Sub
Else
Dim numDivs As Long
numDivs = Val(InputBox("How many divisions?", _
"Divide Example", "7"))
ThisDrawing.SendCommand "._divide (handent " & Chr(34) & _
returnObj.Handle & Chr(34) & ") _B " & vbCr & UCase(bName) & _
vbCr & "_Y " & Format$(numDivs) & " "
End If
Loop
End Sub

~'J'~

  • Дашуля
  • Восстановленный участник
  • На форуме с 23 апреля 2008г.
  • Сообщений: 114
  • Спасибо: 0

Re: Поделить отрезок или полилинию

> fixo
Огромное спасибо!
:)

  • fixo
  • Восстановленный участник
  • На форуме с 3 июля 2008г.
  • Сообщений: 217
  • Спасибо: 0

Re: Поделить отрезок или полилинию

> Дашуля
Рад если смог помочь
Успехов
~'J'~

  • Дашуля
  • Восстановленный участник
  • На форуме с 23 апреля 2008г.
  • Сообщений: 114
  • Спасибо: 0

Re: Поделить отрезок или полилинию

> fixo
Скажите пожалуйста, а можно ли поделить линию не блоком, а любым примитивом (кругом например)?