CAD开发者社区 › 首页 ›AutoCAD用户指南› AutoCAD 文档中心› AutoLISP：开发人员指南› AutoLISP 核心概念› 关于使用 AutoLISP 与 AutoCAD 通信（AutoLISP）› 关于获取用户输入（AutoLISP）› 关于控制用户输入函数条件（AutoLISP） › 查看内容

AutoCAD 文档中心

关于任意键盘输入（AutoLISP）

2023-1-8 12:02| 发布者: admin| 查看: 2286| 评论: 0|来自: AutoCAD

摘要: 任意输入允许您为大多数 getXXX 函数提供一个字符串，就好像它是一个关键字一样;首先遵循控制位和关键字。

任意输入允许您为大多数函数提供字符串，就好像它是一个关键字一样;首先尊重控制位和关键字。getXXX

可以使用此工具编写应用程序，以允许用户在函数提示符下调用 AutoLISP 函数。您可以通过使用带有该功能的 128 控制位来启用任意键盘输入。getXXXinitget

下面的示例代码定义了一个名为的命令和一个名为的函数。该函数用于响应命令中的函数，该函数设置为允许任意键盘输入。ARBENTRYREFREFgetpointARBENTRY

(defun C:ARBENTRY ( / pt1)
  (initget 128)                     ; Sets arbitrary entry bit
  (setq pt1 (getpoint "\nPoint: ")) ; Gets value from user.
  (if (= 'STR (type pt1))           ; If it's a string, convert it
    (setq pt1 (eval (read pt1)))    ; to a symbol, try evaluating
                                    ; it as a function; otherwise,
    pt1                             ; just return the value.
  )
)

(defun REF ( )
  (setvar "LASTPOINT" (getpoint "\nReference point: "))
  (getpoint "\nNext point: " (getvar "LASTPOINT"))
)

以下命令序列演示了如何使用和一起使用：ARBENTRYREF

命令：arbentry

点：（参考）

参考点：选择一个点

下一点：@1,1,0