|
发表于 2005-12-15 08:15:00
|
显示全部楼层
Sub Mccad_InitializeUserInput()
' 该示例提示用户选择对象,并通过
' InitializeUserInput 方法定义关键字列表,
' 用户要以用它来输入关键字。
On Error Resume Next
' 定义有效的关键字
Dim keywordList As String
keywordList = "S E"
' 调用 InitializeUserInput 初始化关键字
ThisDrawing.Utility.InitializeUserInput 0, keywordList
' 获得用户输入
Dim Pnt As Variant
Dim ent As AcadEntity
ThisDrawing.Utility.GetEntity ent, Pnt, "选择对象[设置(S)/删除(E)]: "
If Err Then
If StrComp(Err.Number, -2145320928, 1) = 0 Then
' 当输入关键字时
Dim inputString As String
Err.Clear
inputString = ThisDrawing.Utility.GetInput
MsgBox "输入的关键字是: " & inputString
Else
MsgBox "选择对象出错: " & Err.Description
Err.Clear
End If
Else
' 显示用户选定的对象类型
MsgBox "你选定的对象类型为: " & ent.ObjectName, , "乐筑天下VBA示例:GetEntity及InitializeUserInput方法"
End If
End Sub
|
|