绘图及屏幕操作函数.ppt
CAD 程序设计方法,教师：李敬敏,三、绘图及屏幕操作函数,引言,1 交互的必要性,3.1 get族交互式输入函数,1 输入整型数函数 getint,2 输入实型数函数 getreal,3 输入字符串函数 getstring,4 输入点函数 getpoint,5 输入窗口点函数 getcorner,6 输入距离函数 getdist,7 输入角度函数 getangle,8 输入方位角函数 getorient,10 输入关键字函数 getkword,9 限制输入类型和关键字函数 initget,11 命令暂停函数 pause,3.1 get族交互式输入函数,getint getreal getstring and getpoint,（getint）输入一整型数（getreal）输入一实型数（getstring T）输入一个字符串(getpoint)输入一个点,格式：原样显示的任选字符串,注意：若不输入任何数，而直接回车或空格键，返回NIL,n：在屏幕下一行显示,可选项T：有T，输入的字符串中可含有空格，回车表示输入结束，无T，输入的字符串中不能有空格，空格或回车表示输入结束,3.1 get族交互式输入函数,getint getreal and getstring getpoint,(getint),(getint”请输入一个整数：”),(setq a(getint”n请输入一个整数：”),(getreal),(getreal”请输入一个实型数：”),(setq a(getreal”n请输入一个实型数：”),(getstring),(getstring”n whats your name”),(setq a(getstring T”n whats your name”),(setq P0(getpoint n输入左下角点：),3.1 get族交互式输入函数,getdist getangle getcorner and getorient,(getdist)等待用户输入距离函数(getangle)等待用户输入角度函数(getcorner)等待用户输入窗口点函数(getorient)等待用户输入方位角函数,格式：（函数名+）,点的输入：,(setq a(getdist),(setq dist(getdist(100.0 350.0),(setq ang(getangle),(getcorner(100.0 100.0),3.1 get族交互式输入函数,输入方位角函数,（getorient）,功能：等待用户输入一个角度，返回一个方位角的弧度值,注意：1）当角度零度方向为东方，角度增加为逆时针（AUTOCAD缺省设置），getangle 和getorient功能一样；2）getorient总是以东方为零度方向，逆时针为角度增加方向 3）getangle的零度方向和角度增加方向可以进行设置,3.1 get族交互式输入函数,限制输入类型和关键字函数,（initget）,：控制紧跟其后的get族函数输入的类型和范围；,1拒绝接受空输入2拒绝接受零值4拒绝接受负值8不检查作图限定范围16返回三维点32用虚线（或醒目线）画橡皮筋,(setq a(getreal a)(initget 2)(setq b(getreal b)(/a b),(initget(+1 2 4)(setq age(getint How old you are?),3.1 get族交互式输入函数,限制输入类型和关键字函数,（initget）,1、缩写的字符用大写字母表示，其余字符用小写表示,2、把缩写的字符（大写）放在整个关键字的后面，用逗号分开,：简化字符串的输入和保证输入的字符串为规定的字符串,两种格式：,(initget“Yes No”）,(initget“Yes，Y No，N”）,注意：缩写字符的个数应能代表匹配关键字的最少字符个数,(initget LTScale LTYpe),3.1 get族交互式输入函数,输入关键字函数,（getkword）,功能：必须与initget配对使用，等待用户输入的字符只能是initget函数中的字符串。,注意：getkword不能单独使用；一个initget函数仅对其后的一个get函数起作用,(initget“Yes No”),(setq k(getkword“Are you sure?(Y/N)”),3.1 get族交互式输入函数,命令暂停函数,（pause）,功能：用在command函数的参数表中，使正在执行的AutoCAD命令暂停，以等用户输入,(command circle 100,100 pause line 100,100 100,800),3.2 command 函数,（command）,功能：Autolisp程序调用AutoCAD命令进行绘图的唯一途径和接口，表示 AutoCAD的命令、子命令和命令所需要的参数。,规定：,1、AutoCAD的命令、子命令和命令选择项用字符串表示（加双引号），不分大小写,(command“pline”“80,100”“w”0.4 0.4“150,250”“100,600”“c”),2、数值常数（整、实型）可以是数字本身，或字符串,(command“pline”“80,100”“w”“0.4”“0.4”“250,300”“100,600”“c”),3.2 command 函数,（command）,功能：表示 和AutoCAD的命令、子命令和命令所需要的参数。,规定：,3、点常数采用表的形式或字符串形式表示,(command“pline”(80 100)“w”0.4 0.4(150 250)(100 600)“c”),(command pline(list 50 100)w 0.4 0.4 250,180(100 500)c),(command pline 80,100 w 0.4 0.4 150,250 100,600 c),3.2 command 函数,Autolisp程序调用AutoCAD命令进行绘图的唯一途径和接口,（command）,功能：表示 和AutoCAD的命令、子命令和命令所需要的参数。,规定：,4、command函数调用参数中，空字符串“”等效键盘上按一次空格或回车,(command“pline”“80,100”“w”0.4 0.4“150,250”“100,600”“”),5、(command)不带任何参数的command，相当于一次Esc键，来取消当前的AutoCAD命令，两个，则返回命令状态，也可用符号代替,6、command函数中不能使用GET族函数,3.2 command 函数,Command函数 讨论与练习,(command layer n 1,2,3,4,5 s 1),1、设5个新层，并把1层置为当前层,2、设置新当前层，并把红色、中心线赋给新层,3、用LIMITS设置4号图幅，并置为全屏幕,(command layer m 1 c 1 1 l center 1),(command limits(0 0)(297 210)zoom a),3.2 command 函数,Command函数 讨论与练习,(command pline(150 150)w 0.4 0.4 a ce(50 150)a 180 cl),4、用PLINE画粗实线圆,5、写文字，用保证从命令状态下开始,6、采用缺省值标尺寸,(command text c(list 300 200)10 0 XEMAPLE),(command dim hor(50.0 150.0)(200.0 150.0)(120.0 160.0)exit),3.2 command 函数,Command函数 讨论与练习,(command polygon 6(320 320)i 50),7、采用内接圆方式画正多边形,8、把窗口内的目标阵列为两行四列，行距为30，列距为25,(command array w pw1 pw2 r 2 4 30 25),(command array w(0 0)(1024 780)r 2 4 200 250),(command array(entlast)r 2 4 300 350),3.2 command 函数,Command函数 讨论与练习,(command mirror w pw1 pw2 p1 p2 n),9、图形的镜象,(command mirror w(0 0)(1024 780)(450 100)(450 600)“n”),在使用command时，一定要知道所调用子命令的相关参数或子命令,命令，数据和坐标点一定要按照command函数要求的格式进行书写,3.3 屏幕操作函数,1（graphscr）文本屏幕转换成图形屏幕函数,返回NIL 2（textscr）图形屏幕转换成文本屏幕函数，返回NIL 相当于按一次功能键F2，两个屏幕互换3（redraw）重画屏幕上的图形4（grclear）对当前视窗的清屏5（vports）返回当前工作的视窗说明，给出视窗的标号 和视窗的左下角和右上角坐标,3.4 其他输入输出函数,1 文件装入函数,（load）,功能：装入一个AutoLisp文件,：是包括驱动器、目录名和文件名的字符串；,返回：若成功，返回文件中的最后一个函数名；如果失败，返回，若没有，则返回“文件名”字符串,(load“D:/CAD/ifxt.lsp”)(load“D:CADifxt”“load error!”),3.4 其他输入输出函数,2 字符串显示函数,（prompt）,功能：将显示在屏幕上，返回：显示时不换行，显示后不留空格。是一个字符串，但屏幕上显示的不带引号,3 换行函数,（trepri）,功能：控制换行，把光标移至下一行的行首，与(princ“n”)的作用相同,3.4 其他输入输出函数,4 打开文件函数,（open）,功能：打开文件，会返回一个文件描述符，供其他I/O函数使用,文件名：为包括驱动器、目录和文件名的字符串，扩展名不能省，同样，“”才得到一个“”,r以读方式打开文件，若不存在，返回NILw以写方式打开，若不存在，新建a以追加方式打开，若不存在，新建，若存在，指针移至文件尾,方式：为读写标志，必须用小写的字符串来表示,(setq f(open D:/CAD/samp2.txt w),3.4 其他输入输出函数,5 关闭文件函数,（close）,功能：关闭指定的文件，返回NIL,文件描述符：open函数产生的，关闭后失效,(setq f(open D:/CAD/samp2.txt w),(close f),3.4 其他输入输出函数,1（print）2（prin1）3（princ）把表达式求值后的值显示在屏幕上或写入文件中,6 打印、显示函数print prin1 princ,3.4 其他输入输出函数,6 打印、显示函数,（print）,1)print 总是在显示前自动换行到新一行的行首，显示后还要再输出一空格,2)若值为字符串，结果是带有双引号的字符串,3)若表达式值含有控制字符，不起作用,4)print 无参数时，起控制换行的作用,5)若有，将值写入相应的文件,3.4 其他输入输出函数,6 打印、显示函数,小结：,PRINT 函数总是在显示前自动换行到新一行的行首，而显示后还要再输出一个空格。如果是字符串，则原样显示，就是带有双引号，当字符串中有控制符时，不起作用,PRIN1的显示特点：显示时不换行，总是从当前光标处开始显示，显示后不留空格。字符串也是原样显示，当字符串中有控制符时，不起作用,PRINC 显示与prin1相似，显示字符串时，不带定界符双引号，当字符串中有控制符时，显示时将起控制作用,3.4其他输入输出函数,Print、prin1、princ函数 讨论与练习,3.4其他输入输出函数,Print、prin1、princ函数 讨论与练习,3.4 其他输入输出函数,1（read-line）从键盘或从所指的文件中读入一行字符串，并返回所读的字符串2（read-char）从键盘或从所指的文件中读入一个单字符，并返回该字符的ASCII码3（write-line）将写到屏幕或写到所指的文件中，返回用双引号引起的4（write-char）将一个字符写到屏幕或写到所指的文件中，是要写字符的ASCII码，也是函数的返回值,Read-line、read-char、write-line and write-char,3.5 系统变量存取函数,1 查看系统变量函数,（getvar）,功能：获取AutoCAD系统变量的当前值，是用字符串表示的合法的系统变量名,(getvar filletrad),(setq p1(getvar extmin),2 设置系统变量函数,（setvar）,功能：设置AutoCAD系统变量的新当前值,(setvar“filletrad“0.5),
