关于PromptPointOptions需点击两次的问题

davehuhudave

我用PromptPointOptions获取屏幕坐标，但是需要先点击一次之后才出现十字架让你选择点，相当于选一个点需要点两次，不知道为什么，代码如下：

 Dim ed As Editor = AcadApp.DocumentManager.MdiActiveDocument.Editor
        Dim db As Database = AcadApp.DocumentManager.MdiActiveDocument.Database
        'Dim oldAngBase As Object = Application.GetSystemVariable("ANGBASE")
        ' 普通的点交互操作.
        Dim lock As DocumentLock = AcadApp.DocumentManager.MdiActiveDocument.LockDocument()

        Dim optPoint As New PromptPointOptions(vbCrLf & "请指定放置点:")
        Dim resPoint As PromptPointResult = ed.GetPoint(optPoint)
        If resPoint.Status <> PromptStatus.OK Then Return ObjectId.Null

       。。。。。。

感觉上是执行这个函数之前鼠标的十字架形式就存在，是不是执行这个函数之前需要做什么工作把十字架先屏蔽？？？

davehuhudave

o了

雪山飞狐_lzh

怎么o了？

davehuhudave

点击窗体后释放焦点就行了