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

AutoCAD 2018 开发者帮助

关于任意键盘输入（AutoLISP）

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

关于任意键盘输入（AutoLISP）

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