[求助]：怎样提取块的名称？

自由的鱼

现在模型空间中有7个块，其中三个名为“A”，二个名为“B”，两个“C”，怎样实现用框选就可以将名称提取出来，不要重复~~

雪山飞狐(lzh)

这个程序鱼兄应该编的出来呀，你先编一个试试？

自由的鱼

最初由 lzh741206 发布
[B]这个程序鱼兄应该编的出来呀，你先编一个试试？ [/B]

呵呵，我能写出来，但觉得用的方法太笨，所以想知道别人是怎么实现的，：）

雪山飞狐(lzh)

狡猾的鱼,：）
偶先献个丑，来个砖头，看看能否引出玉
[Code]
Sub Test1()

On Error Resume Next

    Dim ss As AcadSelectionSet
    ThisDrawing.SelectionSets("*TlsTest*").Delete
    Set ss = ThisDrawing.SelectionSets.Add("*TlsTest*")
   
    Dim ft(0) As Integer, fd(0)
    ft(0) = 0: fd(0) = "Insert"
    ss.SelectOnScreen ft, fd
   
    Dim pNames As New Collection
    For Each i In ss
        pNames.Add i.Name, "*" & UCase(i.Name) & "*"
    Next i
   
    For Each i In pNames
        ThisDrawing.Utility.Prompt vbCrLf & i
    Next i
    ThisDrawing.Utility.Prompt vbCrLf
   
    ThisDrawing.SelectionSets("*TlsTest*").Delete
   
End Sub
[/Code]

自由的鱼

还是L兄高啊~~~~：）

lsjjm

最初由 lzh741206 发布
[B]狡猾的鱼,：）
偶先献个丑，来个砖头，看看能否引出玉...[/B]

倒数第二行:ThisDrawing.SelectionSets("*TlsTest*").Delete是否重复?

雪山飞狐(lzh)

可有可无，最好还是加上

自由的鱼

加上比较好！就更万无一失了，：）

wyj7485

有道理！该程序简洁。