vba中屏幕选择函数，如何实现选择一个图元后自动结束选择。

neteasy

SelectOnScreen函数，我想选择一个图元后自动结束选择，如何写？谢谢！！！

万里天

    Dim Ent As AcadEntity
    Dim 拾取点 As Variant
    Do
        AppActivate ThisDrawing.Application.Caption     '切换到CAD绘图
        ThisDrawing.Utility.GetEntity Ent, 拾取点, vbCr & "请选择基线: "
        If Err Then Exit Do
        If Ent.ObjectName <> "" Then Exit Do
    Loop

neteasy

谢谢回答！！！！