[求助]：VBA中有关输入的问题

ahlzl

有两个问题要向您指教！
1）程序运行时，当提示输入数字时，回车可输入默认数字。
2）程序运行时，通过命令行提示，在命令行输入不同的字母，得到不同的运行结果。（这两条都和CAD一样）
请给出示范代码，谢谢！

又一问题，请看一段代码：

1. 
   
2. For si = 1 To 3
   
3.     interpt = hline1.IntersectWith(sset.Item(si), acExtendNone)
   
4.     If [color=red]UBound[/color](interpt) = -1 Then
   
5.       Set hline2 = sset.Item(si)
   
6.     End If
   
7.   Next
   
8.   

复制代码

请您讲解一下UBound，好吗？

hgqhq

UBound 函数
返回一个 Long 型数据，其值为指定的数组维可用的最大下标。
语法
UBound(arrayname[, dimension])
UBound 函数的语法包含下面部分：
部分 描述
arrayname 必需的。数组变量的名称，遵循标准变量命名约定。
dimension 可选的；Variant (Long)。指定返回哪一维的上界。1 表示第一维，2 表示第二维，如此等等。如果省略 dimension，就认为是 1。
说明
UBound 函数与 LBound 函数一起使用，用来确定一个数组的大小。LBound 用来确定数组某一维的上界。
对具有下述维数的数组而言，UBound 的返回值见下表：
Dim A(1 To 100, 0 To 3, -3 To 4)
语句 返回值
UBound(A, 1) 100
UBound(A, 2) 3

UBound 函数示例
该示例使用 UBound 函数，确定数组的指定维的最大可用下标。

Dim Upper
Dim MyArray(1 To 10, 5 To 15, 10 To 20)    '声明数组变量。
Dim AnyArray(10)
Upper = UBound(MyArray, 1)    '返回 10。
Upper = UBound(MyArray, 3)    '返回 20。
Upper = UBound(AnyArray)    '返回 10。

UBound(A, 3) 4

Laoyao

输入默认数字

2. 
   
3. 
   
4.   [FONT=courier new]
   
5. Sub test_Number()
   
6.     On Error Resume Next
   
7.     Dim a As Variant
   
8.     Dim DN As Integer
   
9.     DN = 12
   
10.     a = AcadApplication.ActiveDocument.Utility.GetInteger("input integer<" + Str(DN) + ">: ")
    
11.     If IsEmpty(a) Then
    
12.         a = DN
    
13.     End If
    
14.     MsgBox "you input is: " + Str(a)
    
15.    
    
16.    
    
17. 
    
18. End Sub
    
19. 
    
20.   [/FONT]
    

<br /> <br />   [FONT=courier new]<br /> Sub test_Number()<br />     On Error Resume Next<br />     Dim a As Variant<br />     Dim DN As Integer<br />     DN = 12<br />     a = AcadApplication.ActiveDocument.Utility.GetInteger("input integer<" + Str(DN) + ">: ")<br />     If IsEmpty(a) Then<br />         a = DN<br />     End If<br />     MsgBox "you input is: " + Str(a)<br />     <br />     <br /> <br /> End Sub<br /> <br />   [/FONT]<br />

efan2000

最初由 ahlzl 发布
[B]有两个问题要向您指教！
1）程序运行时，当提示输入数字时，回车可输入默认数字。
2）程序运行时，通过命令行提示，在命令行输入不同的字母，得到不同的运行结果。（这两条都和CAD一样）
请给出示范代码，谢谢！
... [/B]

默认数字就是在运行GetInteger或者GetDistance等等时,如果返回值为0,那么就将它设置为默认值,而得到多个不同的字母,其实就是在命令行上实现选择项功能,那么可以先用Utility对象的初始化关键字列表InitializeKeywordList来定义一些关键字以后就只能输入这些字母,其它没有定义的就无效.以后根据返回值来运行不同的代码.
UBound和LBound是判断一个数组的上限或者下限,等于-1说明这个数组没有值即为空.判断一个数组是否为空,也可以使用IsEmpty.

