|
|
发表于 2002-4-16 21:15:00
|
显示全部楼层
Dim objName As String
Dim entry As AcadEntity
For Each entry In ThisDrawing.ModelSpace
objName = entry. Dim objName As String
Dim entry As AcadEntity
For Each entry In ThisDrawing.ModelSpace
objName = entry.ObjectName
entry.Highlight (True)
MsgBox "The name of this object is " & objName, vbInformation, "ObjectName Example"
entry.Highlight (False)
Next
entry.Highlight (True)
MsgBox "该对象的名称为" & objName, vbInformation, "ObjectName 示例"
entry.Highlight (False)
Next |
|
置顶卡
