关于selectonscreen得一个疑问？-->mccad转移

肥多

执行selectonscreen后
acad提示选择对象，之后可选择多个对象
问：
能不能只选择一个对象？

谢谢！

mccad

Public dimAliObj As AcadEntity
Public PickPnt As Variant

On Error Resume Next    ' 改变错误处理的方式。
ThisDrawing.Utility.GetEntity dimAliObj, PickPnt, "选择标注尺寸："
If Err <> 0 Then
    Exit Sub
End If