[Mischa]

Здравствуйте. Вопрос такой. Возможно ли чтобы при работе SelectOnScreen отфильтровывались объекты лежащие на определённом слое? Если сделать этот слой замороженным не видно что выбирать. Если слой заблокировать объекты выбираются.

[Alaspher]

Да, можно. В примере ниже фильтарация по другим критериям, но принцип думаю будет понятен:

Код:

[Выделить все]

(defun demo (/ norm sel)
 (vla-clear (setq norm (vlax-3d-point '(0.0 0.0 1.0))
                  sel  (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
            )
 )
 (vla-selectonscreen
  sel
  (vlax-safearray-fill (vlax-make-safearray vlax-vbinteger '(0 . 2)) '(-4 0 -4))
  (vlax-safearray-fill
   (vlax-make-safearray vlax-vbvariant '(0 . 2))
   '("<NOT" "3DSOLID,REGION" "NOT>")
  )
 )
 (vlax-for i sel (vla-put-normal i norm))
 (vla-clear sel)
 (princ)
)

[Mischa]

Спасибо. Но в лиспе я ничего не понимаю. Как это в VBA сделать?

[Alaspher]

У метода selectonscreen, второй и третий аргументы опциональные (но взаимосвязанные), это фильтр. Оба значения безопасные массивы, где в первом содержатся коды DXF спсков фильтра, а во втором - значения этих кодов. Сами списки аналогичны таковым для ssget, то есть фильтр из моего примера, для ssget выглядел бы так: '((4 . "<NOT") (0 . "3DSOLID,REGION") (4 . "NOT>")). Точную реализацию на VBA не напишу - владею им очень поверхностно.

Для фильтра исключающего слои, массивы должны быть примерно такими:

Код:

[Выделить все]

-4 8 -4
"<NOT" "Слой1,Слой2" "NOT>"

[Sync02]

Можно включать в выбор объекты принадлежащие какому либо слою:
а код -4 вроде только для функции ssget, хотя не проверял

Код:

[Выделить все]

Dim ssetObj As AcadSelectionSet


    Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")
    Dim codes(0) As Integer
    Dim layername(0) As Variant
    codes(0) = 8
    layername(0) = "Layer1"
    Dim groupCode As Variant
    Dim dataCode As Variant
    groupCode = codes
    dataCode = layername
    ' Add objects to a selection set by prompting user to select on the screen
    ssetObj.SelectOnScreen groupCode, dataCode

[Alaspher]

-4 в данном примере позволяет использовать исключающий фильтр, т.е., выбрать примитивы за исключением указанных в фильтре. При прямом выборе по простому фильтру он не нужен и в ssget

[Sync02]

или можно сделать проще ))

Код:

[Выделить все]

    For i = 0 To selectiosetObj.Count - 1
        If selectiosetObj.Item(i).Layer <> "исключаемый слой" Then
            'обработка всех объектов кроме находящихся на исключаемый слой
        End If
    Next i

[fixo]

Сохрани как образец

Код:

[Выделить все]

Option Explicit

Sub SelectAllButLayer()
    Dim oSset As AcadSelectionSet
    With ThisDrawing.SelectionSets
        While .Count > 0
            .Item(0).Delete
        Wend
        Set oSset = .Add("$Allbutthislayer$")
    End With
    Dim fcode(0 To 2) As Integer
    Dim fvalue(0 To 2) As Variant
    Dim dxfCode, dxfValue
    fcode(0) = -4: fvalue(0) = "<not"
    fcode(1) = 8: fvalue(1) = InputBox(vbCrLf & "Enter layer name:", "Layer")
    fcode(2) = -4: fvalue(2) = "not>"
    dxfCode = fcode: dxfValue = fvalue
    oSset.SelectOnScreen dxfCode, dxfValue
    MsgBox oSset.Count

End Sub

~'J'~

[Mischa]

Большое спасибо.