让动画暂停，暂停中可平移缩放，并可根据鼠标滚轮滚动执行需要的表达式。

GSD

有一程序需实现暂停程序来观察函数GRVECS的临时显示，因缩放窗口后需要重新执行GRVECS重绘。所以有了下面的这段，分享出来，希望有用，如有更好的方式请指点交流。
此代码可让动画或程序暂停（鼠标右键继续），暂停中可平移缩放，并可根据鼠标滚轮滚动执行需要的表达式。
;;鼠标右键结束
(while (and (setq oldVIEWSIZE (GETVAR "VIEWSIZE"))
            (/= (setq b (car (setq a (grread 2)))) 25)
       )
(if (not (= oldVIEWSIZE (GETVAR "VIEWSIZE")))
;;;  (princ "滚轮已滚动")
  ;;此处添加需要执行的表达式
)
(PRIN1)
)

taoyi0727

是用的视口大小对比来判断滚轮是否滚动过

xinrstar