主要用到函数说明:
IMxDrawUtility::GetEntity
与用户交互到在图面上选择一个实体,详细说明如下:
参数 | 说明 |
---|---|
[out] IMxDrawPoint** pPickPoint |
返回实体的选择点 |
[in] BSTR prompt |
选择实体时的提示字符串 |
代码实现如下:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Set mxUtility = New MxDrawXLib.MxDrawUtility
Dim getPt As MxDrawXLib.MxDrawPoint
Set ent = mxUtility.GetEntity(getPt, Chr(13) + Chr(10) +
"选择读取扩展数据的实体:"
)
If (ent Is Nothing) Then
MsgBox
"没有选择实体.."
Exit Sub
End If
Dim xData As MxDrawXLib.MxDrawResbuf
Set xData = ent.GetXData(
""
)
If (xData.Count = 0) Then
MsgBox
"没有扩展数据"
Else
xData.PrintData
End If
|