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

Тема: Как выбрать объекты находящиеся на определенных layout'ах?

Как выбрать объекты находящиеся на определенных layout'ах?
Имеются несколько layout'ов на которых находятся обекты.
Имеем их имена.
Требуется получить все блоки с атрибутами с нескольких layout'ов из имеющегося списка.
У кого нибудь есть мысли как это сделать?

  • Arkady
  • Восстановленный участник
  • На форуме с 27 октября 2005г.
  • Сообщений: 94
  • Спасибо: 0

Re: Как выбрать объекты находящиеся на определенных layout'ах?

Я думаю - только перебором.Использовать SelectionSet не получится - он выбрет все блоки чертежа.

Private Function select_block(sLName As String, sBname As String)
On Error Resume Next
Dim oLay As AcadLayout
Set oLay = ThisDrawing.Layouts.Item(sLName)
Dim lCount As Long
Dim l As Long
Dim oBlock As AcadBlockReference
lCount = oLay.Block.Count
For l = 0 To lCount - 1
  Set oBlock = oLay.Block.Item(l)
  If Err.Number <> 0 Then
     Err.Clear
  Else
     If oBlock.Name = sBname Then
        Call MsgBox("Found " & sBname & " on " & sLName & " layout ")
     End If
  End If
Next l
End Function

  • Solik
  • Восстановленный участник
  • На форуме с 13 сентября 2004г.
  • Сообщений: 14
  • Спасибо: 0

Re: Как выбрать объекты находящиеся на определенных layout'ах?

Можно так:

Function BlokN()
BlokN = 0
For Each elem In ActiveDocument.PaperSpace
   With elem
      If .EntityName = "AcDbBlockReference" Then
       If .name Like "Blok*[1234567890]" Then
            BlokN = BlokN + 1
         End If
      End If
   End With
Next
msgbox "найдено " & BlokN & " блоков"
End Function

Он выдаст количество Блоков с именем Blok? на октивном слое