[求助]如何用VBA实现象MLINE这样的功能？

小美菜

[求助]如何用VBA实现象MLINE这样的功能？如下： 命令: _mline
当前设置: 对正 = 上，比例 = 1.00，样式 = STANDARD
指定起点或 [对正(J)/比例(S)/样式(ST)]:
指定下一点:
指定下一点或 [放弃(U)]:
指定下一点或 [闭合(C)/放弃(U)]: 也就是说：如果我在屏幕上输入点子（坐标），则它识别为起始点或下一个点。当输入对应字符时，则识别为相应功能。谢谢各位大虾指点

雪山飞狐_lzh

2002版本

2. Sub Example_InitializeUserInput()
3.        On Error Resume Next
4.        Dim inputString As String
5.        Dim keywordList As String
6.        keywordList = "j s st"
7.        ThisDrawing.Utility.InitializeUserInput 128, keywordList
8.        Dim returnPnt As Variant
9.        returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point 对正(J)/比例(S)/样式(ST): ")
10.        If Err Then
11.                inputString = ThisDrawing.Utility.GetInput
12.                  If InStr(keywordList, inputString) > 0 Then
13.                        MsgBox "You entered the keyword: " & inputString
14.                        Err.Clear
15.                  Else
16.                        MsgBox "Error selecting the point: " & Err.Description
17.                        Err.Clear
18.                  End If
19.        Else
20.                MsgBox "The WCS of the point is: " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2), , "GetInput 示例"
21.        End If
22. End Sub

Sub Example_InitializeUserInput()        On Error Resume Next        Dim inputString As String        Dim keywordList As String        keywordList = "j s st"        ThisDrawing.Utility.InitializeUserInput 128, keywordList        Dim returnPnt As Variant        returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point 对正(J)/比例(S)/样式(ST): ")        If Err Then                inputString = ThisDrawing.Utility.GetInput                  If InStr(keywordList, inputString) > 0 Then                        MsgBox "You entered the keyword: " & inputString                        Err.Clear                  Else                        MsgBox "Error selecting the point: " & Err.Description                        Err.Clear                  End If        Else                MsgBox "The WCS of the point is: " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2), , "GetInput 示例"        End If End Sub

2005版本：

2. Sub Example_InitializeUserInput()
3.        ' This example prompts for user input of a point. By using the
4.        ' InitializeUserInput method to define a keyword list, it can also
5.        ' return keywords entered by the user.
6.       
7.        On Error Resume Next
8.       
9.        ' Define the valid keywords
10.        Dim keywordList As String
11.        keywordList = "j s st"
12.        ' Call InitializeUserInput to setup the keywords
13.        ThisDrawing.Utility.InitializeUserInput 128, keywordList
14.       
15.        ' Get the user input
16.        Dim returnPnt As Variant
17.        returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point 对正(J)/比例(S)/样式(ST): ")
18.        If Err Then
19.                  If Err.Number = -2145320928 Then
20.                  ' One of the keywords was entered
21.                          Dim inputString As String
22.                          Err.Clear
23.                          inputString = ThisDrawing.Utility.GetInput
24.                          MsgBox "You entered the keyword: " & inputString
25.                  Else
26.                          MsgBox "Error selecting the point: " & Err.Description
27.                          Err.Clear
28.                  End If
29.        Else
30.                ' Display point coordinates
31.                MsgBox "The WCS of the point is: " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2), , "GetInput 示例"
32.        End If
33.       
34. End Sub

Sub Example_InitializeUserInput()        ' This example prompts for user input of a point. By using the        ' InitializeUserInput method to define a keyword list, it can also        ' return keywords entered by the user.               On Error Resume Next               ' Define the valid keywords        Dim keywordList As String        keywordList = "j s st"        ' Call InitializeUserInput to setup the keywords        ThisDrawing.Utility.InitializeUserInput 128, keywordList               ' Get the user input        Dim returnPnt As Variant        returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point 对正(J)/比例(S)/样式(ST): ")        If Err Then                  If Err.Number = -2145320928 Then                  ' One of the keywords was entered                          Dim inputString As String                          Err.Clear                          inputString = ThisDrawing.Utility.GetInput                          MsgBox "You entered the keyword: " & inputString                  Else                          MsgBox "Error selecting the point: " & Err.Description                          Err.Clear                  End If        Else                ' Display point coordinates                MsgBox "The WCS of the point is: " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2), , "GetInput 示例"        End If        End Sub

laoliu09

明白！

小美菜

谢谢！效果很好！真该好好研究一下了！