让动画暂停，暂停中可平移缩放，并可根据鼠标滚轮滚动执行需要的表达式。
本帖最后由 GSD 于 2019-1-4 17:09 编辑有一程序需实现暂停程序来观察函数GRVECS的临时显示，因缩放窗口后需要重新执行GRVECS重绘。所以有了下面的这段，分享出来，希望有用，如有更好的方式请指点交流。
此代码可让动画或程序暂停（鼠标右键继续），暂停中可平移缩放，并可根据鼠标滚轮滚动执行需要的表达式。
;;鼠标右键结束
(while (and (setq oldVIEWSIZE (GETVAR "VIEWSIZE"))
(/= (setq b (car (setq a (grread 2)))) 25)
)
(if (not (= oldVIEWSIZE (GETVAR "VIEWSIZE")))
;;;(princ "滚轮已滚动")
;;此处添加需要执行的表达式
)
(PRIN1)
)
是用的视口大小对比来判断滚轮是否滚动过
页:
[1]