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

AutoLISP 开发指南

关于任意键盘输入（AutoLISP）

2023-1-6 12:30| 发布者: admin| 查看: 900| 评论: 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

命令：乔木

要点：（参考资料）

参考点：选择一个点

下一点：@1，1，0