autolisp程序应用.pptVIP

例1? 编写一个程序，该程序将提示用户选择三角形的三个顶点，并通过它们绘出所示的三角形。 ? 多数程序都包含三个基本组成部分，即输入、输出及处理过程。其中处理过程的功能为根据给定的输入来产生预期的输出。编写程序前，必须确认这三部分。 本例中，程序的输入为三个点的坐标，期望的输出为一个三角形。用以生成该三角形的处理过程为：由P1到P2、由P2到P3、到P3到P1各画一条直线。弄清这三部分就会使编程过程更清晰。 输入????????????????? 输出? P1点的位置? P2点的位置???????????? 三角形P1，P2，P3? P3点的位置????????????????? 处理过程????????????????? 从P1到P2画线????????????????? 从P2到P3画线????????????????? 从P3到P1画线 ；this program will prompt you to enter three points????????????????? 1；of a triangle from the keyboard ,or select three points???????????? 2；by using the screen cursor .P1,P2,P3 are triangle corners.????????? 3????????????????????????????????????????????????????????????????????? 4(defun： Ｃ：triang1()??????????????????????????????????????????????? 5? （setq P1（getPoint“＼ｎ Enter first Point of triangle：”））??????? 6? （setq Ｐ2（getPoint“＼ｎ Enter second Point of triangle：”??????? 7? （setq Ｐ3（getPoint“＼ｎ Enter third Point of triangle：”））?????? 8? （Command“line” P1 P2 P3“Ｃ”）?????????????????????????????????? 9）??????????????????????????????????????????????????????????????????? 10 说明第1－3行前三行为注释行，用于描述程序中的函数。这几行很重要因为有它们，编辑程序会变得简单一些。可以在任何必要的时候使用注释。所有的注释行都必须以分号（；）开头，当程序装入时这些行会被忽略。第4行：行为空行，用于分隔程序与注释部分。空行还可以用来分隔程序的不同模块。这样便于区分程序的不同部分。空行对程序没有影响。第5行：（defun C: triang1()本行中，defun为一个AutoLISP函数，它定义了函数TRIANG1。TRIANG1为该函数的函数名。由于此函数名前带有Ｃ：，因此该函数可以像AutoCAD命令一样被执行。若没有Ｃ：, TRIANG1命令只能置于圆括号中执行（TRIANG1）。此函数带有三个全局变量（ P1,P2，P3）。 第6行：（setq P1（getpoint“\ｎ Enter first Point ｏｆ triangle：））本行中，getpoint函数暂停程序的运行，允许用户输入三角形的第一个点。提示信息Enter first? Point? of? triangle显示在屏幕的提示区内。可以通过键盘输入该点的坐标，也可以用屏幕光标选择该点。随后setq函数将这些坐标赋予变量P1。＼ｎ的作用是回车，其后的表达式将被打印在下一行上（“ｎ”代表“ｎｅｗｌｉｎｅ）第７行和第8行：（setq? Ｐ2（getpoint“＼ｎ Enter second Point of triangle：”））及（setq Ｐ3（getpoint“＼ｎ Enter third Point of triangle：”））这两行提示用户输入三角形的第二个顶点