【AutoCAD二次开发】第八节 与用户交互

'第八节 与用户交互
Sub GetStringExample() '获取文字输入
  Dim strName As String
  strName = ThisDrawing.Application.ActiveDocument.Utility.GetString(1, vbCr & "请输入你的姓名：")
  If strName <> "" Then MsgBox strName
End Sub
Sub GetPointExample() '获取点输入
  Dim pntStart As Variant, pntEnd As Variant
  pntStart = ThisDrawing.Application.ActiveDocument.Utility.GetPoint(, vbCr & "输入直线的起点：")
  pntEnd = ThisDrawing.Application.ActiveDocument.Utility.GetPoint(, vbCr & "输入直线的终点：")
  ThisDrawing.Application.ActiveDocument.ModelSpace.AddLine pntStart, pntEnd
End Sub
Sub GetEntityExample() '获取选择实体
  Dim objEnt As AcadObject
  Dim pnt As Variant
  ThisDrawing.Application.ActiveDocument.Utility.GetEntity objEnt, pnt, vbCr & "请选择一个实体："
  MsgBox objEnt.ObjectName
End Sub
Sub PromptExample() '信息提示
  ThisDrawing.Application.ActiveDocument.Utility.prompt _
  vbCr & "HelloWorld"
End Sub
Sub InitializeUserInputExample() '关键字输入
  Dim keyWord As String
  ThisDrawing.Application.ActiveDocument.Utility.InitializeUserInput 1, "A B C D"
  keyWord = ThisDrawing.Application.ActiveDocument.Utility.GetKeyword _
            (vbCr & "请选择(A B C D)")
  MsgBox keyWord
End Sub