第三章 交互式输入函数和屏幕输出函数.ppt

* LOGO 第三章 交互式输入函数和屏幕输出函数 本章介绍Auto LISP系统提供的交互式输入函数和屏幕输出函数。交互式输入函数是提供用户通过输入设备（键盘、数字化仪和鼠标器）将数据输入给计算机的函数，屏幕输出函数是将运行结果通过输出设备（终端显示器）输出的函数，这些函数都是Auto LISP程序和用户间进行人机交互通讯时不可缺少的，也是非常重要的函数。 3.1 交互式输入函数 我们已讲过在编程时，程序设计者可以用setq函数给变量赋值，但这些变量的值是固定的，在程序运行过程中用户是不能改变的，这样非常不方便，特别是在绘图时，无法实现参数化绘图。为此Auto LISP提供了人机交互式输入函数，这些函数使用户可以从键盘等输入设备输入数据，改变变量的值和给变量以初值等。下面介绍九种交互式输入函数，由于其前面三个字母为get，故又称get族函数 GETINT 输入整数函数 GETREAL 输入实数函数 GETDIST 输入距离函数 GETPOINT 输入点函数 GETCORNER 输入窗口函数 GETSTRING 输入字符串函数 GETANGLE 输入角度函数 GETORIENT 输入方位函数 GETKWORD 关键字输入函数 另外还有一个为GET族函数提供各种关键字的函数INITGET，另一类输入函数，它的输入设备可以是外存磁盘，如： read—char 读一个字符函数 read—line 读一行字符串函数 3.1.1 GET输入输入函数 get函数的通用调用格式是： (getxxx [〈提示〉]) 〈提示〉是可以任选的一个字符串，当调用getxxx函数时，程序暂停，等待用户输入。此时若有〈提示〉则提示的信息显示在屏幕上，用户根据提示的信息输入需要的数据，若输入的数据类型和范围正确，程序可继续进行，下面分别介绍这些函数。 １. 数的输入函数 ⑴整数输入函数GETINT 调用格式 (getint [〈提示〉]) 如上所述，〈提示〉是一个任选的字符串。 功用 该函数的功能是提供用户通过输入设备输入一个整型数，当执行该函数时，机器暂停下来等待用户输入整型数后，程序继续进行，例如： (setq a (getint “enter an integer number：”)) 屏幕显示enter an integer number:50 ；此时用户可通过键盘输入一个整数，如50。 该函数确认50是合乎要求的数据类型，程序继续运行，否则提示要求一个整数。 Command：!a 50 求值结果 执行该函数时，并不求值，只有当输入一个整型数后才返回求值结果即该整型数。如上例： (setq a (getint “\n enter an integer number：”)) ；\n为换行控制符返回值125 enter an integer number：125 并将125赋给a 如果输入不是整型数，而是直接回车或空格键，则返回nil，了解着一点很重要，它常被用于控制循环程序。 注意 getint函数在标准情况下只接受整型数，而且输入整型数范围必须在-32768到+32768之间，否则出错。 ⑵实型数输入函数GETREAL 调用格式 (getreal [〈提示〉]) 功用 机器暂停等待用户输入一个数，（可以是实型数或整型数） 求值结果 不管输入的数是整型数或是实型数，均返回实型数，若直接回车，则返回 nil。 (setq a (getreal “enter a number：”)) enter a numb：5 返回值5.000000 enter a number： 返回值nil ⑶距离值输入函数GETDIST 调用格式 (getdist ［〈基点〉 〈提示〉］ 功用 等待用户输入一个距离值。其中任选项〈基点〉是指定一个基点（二维点或三维点）。输入距离的方式有三种：①输入一个距离值的数，②可以在