AutoLISP绘图程序设计.ppt

第三章 AutoLISP绘图程序设计 主要内容 1.AutoLISP特点 2.AutoLISP函数的用法 3.AutoLISP程序结构 4.AutoLISP程序执行方式 §3.1 AutoLISP概述 一、AutoLISP介绍 1.AutoLISP的作用 （1）AutoLISP是一种表语言，是常用的AutoCAD二次开发手段。 所谓二次开发：是指以AutoCAD软件为平台，加入自己所需要的功能。开发过程，就是编程的过程。 二次开发所支持的语言有VB、C++，大型的二次开发，以C++为主，而小型二次开发，一般以AutoLISP为主。 （2）必须在AutoCAD环境下运行（内嵌）； （3）AutoLISP可以编写程序，调用AutoCAD的许多 命令； 举例:在水平方向画n个大小相等的圆。 （4）AutoLISP语言中使用大量的函数（有200多个函数），进行各种运算； （5）AutoLISP编写的程序特点（学习中注意）： 以表形式描述数据处理过程，程序执行过程就是函数求值过程； 每段程序都是一个函数； 具有交互处理功能，边解释边执行； 采用模块化设计方法。 2.AutoLISP的数据类型 （1）整型数（INT）：是由0、1、2…9、+、-组成的。 （2）实型数（REAL）：如0.4（0不能少）、-1.23、0.526E9（0.526×109）。 （3）符号（SYM）：除(、)、*、‘、”、；之外的字符序列，并且不能全部是数字。 符号常用着变量，如： Command:(setq X 12) ;整型数 Command:(setq X 12.0) ;实型数 Command:(setq X “12”) ;字符串 （4）字符串（STR）：如：“ABC”、“abc”、“457”等。 （5）表（LIST）：带有一对括号、有若干元素组成。（元素1 元素2 … 元素n） 如：（2 4 f） ◇元素的个数叫表的长度。 ◇元素也可以是表，如（45 （3 6） 7），这叫嵌套。 ◇元素之间必须用“空格” 隔开。 ◇表的定义方式：（LIST 5 6）；’（5 6）；还可以用defun定义（后面讲）。 例： (setq P(list 12.36 -26.58)) 结果是：(12.36 -26.58) 例：(setq P (12.36 -26.58)) 结果是：(12.36 -26.58) 提示: (1)表的嵌套时一定要注意括号“（”、“）”匹 配。 (2)西文状态下输入！！！ （6）文件描述符 （7）AutoLISP内部函数 （8）AutoCAD的选择集 （9）AutoCAD的实体名 上述数据类型中，前四种称原子，原子包括数值原子（整型数、实型数），符号原子和字符串原子。 AutoLISP基本数据类型是原子和表，重点介绍前五种数据类型。 二、几个基本概念 1.常数 PI——数学中的π（3.1415929…） T——逻辑真，即成立。 NIL——逻辑假，即不成立。还代表空，即无值。 注意：（1）大小写等效；（2）它们不能作为变量。 2.原子 是程序处理中最小的数据单元。 3.表达式 原子和表的统称。 如：(setq P (12.36 -26.58)) 4.点 是表的一种形式，也叫点表。 有三种获得点的方式： （1）用表示 (120.35 253.24) （2）list函数定义点 (setq X 12.36 Y -26.58) (setq M (list X Y)) 结果是：M=(12.36 -26.58) (setq M ( X Y)) 结果是：(X Y) （3）由getpoint函数得到点 其格式：（getpoint “\n输入一点：”） 三、AutoLISP程序结构 1.举例 例（1） ;;在屏幕上显示 ASCII码为（65－90）的字符 (defun C:zm(/ as) ;自定义命令 (setq as 65 n 100) (while (= as 90) (command text (list n 100) 15 (chr as)) (setq as (+ as 1) n (+ n 20)) ) ) 例（2） ;;绘制正多边形程序 (defun c:dbx() (setq n (getint\n输入多边形边数:)) (setq L (getreal\n输入多边形边长:)) (setq P1(getpoint\n输入多边形第一个角点坐标:)) (setq P2(polar P1 0