CAD二次开发——GetEntity，获取对象，ID进制转换

 1. 封装一个函数

'获取图纸上 绘图元素
Public Function GetEntity(Prompt As String, ByRef GetP As Variant) As AcadEntity
On Error GoTo Err_DD
acadApp.ActiveDocument.Utility.GetEntity GetEntity, GetP, Prompt
Exit Function
Err_DD:
End Function 

2. 调用这个函数

Dim ent As AcadEntity
Dim inp As Variant

Set ent = GetEntity("请选择内边框", inp)
If ent Is Nothing Then Exit Sub 

对象ID转10进制

bData(3) = CLng("&H" & elem.Handle)