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

Тема: Как в SelectionSet выбрать BlockReference, используя фильтр?

Я так делаю:

------------------------------------------
Dim SS as AcadSelectionSet
Set SS = AcadApp.ActiveDocument.SelectionSets.Add("Temp")
Dim grData(0) As Integer
Dim dataValue(0) As Variant
grData(0) = 0
dataValue(0) = "Line"
SS.SelectOnScreen grData, dataValue 
-------------------------------------------
и все работает! В SS попадают только линии. Circle, Text и так далее тоже выбираются
Но если пытаться выбрать только блоки, то ничего не выходит:
------------------------------------------
Dim SS as AcadSelectionSet
Set SS = AcadApp.ActiveDocument.SelectionSets.Add("Temp")
Dim grData(0) As Integer
Dim dataValue(0) As Variant
grData(0) = 0
dataValue(0) = "Block"
'dataValue(0) = "BlockReference"
'dataValue(0) = "AcDbBlockReference"
'dataValue(0) = "AcDbBlock"
'dataValue(0) = "AcadBlock"
'dataValue(0) = "AcadBlockReference"
SS.SelectOnScreen grData, dataValue 
-------------------------------------------

Как еще ему сказать что мне только блоки нужны???
Спасибо.

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

Re: Как в SelectionSet выбрать BlockReference, используя фильтр?

Public Sub select_blk()
  On Error Resume Next
  Dim objSelSet As AcadSelectionSet
  Dim objSelCol As AcadSelectionSets
  Dim intType(0) As Integer
  Dim varData(0) As Variant
  Dim strPath As String
  Set objSelCol = ThisDrawing.SelectionSets
    For Each objSelSet In objSelCol
      If objSelSet.Name = "TEMP" Then
        objSelSet.Delete
        Exit For
      End If
    Next
  Set objSelSet = objSelCol.Add("TEMP")
  intType(0) = 0
  varData(0) = "INSERT"
  objSelSet.Select 5, filtertype:=intType, filterdata:=varData
End Sub

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

Re: Как в SelectionSet выбрать BlockReference, используя фильтр?

Спасибо, заработало!!!
Блин! Хоть бы где в хелпе про INSERT написано было!

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

Re: Как в SelectionSet выбрать BlockReference, используя фильтр?

Читайте про DXF. Литературы выше голвы. И, что самое интересное, обо всем написано, и про Insert, и не про не-Insert.