怎么停止选择一个OBJECT?

lei_jinbo · 发表于 2003-9-11 09:50:00

我想选择一个物体后,对物体进行操作.用GOTO语句循环,程序如下:
Sub GetEntity_Example()
Dim retEnt As Object
Dim pnt As Variant

On Error Resume Next

Retry:
ThisDrawing.Utility.GetEntity retEnt, pnt, "Select an object"

If Err  0 Then                   '如果按其他键或者不选择物体
      Err.Clear
      MsgBox "You need to select an existing dimension!"
Else
   Select Case retEnt.EntityName
      Case "AcDbAlignedDimension"
               InputGYXX             '调用子程序
      Case "AcDbRotatedDimension"
               InputGYXX
      Case "AcDbRadialDimension"
               InputGYXX
      Case "AcDbDiametricDimension"
               InputGYXX
      Case "AcDbOrdinateDimension"
               InputGYXX
      Case "AcDbMText"
               InputGYXX
      Case "AcDbText"
               InputGYXX
      Case "AcDb2LineAugularDimension"
               InputGYXX
      Case *****    '我想让用户按某个键后,就跳出,****该怎么写,好像都会执行见面的
                           'IF err0 部分.
            EXIT SUB
      End Select
   End If
   GOTO Retry
End Sub

mccad · 发表于 2003-9-11 18:43:00

你想按最个键跳出？

lei_jinbo · 发表于 2003-9-12 08:44:00

我想按ESC键就退出.

thankyou · 发表于 2003-9-12 10:18:00

Case *****    '我想让用户按某个键后,就跳出,****该怎么写,好像都会执行见面的
                           'IF err0 部分.
EXIT SUB
改为：
Case Else
      MsgBox
      Exit Sub
就可以了。按ESC键就退出，选择不满足条件的也退出。

mccad · 发表于 2003-9-12 12:26:00

先看看置顶的贴子：
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=5682

怎么停止选择一个OBJECT?

发表回复

精选推荐