如何得到选择集中块的名称

llgzhang

用下面的办法，不能得到对象的名字，特别是块的： For Each entry In ThisDrawing.ActiveSelectionSet
entName = entry.ObjectName
lObjectID = entry.ObjectID
s = "Name:" & entName & ", ID:" & lObjectID & vbCrLf
entry.Highlight (True)
ThisDrawing.Application.Update
MsgBox s
entry.Highlight (False)
Next
那位高手指点一下

mccad

2. Sub gs()
3.        Dim entry As AcadEntity
4.        Dim entname As String
5.        Dim lObjectID As Long
6.        Dim s As String
7.        Dim BlkName As String
8.        For Each entry In ThisDrawing.ActiveSelectionSet
9.                entname = entry.ObjectName
10.                lObjectID = entry.ObjectID
11.                BlkName = ""
12.                [b]If entname = "AcDbBlockReference" Then BlkName = " , BlockName:" & entry.Name
13.                s = "Name:" & entname & ", ID:" & lObjectID & BlkName & vbCrLf[/b]
14.                entry.Highlight (True)
15.                ThisDrawing.Application.Update
16.                MsgBox s
17.                entry.Highlight (False)
18.        Next
19. End Sub

Sub gs()        Dim entry As AcadEntity        Dim entname As String        Dim lObjectID As Long        Dim s As String        Dim BlkName As String        For Each entry In ThisDrawing.ActiveSelectionSet                entname = entry.ObjectName                lObjectID = entry.ObjectID                BlkName = ""                [b]If entname = "AcDbBlockReference" Then BlkName = " , BlockName:" & entry.Name                s = "Name:" & entname & ", ID:" & lObjectID & BlkName & vbCrLf[/b]                entry.Highlight (True)                ThisDrawing.Application.Update                MsgBox s                entry.Highlight (False)        Next End Sub

雪山飞狐_lzh

1. entname = "AcDbBlockReference"

复制代码

这里是否可以改成Ucase（entname) = "ACDBBLOCKREFERENCE"大小写转换起来太累，也容易出错

lee_12345

高手呀就是高手!佩服!!!

llgzhang

多谢大家，真是职业人呀，佩服，这么早就回了