任意输入允许您为大多数函数提供字符串,就好像它是一个关键字一样;首先遵循控制位和关键字。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 |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 )
GMT+8, 2024-6-10 20:23
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.