尝试:
(defun tt()
(alert "I am transperent lisp command")
(princ)
); end of c:trp
(vl-load-com)
(vlax-add-cmd "tt" 'tt "tt" ACRX_CMD_TRANSPARENT)
现在,您可以在任何autocad命令中调用“tt”命令。例如:
Command: pline
Specify start point:
Current line-width is 0.0000
Specify next point or :
Specify next point or : 'tt
Resuming PLINE command.
Specify next point or :
Specify next point or : 阿斯米,你怎么知道这么多。。。。??? 我有阅读帮助的不受欢迎的习惯。 这是一个好习惯。。。 关于透明命令-
“命令”defuns(defun c:xx)已经能够透明地调用很多年了,不知道它是什么时候第一次可能。。。
ASMI描述的方法是对常规“defuns”执行此操作的一种方法,这是我第一次了解该方法。 它已经出现了至少几个版本,我想我在2006(2005?)透明。 函数vlax add cmd将lisp函数注册为标准AutoCAD命令,并确定其属性(阅读帮助),以及完整命令ame和别名。请注意,在下载之前的列表表达式(命令“tt”)后,该表达式可以工作。此外,现在“撤消”命令将适用于标准AutoCAD命令。
我没有听说过这个,也许它在任何版本中都有效。
页:
1
[2]