CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2023 开发者帮助 › 查看内容

AutoCAD 2023 开发者帮助

GetInteger 方法（ActiveX）

2024-5-18 18:56| 发布者: admin| 查看: 293| 评论: 0|原作者: admin|来自: AutoCAD

从用户获取整数值。

支持的平台：仅限 Windows

签名

VBA：

RetVal = object.GetInteger([Prompt])

对象

类型： 实用程序

此方法应用到的对象。

提示

访问：仅输入;自选

类型：变体（字符串）

用于提示用户输入的文本。

返回值（RetVal）

类型：长

用户返回的整数值。

言论

AutoCAD 暂停用户输入整数，并将返回值设置为选定值。Prompt 参数指定 AutoCAD 在暂停之前显示的字符串。提示是可选的。

AutoCAD 用户可以输入 -32,768 到 +32,767 范围内的任何有效（短）整数。

如果返回的是关键字而不是整数，或者用户按 Enter 键而未输入值，则 AutoCAD 将生成错误编号 -2145320928（以及错误消息“用户输入是关键字”）。使用该方法从返回值中获取关键字。GetInput

例子

VBA：

Sub Example_GetInteger()
    ' This example returns the integer entered by the user.
    
    AppActivate ThisDrawing.Application.Caption
    
    Dim returnInt As Integer
    
    ' Return the value entered by user. A prompt is provided.
    returnInt = ThisDrawing.Utility.GetInteger("Enter an integer: ")
    MsgBox "The integer entered was " & returnInt & vbCrLf & _
           "(Enter the next value without prompting.)", , "GetInteger Example"
    
    ' Return the value entered by user. No prompt is provided.
    returnInt = ThisDrawing.Utility.GetInteger()
    MsgBox "The integer entered was " & returnInt, , "GetInteger Example"
    
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_GetInteger()
    ;; This example returns the integer entered by the user.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; Return the value entered by user. A prompt is provided.
    (setq returnInt (vla-GetInteger (vla-get-Utility doc) "Enter an integer: "))
    (alert (strcat "The integer entered was " (itoa returnInt)
                   "\n(Enter the next value without prompting.)"))
    
    ;; Return the value entered by user. No prompt is provided.
    (setq returnInt (vla-GetInteger (vla-get-Utility doc)))
    (alert (strcat "The integer entered was " (itoa returnInt)))
)