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