对平移和缩放做出反应?
你好我设置了以下反应器,每当用户平移视口时调用回调:
(defun CallBack(event parameter)
(If (eq (car parameter) "VIEWCTR") (princ "Pan!") ) )
(if (not PanReactor)
(setq PanReactor (vlr-sysvar-reactor nil '((:vlr-sysvarchanged . CallBack))) ) )
然而,它从不写“潘!”。在我看来,更改“VIEWCTR”甚至对以下反应堆没有反应。。。那么,如何捕捉平移和缩放动作呢? reactor不能处理某些只读变量。例如DATE、CMDACTIVE或VIEWCTR。
页:
[1]