该方法提示用户在 AutoCAD 命令提示符下输入关键字。GetKeyword 此方法仅接受一个参数,即提示字符串。关键字和输入参数是通过调用方法定义的。InitializeUserInput 在AutoCAD命令提示下从用户那里获取关键字下面的示例通过将第一个参数 ofs 设置为 1 来强制用户输入关键字,这将不允许 NULL 输入(按 Enter 键)。第二个参数建立有效关键字的列表。InitializeUserInput Sub Ch3_KeyWord() Dim keyWord As String ThisDrawing.Utility.InitializeUserInput 1, "Line Circle Arc" keyWord = ThisDrawing.Utility.GetKeyword(vbCrLf & "Enter an option (Line/Circle/Arc): ") MsgBox keyWord, , "GetKeyword Example" End Sub 更用户友好的关键字提示是在用户按 Enter 时提供默认值(NULL 输入)的提示。请注意对以下示例的细微修改: Sub Ch3_KeyWord2() Dim keyWord As String ThisDrawing.Utility.InitializeUserInput 0, "Line Circle Arc" keyWord = ThisDrawing.Utility.GetKeyword(vbCrLf & "Enter an option (Line/Circle/<Arc>): ") If keyWord = "" Then keyWord = "Arc" MsgBox keyWord, , "GetKeyword Example" End Sub |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 )
GMT+8, 2024-5-27 11:04
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.