Autolisp开发课件解读.ppt

一、概述1.1AutoLISP语言的出现与发展 LISP语言是人工智能科学领域中广泛采用的一种程序设计语言。 LISP(list processing language)是一种计算机的表处理语言，应用编程十分灵活。 AutoLISP语言是嵌入在AutoCAD内部的LISP编程语言，是LISP语言与AutoCAD有机结合的产物。 AutoLISP可直接调用几乎所有的AutoCAD命令。 二、 数据类型、运算符与表达式 2.1数据类型：整型、实型、符号型、字符串、表、文件描述、选择集、实体名等。 整型 实型（浮点数） 字符串 表 文件描述 实体名 选择集 2.2 AutoLISP变量 变量的命名 变量数据类型 变量赋值 预定义变量(nil、T、PI、PAUSE) 2.3 AutoLISP的程序控制 基本逻辑函数： AND函数 OR函数 NOT函数 NULL函数 关系函数 =函数 /=函数 及=函数 及=函数 e) eq函数 d) equal函数 条件与循环函数 if函数 progn函数 cond函数 while函数(例题：求解百元买百鸡问题) repeat函数 例如:⑴ (command “circle” 点 半径) ⑵ (setq p1 ‘(20 30)) (setq rad 20) (command “circle” p1 rad) ⑶ (command layer make aa_la color 1 lt center ) (command layer set 0 ) ⑷ (command pline p1 p2 p3 p4) 例题：修剪成半个圆 绘制一个圆，圆心在（5,5），半径为2. 从（3,5）到（7,5）绘制一条线。 设置变量e1为数据库中必威体育精装版增加的图元名称。 设置变量pt为图上的一个点（5，7）（该点决定了圆被修剪的部分）。 选择对象e1和pt指定的点，执行trim命令。 代码如下 (command circle 5,5 2) (command line 3,5 7,5 ) (setq e1 (entlast)) (setq pt (5 7)) (command trim e1 pt ) 编程绘制以下图形 采用定义绘制矩形函数box画给定参数的矩形。 定义c:part形式函数，通过改变参数调用box来画出零件图。 要求两个函数的定义中，使用相同的局部变量名称。 应用程序开发的一般步骤及质量要求 详细整理用户的使用要求 整理设计中的有关现实方法 生成点位图 总体设计 详细设计 整体调试 运行考核 形成完整的程序包 作业2 法兰盘参数化 通过交互输入孔内径d1=45和大经d2=120两个数据完成全部图形。要求用lisp语言编程绘出图形、尺寸标注、剖面线填充。注：红色点划线为设置单另层。 工字钢参数表 举例1(p2) 按右图形式参数化绘图.设dra函数需要五个参数(既五个形参),sp为唯一的局部变量.绘图过程如下: 1.从基点bp画水平线,长度L2. 2.以上线段终点为起点,向上画w1. 3.以上线段终点为起点,向左画L2-L1. 4.以上线段终点为起点,向上画w2-w1. 5.以基点bp为起点,向上画w2. 6.最后采用”close”命令封闭. (defun dra(bp l1 l2 w1 w2 / sp) (command “pline” bp (setq sp (polar bp 0.0 l2)) (setq sp (polar sp (/ pi 2) w1)) (setq sp (polar sp (- pi) (- l2 l1))) (setq sp (polar sp (/ pi 2) (- w2 w1))) (polar bp (/ pi 2) w2) “close”) ) 举例2(p125) 编程画一个可为任意角度的长方形图框. 设:P1为基点,长为L,宽为W,角度为ANG,编程如下: 1.交互输入基点bp 2.交互输入长方形边长L 3.交互输入长方形宽度W 4.以bp为基点交互输入相对夹角ANG 5.用pline命令绘制第一长边L 6.绘制两条宽度边W 7.用封闭命令”c”完成 任意角度的长方形图框 (defun rec(/ p1 l w ang p2) (setq p1 (getpoint \nBase point:) l (getdist \nLength:) w (getdist \nWidth:) ang (getangle p1 \nAngle:) ) (c