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

AutoCAD 2023 开发者帮助

GetString 方法（ActiveX）

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

从用户获取字符串。

支持的平台：仅限 Windows

签名

VBA：

RetVal = object.GetString(HasSpaces [, Prompt])

对象

类型： 实用程序

此方法应用到的对象。

HasSpaces的

访问：仅输入

类型：长

0：返回字符串不能包含空格。它由回车符或空格终止。
1：返回字符串可以包含空格。它仅由回车符终止。

提示

访问：仅输入;自选

类型：变体（字符串）

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

返回值（RetVal）

类型：字符串

从用户返回的字符串。

言论

AutoCAD 暂停用户输入字符串，并将结果设置为用户输入的字符串。HasSpaces 参数指定字符串是否可以包含空格。Prompt 参数指定此方法在 AutoCAD 暂停之前显示的字符串。

AutoCAD 用户可以从键盘输入字符串。如果 HasSpaces 参数为 True，则字符串可以包含空格，用户必须通过输入 [Return] 来终止它。如果 HasSpaces 为 False，则输入空白或 [Return] 将终止字符串。如果用户输入的字符超过 132 个字符，则字符串输入将继续进行，直到用户输入空格或回车符（根据 HasSpaces），但仅将前 132 个字符放入返回值中。GetString

例子

VBA：

Sub Example_GetString()
    ' This example demonstrates different ways of returning a string
    ' entered by a user.
    
    AppActivate ThisDrawing.Application.Caption
    
    Dim returnString As String
    
    ' Prompt & Input cannot contain blanks
    returnString = ThisDrawing.Utility.GetString(False, "Enter text (a space or  terminates input): ")
    MsgBox "The string entered was '" & returnString & "'", , "GetString Example"
    
    ' Prompt & Input can contain blanks
    returnString = ThisDrawing.Utility.GetString(True, "Enter text ( terminates input):")
    MsgBox "The string entered was '" & returnString & "'", , "GetString Example"
    
    ' Prompt & Input can contain blanks, but not an empty string
    Dim NoNull As Integer
    NoNull = 1    ' Disallow null
    ThisDrawing.Utility.InitializeUserInput NoNull
    returnString = ThisDrawing.Utility.GetString(True, "Enter text ( terminates input): ")
    MsgBox "The string entered was '" & returnString & "'", , "GetString Example"

End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_GetString()
    ;; This example demonstrates different ways of returning a string
    ;; entered by a user.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))    
    
    ;; Prompt & Input cannot contain blanks
    (setq returnString (vla-GetString (vla-get-Utility doc) :vlax-false "Enter text (a space or <enter> terminates input): "))
    (alert (strcat "The string entered was '" returnString "'"))
    
    ;; Prompt & Input can contain blanks
    (setq returnString (vla-GetString (vla-get-Utility doc) :vlax-true "Enter text (<enter> terminates input):"))
    (alert (strcat "The string entered was '" returnString "'"))
    
    ;; Prompt & Input can contain blanks, but not an empty string
    (setq NoNull 1)    ;; Disallow null
    (vla-InitializeUserInput (vla-get-Utility doc) NoNull)
    (setq returnString (vla-GetString (vla-get-Utility doc) :vlax-true "Enter text (<enter> terminates input): "))
    (alert (strcat "The string entered was '" returnString "'"))
)