如果使用带有ACRX\u cmd\u透明标志的vlax add cmd函数,则可以使用autolisp创建transperent命令。
尝试:
- (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 [Arc/Halfwidth/Length/Undo/Width]:
- Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]: [b][color="Blue"]'tt[/color][/b]
- [color="#0000ff"][b]Resuming PLINE command.[/b][/color]
- Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:
- Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:
|