AutoCAD二次开发实用教程 教学课件 作者 郭秀娟第4章 程序流程控制.ppt

《AutoCAD二次开发实用教程 教学课件 作者 郭秀娟第4章 程序流程控制.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第4章程序流程控制1.掌握交互的函数使用；2.掌握控制函数的使用规则；3.能够用AutoLISP控制函数编写程序，实现顺序结构、分支结构、循环结构的程序设计；本章要求：4.1顺序结构顺序结构程序设计是最简单的，只要按照解决问题的顺序写出相应的语句即可，它的执行顺序是自上而下，依次执行的。顺序结构可以独立使用构成一个简单的完整程序，常见的输入、计算，输出三部曲的程序就是顺序结构；不过大多数情况下顺序结构都是作为程序的一部分，与其他结构一起构成一个复杂的程序。第4章程序流程控制4.1.1GET族输入

2、函数1．(GETXXX[<提示>])<提示>是任意字符串，当调用GETXXX时，程序暂停<提示>所提示的信息，显示在屏幕上等待用户输入指定类型的数据，见表4-1，并返回输入的值。第4章程序流程控制4.1.1GET族输入函数2.(GETINT[提示])传给GETINT函数的有效数值范围是-32768到+32767，如果用户输入非整数，GETINT将显示信息“需要整数值”，然后等待用户重试。用户不能输入一个AutoLISP表达式来响应GETINT函数的请求。例如：(SETQr(GETINT))无提示

3、(SETQnum(GETINT"请输入一个整数："))请输入一个整数：2525(SETQnum(GETINT))输入：15.0需要整数值。再输入：15第4章程序流程控制4.1.1GET族输入函数3.(GETREAL[提示])返回值:用户输入的实数。例如：(SETQval(GETREAL))(SETQval(GETREAL"缩放比例："))注意：用户不能输入其他AutoLISP表达式来响应GETREAL的请求。第4章程序流程控制4.1.1GET族输入函数4.(GETSTRING[参数][提示])说

4、明：[参数]：如果提供了该参数且其值不为NIL，那么输入的字符串可以包括空格且必须按回车键结束。否则，输入的字符串以空格键或回车键结束。例如：(SETQs(GETSTRING"what'syourname?"))屏幕提示what'syourname?，只有输入一个字符串如“liang”，程序才继续运行。(SETQs(GETSTRINGT"请输入文件名："))请输入文件名：c:mydocumentsvlispsecrets"C:\MYDOCUMENTS\VLISP\SECRETS"第4

5、章程序流程控制4.1.1GET族输入函数5.(GETDIST[<基点>][<提示>])用户可以通过选择两个点来指定距离，如果提供了基点，则只需选择第二个点。用户还可以通过输入一个以AutoCAD的当前距离单位格式表示的数来指定距离。例如：(SETQd(GETDIST"距离："))屏幕显示：距离：5;返回值5.0000或距离：3，2;输入一个点再提示：第二点：8，2;输入第二个点，两点间距离即为返回值5.0000第4章程序流程控制4.1.1GET族输入函数6.GETPOINT，GETCORNER函

6、数等待用户从提示行或屏幕上选取点作为输入，GETPOINT和GETCORNER返回3D点或2D点的坐标值。1)(GETPOINT[<基点>][<提示>])例如：(SETQp(GETPOINT"点："))点：1，2返回值(1.00002.0000)若任选项<基点>存在，则通过拖引线可观察输入点与给定<基点>的相对位置。第4章程序流程控制4.1.1GET族输入函数6.GETPOINT，GETCORNER函数2)(GETCORNER<基点>[<提示>])注意：<基点>必须存在。GETCORNER函数需

7、要一个以当前UCS坐标系表示的基点作为参数，当用户在屏幕上移动光标时，它会从这个基点开始拖引出一个矩形框。返回值与GETPOINT类似，返回一个以当前UCS坐标系表示的点。(SETQPt(GETCORNER'(12)"第二点："))第二点：5,4返回值(5.04.0)第4章程序流程控制4.1.1GET族输入函数7.GETANGLE，GETORIENT函数GETANGLE，GETORIENT函数等待用户从命令行键入一个角度值，或者移动鼠标从图形屏幕上选取点，由拖引线确定一角度值做为输入。1）(GE

8、TANGLE[基点][提示])例如：（SETQang(GETANGLE))(SETQang(GETANGLE'(1.03.5))(SETQang(GETANGLE'(1.15.5)"输入角度值："))输入角度值：1.1，9.5返回1.5708弧度(SETQang(GETANGLE"输入角度值："))输入角度值：-60(即-π/3)返回5.23599(5π/3)弧度第4章程序流程控制4.1.1GET族输入函数7.GETANGLE，GETORIENT函数2）(GETORIENT[基点][提示])GE