用getentity选择实体时如何判断实体已经选择完了

hnge

在一个图形文档中,想用utity.getentity entobj,pntpic 选择实体加入到一选择集中,但不知道该如何判断实体已经被选择完毕了,请高手赐教,谢谢

王咣生

' Begin the selection
Dim returnObj As AcadObject
Dim basePnt As Variant

On Error Resume Next

' The following example waits for a selection from the user ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object"

If Err <> 0 Then
Err.Clear
MsgBox "Program ended.", , "GetEntity Example"
Exit Sub
Else
returnObj.Update
MsgBox "The object type is: " & returnObj.EntityName, , "GetEntity Example"
returnObj.Update
End If 当正确选择实体后,Err是为0的,由此判断.

雪山飞狐_lzh

为什么不用SelectOnScreen方法？