surveyors 发表于 2004-6-7 01:48:00

[求助]：怎样判断按两次ECS?

在VBA中执行循环选点命令，如何通过判断执行了两次ECS后取消选点过程？谢谢

雪山飞狐_lzh 发表于 2004-6-7 08:46:00

Sub Test()<BR>On Error Resume Next<BR>Dim ErrNum As Integer<BR>Do While 1<BR>ThisDrawing.Utility.GetPoint<BR>If Err.Number = -2147352567 Then ErrNum = ErrNum + 1<BR>If ErrNum = 2 Then GoTo ErrHandle<BR>Loop<BR>ErrHandle:<BR>End Sub<BR>

surveyors 发表于 2004-6-8 08:41:00

谢谢！
页: [1]
查看完整版本: [求助]：怎样判断按两次ECS?