关于使用宏中的 AutoLISP
创建使用 AutoLISP 的命令是一种使用程序的自定义功能的更高级的方式。
可以使用 AutoLISP 变量和表达式来创建用于执行复杂任务的宏。程序在加载 CUI/CUIx 文件时，还会加载同一位置的同名 MNL 文件。将 AutoLISP 代码放置在 MNL 文件中是一种有效的方法，用来加载可以用于宏的自定义命令。
注： 仅针对 Windows，可以在“自定义用户界面 (CUI)”编辑器中指定其他要加载的 AutoLISP 文件。创建使用 AutoLISP 的命令是一种使用程序的自定义功能的更高级的方式。通过积累经验和进行练习，用户会有效地使用这种功能。
样例
- 预设值
-
此样例包含三个用于插入块的命令宏。
命令宏提示输入窗口宽度。
^C^C^P(setq WINWID (getreal "\nEnter window width: ")) ^P
命令宏提示输入墙厚度。
^C^C^P(setq WALLTHK (getreal "\nEnter wall thickness: ")) ^P
命令宏将插入名为“窗口”的块，并提示输入插入点和旋转。
^C^C_INSERT window XScale !WINWID YScale !WALLTHK
块的 X 轴表示当前窗口的宽度，Y 轴表示当前墙厚度。
- 调整夹点的大小
-
此样例包含两个命令宏，可以增加或减小 GRIPSIZE 系统变量的当前值。
命令宏将 GRIPSIZE 系统变量的值增加 1。
^P(setvar "gripsize"(1+ (getvar "gripsize")))(redraw)(princ)
命令宏将 GRIPSIZE 系统变量的值减小 1。
^P(setvar "gripsize"(1- (getvar "gripsize")))(redraw)(princ)
要将有效性检查添加到这些命令宏中，GRIPSIZE 系统变量的值不能小于 0 和大于 255。
- 提示用户输入
-
以下样例将提示输入两个点，然后用指定的点作为对角点绘制一个矩形多段线。
^P(setq a (getpoint "Enter first corner: "));\+
(setq b (getpoint "Enter opposite corner: "));\+
pline !a (list (car a)(cadr b)) !b (list (car b)(cadr a)) c;^P
- 调用指定给下拉菜单项的宏（仅适用于 Windows）
-
使用以下语法，可以通过编程方式执行下拉菜单项的宏：
(menucmd "Gcustomizationgroup.element_ID=|")
仅当菜单项是程序菜单栏上的菜单的一部分并且可用时，以上语法才有效。
| 
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 苏公网安备32011402011833)
