社区 › VBA/VB/ActiveX/API 编程技术 › 如何得到选择集中块的名称

llgzhang 发表于 2004-5-5 23:48:00

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

用下面的办法，不能得到对象的名字，特别是块的：


                       For Each entry In ThisDrawing.ActiveSelectionSet<BR>                                                       entName = entry.ObjectName<BR>                                                       lObjectID = entry.ObjectID<BR>                                                       s = "Name:" &amp; entName &amp; ", ID:" &amp; lObjectID &amp; vbCrLf<BR>                                                       entry.Highlight (True)<BR>                                                       ThisDrawing.Application.Update<BR>                                                       MsgBox s<BR>                                                       entry.Highlight (False)<BR>                       Next<BR>那位高手指点一下

mccad 发表于 2004-5-6 07:18:00

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 = ""
               If entname = "AcDbBlockReference" Then BlkName = " , BlockName:" & entry.Name
               s = "Name:" & entname & ", ID:" & lObjectID & BlkName & vbCrLf
               entry.Highlight (True)
               ThisDrawing.Application.Update
               MsgBox s
               entry.Highlight (False)
       Next
End Sub

雪山飞狐_lzh 发表于 2004-5-6 07:46:00

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

lee_12345 发表于 2004-5-6 08:08:00

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

llgzhang 发表于 2004-5-6 14:45:00

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

查看完整版本: 如何得到选择集中块的名称