Laoyao

2. 
   
3.   [FONT=courier new]
   
4.     On Error Resume Next
   
5.     Dim center As Variant
   
6.     Dim D As Variant
   
7.     Dim R As Variant
   
8.     Dim DEF As Double
   
9.     Dim Station As Boolean
   
10.     DEF = 20
    
11.     Station = True
    
12.     ' Define the valid keywords
    
13.     Dim keywordList As String
    
14.     center = ThisDrawing.Utility.GetPoint(, "Specify center point for circle: ")
    
15.     keywordList = "Diameter"
    
16.     While Station
    
17.         
    
18.         ThisDrawing.Utility.InitializeUserInput 128, keywordList
    
19.         Err.Clear
    
20.         R = ThisDrawing.Utility.GetDistance(center, "Specify radius of circle or [Diameter] <" + Str(DEF) + ">: ")
    
21.         ' when wrong
    
22.         If Err Then
    
23.             If StrComp(Err.Description, "User input is a keyword", 1) = 0 Then
    
24.                 inputstr = UCase(ThisDrawing.Utility.GetInput)
    
25.                 Select Case inputstr
    
26.                 Case Empty
    
27.                     ThisDrawing.ModelSpace.AddCircle center, DEF
    
28.                     Station = False
    
29.                 Case "DIAMETER"
    
30.                     ' One of the keywords was entered
    
31.                     D = ThisDrawing.Utility.GetDistance(center, "Specify diameter of circle: ")
    
32.                     ThisDrawing.ModelSpace.AddCircle center, D / 2
    
33.                     Station = False
    
34.                 End Select
    
35.             
    
36.             
    
37.          
    
38.             End If
    
39.         
    
40.         'when input is right
    
41.         Else
    
42.             ThisDrawing.ModelSpace.AddCircle center, R
    
43.             Station = False
    
44.         End If
    
45.     Wend
    
46.                
    
47. End Sub
    
48. 
    
49.   [/FONT]
    

<br />   [FONT=courier new]<br />     On Error Resume Next<br />     Dim center As Variant<br />     Dim D As Variant<br />     Dim R As Variant<br />     Dim DEF As Double<br />     Dim Station As Boolean<br />     DEF = 20<br />     Station = True<br />     ' Define the valid keywords<br />     Dim keywordList As String<br />     center = ThisDrawing.Utility.GetPoint(, "Specify center point for circle: ")<br />     keywordList = "Diameter"<br />     While Station<br />         <br />         ThisDrawing.Utility.InitializeUserInput 128, keywordList<br />         Err.Clear<br />         R = ThisDrawing.Utility.GetDistance(center, "Specify radius of circle or [Diameter] <" + Str(DEF) + ">: ")<br />         ' when wrong<br />         If Err Then<br />             If StrComp(Err.Description, "User input is a keyword", 1) = 0 Then<br />                 inputstr = UCase(ThisDrawing.Utility.GetInput)<br />                 Select Case inputstr<br />                 Case Empty<br />                     ThisDrawing.ModelSpace.AddCircle center, DEF<br />                     Station = False<br />                 Case "DIAMETER"<br />                     ' One of the keywords was entered<br />                     D = ThisDrawing.Utility.GetDistance(center, "Specify diameter of circle: ")<br />                     ThisDrawing.ModelSpace.AddCircle center, D / 2<br />                     Station = False<br />                 End Select<br />             <br />             <br />          <br />             End If<br />         <br />         'when input is right<br />         Else<br />             ThisDrawing.ModelSpace.AddCircle center, R<br />             Station = False<br />         End If<br />     Wend<br />                 <br /> End Sub<br /> <br />   [/FONT]<br />

如有错误,请告之

hgqhq

inputstr最好声明变量类型