CAD二次开发教程(AUTOLISP)课件.ppt

Cad二次开发--AUTOLISP 入门;一、LISP编程语言概述;二、基本语法;3、关系表达式 1.等于 格式（= atom1 atom2…） 该函数（=）检查两个元素是否相等。若相等，条件为真，函数返回Ｔ。同样，若指定的元素不相等，条件为假，函数返回nil 2.不等于 格式（／= atom1 atom2…） 该函数（／=）检查两个元素是否不相等。若不相等，条件为真，函数返回Ｔ。同样，若指定的元素相等，条件为假，函数返回nil。 3.小于 格式（＜atom1 atom2…） 该函数（＜）检查第一个元素（atomｌ）是否小于第Ｈ个元素（atomＺ）。若为真，函数返回Ｔ，否则返回nil。 4.小于等于 格式(＜= atom1 atom2...） 该函数(=)检查第一个元素(atom1)是否小于等于第二个元素(atom2),若是，函数返回Ｔ，否则返回nil。;5.大于 格式（＞ atom1 atom2…） 该函数（＞）检查第一个元素(atom1) 是否大于第二个元素（atom2）。若是，函数返回Ｔ，否则返回nil。 6.大于等于 格式（＞= atom1 atom2…） 该函数(=)检查第一个元素（atom1）的值是否大于等于第二个元素（atom2）。若是，函数返回Ｔ，否则返回nil。 ;三、基本函数;(defun Ｃ：ADNUM（），在函数名前加上Ｃ：后，此函数就可以通 过在AutoCAD的Command：提示符后输入其函数名来执行。如果没有使用Ｃ：，函数名则必须置于圆括号中。 注意 AutoLISP包含一些内置函数，不要使用其中的任一名称作为函数名或变量名，以下是一些AutoLISP内置函数的保留名称列表。 2.setq函数 setq函数用于给变量赋值，其格式如下： （setq name value［Name value］…） 其中Name…………………变量名 value…………………赋予变量的值 赋予变量的值可以是任何表达式(数字表达式，字符串表达式或既含有字母又含有数字的表达式)。若该值为字符串，其长度不可超过100个字符。 Command：（setq ｘ 12） Command： （setq ｘ 8.5 ｙ 12） ;3、Command函数 Command函数用于在AutoLISP程序内部执行标准的AutoCAD命令。AutoCAD命令名及命令选项必须置于双引号内。Command函数的格式为： （Command “Commandname”） 其中Command…………………AutoLISP函数 Commandname……………AutoCAD命令 示例： （Command“line” Pt1 Pt2“”） “line” ……………AutoCAD ＬＩＮＥ命令 Pt1……………………第一点 Pt2……………………第二点 “”…………………用于返回，相当于“回车”键;4.getpoint函数 getpoint函数暂停程序的运行，允许用户输入一个点的Ｘ、Ｙ坐标或Ｘ、Ｙ、Ｚ坐标。该点的坐标可以由键盘或使用屏幕光标输入。getpoint函数的格式为： （getPoint［Point］［Prompt］） 其中point…………………输入一个点，或选择一个点 prompt…………………将显示在屏幕上的提示 示例： （setq Pt1（getpoint）） （setq Pt1（getPoint“选择第一点”)) 有上面几个函数就可以开始编程了： 例1 编写一个程序，该程序将提示用户选择三角形的三个顶点，并通过它们绘出如三角形。 本例中，程序的输入为三个点的坐标，期望的输出为一个三角形。用以生成该三角形的处理过程为：由P1到P2、由P2到P3、到P3到P1各画一条直线。弄清这三部分就会使编程过程更清晰。 ;;该程序提示输入三点， 1 ;提示选取点进可以是在屏幕上点取，也可以是输入坐标