在指定的图层中，选择Line实体？

兰州人

(ssget '((8 . "你要指定的图层名称")))只能选择指定图层的所有实体。

请问

如何选择指定图层如objTextLayer上的Line实体？

caoyin

(ssget '((0 . "line") (8 . "objTextLayer"))

nonsmall

唉 可惜你的用法不对

16335181

liminnet发表于2008-12-1 15:52:00拍马屁的时候来啦(sssget '((-4 . <OR) (8 . 0) (-4 . OR>) (-4 . <OR) (0 . LINE) (-4 . OR>)))

nonsmall发表于2008-12-1 15:57:00唉 可惜你的用法不对

哈哈 平时大家知道都没说出来,你那功力是一流的

当自己承认的时候却......

呵呵  没别的意思   娱乐娱乐下   继续正题~~

mccad

呵呵，有可能狂刀的易工具不处理这些简单的东西。

兰州人

liminnet发表于2008-12-1 15:52:00拍马屁的时候来啦(sssget '((-4 . <OR) (8 . 0) (-4 . OR>) (-4 . <OR) (0 . LINE) (-4 . OR>)))

用了and方法

Sub l()
  Dim sSet As AcadSelectionSet
  Dim fType(3) As Integer, fData(3) As Variant
  Dim sSetName As String
  sSetName = "First"
  With ConnectCad
    With .ActiveDocument
      On Error Resume Next
      If Not IsNull(.SelectionSets.Item(sSetName)) Then
        Set sSet = .SelectionSets.Item(sSetName)
        sSet.Delete
      End If
      Set sSet = .SelectionSets.Add(sSetName)
    End With
    fType(0) = -4: fData(0) = "<And"
    fType(2) = 0: fData(2) = "Line"
   
    fType(1) = 8: fData(1) = "标题栏"
    fType(3) = -4: fData(3) = "And>"
    sSet.Select 5, , , fType, fData
    sSet.Erase
    'Debug.Print sSet.Count
  End With
End Sub

用or选8图层 再连上or选0图元的方法

Sub l()
  Dim sSet As AcadSelectionSet
  Dim fType(6) As Integer, fData(6) As Variant
  Dim sSetName As String
  sSetName = "First"
  With ConnectCad
    With .ActiveDocument
      On Error Resume Next
      If Not IsNull(.SelectionSets.Item(sSetName)) Then
        Set sSet = .SelectionSets.Item(sSetName)
        sSet.Delete
      End If
      Set sSet = .SelectionSets.Add(sSetName)
    End With
    fType(0) = -4: fData(0) = "<Or"
    fType(1) = 8: fData(1) = "标题栏"
    fType(2) = -4: fData(2) = "Or>"
    fType(3) = -4: fData(3) = "<Or"
    fType(4) = 0: fData(4) = "Line"
    'fType(5) = -4: fData(5) = "Or>"
    'fType(6) = -4: fData(6) = "Or<"
    fType(5) = 0: fData(5) = "Text"
    fType(6) = -4: fData(6) = "Or>"
    'fType(6) = -4: fData(6) = "And>"
    sSet.Select 5, , , fType, fData
   
    Debug.Print sSet.Count
    sSet.Erase
  End With
End Sub