请教如何通过反应器获取SETVAR 命令的实际命令

cheng5276

近日发现OPENDCL与CAD的“wscurrent”命令存在严重的冲突，当CAD中只要存在OPENDCL的界面，执行wscurrent（工作空间切换）命令，CAD立刻就会崩溃（CAD07、2010、2012均如此），故小弟想到通过命令反应器来解决，即在改命令执行开始前，就关掉相应的界面，命令结束后再开启该界面，可惜........问题来了！
发现该命令在命令反应器中的名称竟然是“SETVAR”,请教大侠们，小弟该如何才能知道实际是执行了“wscurrent”命令呢？

(vl-load-reactors);加载反应器库
(setq c5276_command_reactor (vlr-command-reactor nil  '((:vlr-commandWillStart . cheng5276_command_callbacks1)) ))

(defun cheng5276_command_callbacks1 (a b / )
(print (setq c5276_cmdname (strcase (car b)) )) ;;可惜执行的wscurrent，竟然在此显示的是“SETVAR”
(cond
((= c5276_cmdname "SETVAR")
................................
)
)
)