Lisp的暂停与while的特殊使用
Lisp一般在交互输入时才会暂停，如果只需要实现屏幕显示暂停，可使用grread函数，grread函数对所有合法的输入设备均会作出反应，有时我们只希望对键盘有反应，可使用while函数进行循环。
*******************
(princ “nPress ENTER to continue:”)
(while (/= (car (grread)) 2))
*******************
while用于满足一定条件的循环，其标准语法为：
(while testexpr [expr…])
其中expr解释为“在 testexpr 为 nil 之前要求值的一个或多个表达式”，为可选项（在R14之前没有方括号，但仍为可选项）。
正常我们使用while时，总会有expr项，更多的时候，我们是为了expr项才会使用这种循环语句，所有我们往往有expr项是不可缺少的感觉。这里我们使用while函数的语法是while函数的特例，即没有expr项的情况。
如果希望对鼠标右键同时反应，可以使用：
*******************
(princ “nPress ENTER to continue:”)
(while (and (/= (setq a(car (grread))) 2) ;键盘
(/= a 11) ;鼠标右键（SHORTCUTMENU＝0）
(/= a 25) ;鼠标右键（SHORTCUTMENU≠0）
)
)
*******************
作者：西部车床，如若转载，请注明出处：https://www.lathe.cc/2022/09/4194.html
相关推荐
-
碳素钢 (S45C)槽切割，用直角电主轴EMA-3020K
碳素钢 (S45C)槽切割，用中西NAKANISHI直角电主轴EMA-3020K 碳素钢 (S45C)材质，需要切割6*30mm的槽，普通数控车床排刀机，用什么工具加工…
-
光栅的检测原理安全光栅工作原理
常见光栅的工作原理都是根据物理上莫尔条纹的形成原理进行工作的。图4-9是其工作原理图。当使指示光栅上的线纹与标尺光栅上的线纹成一角度来放置两光栅尺时，必然会造成两光栅尺…
-
模具注塑原理介绍
模具注塑成型原理： 1、烘干的塑料颗粒通过成型机料斗进入成型机料筒 2、在加热片加热的螺杆旋产生的剪切热的共同作用下塑料颗粒成为熔融状态 3、熔融塑胶在成型机机头部分聚集，计量4、…
-
热电偶测温原理
热电偶是一种感温元件, 它能将温度信号转换成热电势信号, 通过电气测量仪表的配合, 就能测量出被测的温度。 热电偶测温的基本原理是热电效应。…
-
纳米测量精度光栅传感器研究综述
光栅技术是精密测量主要的手段之一。它以实物形式提供测量基准，既可以采用低热膨胀系数的石英或零膨胀玻璃等材料作为基体，也可以采用具有和钢等材料热膨胀系数非常接近的玻璃或金属材料作…
-
螺纹类零件1的数控车床加工
normal style=”MARGIN: 0cm 0cm 0pt”>N10 G50100Z100； normal style=”MARG…
-
轴类零件的加工方法
以下图为例，分析简单轴类零件的加工工艺、编程方法和加工顺序安排方法，希望根据例题巩固外圆加工的方法，做到举一反三，触类旁通。 1、课题图纸 图1…
-
贝加莱:传统与创新
前言 INVERA s.r.o.公司位于捷克Rakovnik，18年来专注于传统的注射成型机的开发和制造。这一捷克供应商在所有开发产品的设计上使用了最新的电气驱动。 在1992年，…
