养成良好的AutoLISP书写习惯

1、养成良好的AutoLISP 书写习惯众所周知，Lisp是一种表结构语言，括号必须成对出现，在调试时往往为遗漏了一个括号大 费周折，所以，养成一个好的编程习惯是学好Lisp所必须的。选择一个较好的编辑器，这是一个基本条件，建议使用Visual Lisp编辑器或Lis plink等专用编辑器，此类编辑器可以对函数突出显示。按Lisp( DCL)专有格式书写，并经常对程序进行格式化”，及时发现语法错误，并有利于调试是查找错误。使用自定义函数，并辅助以适当得注释，在较大程序中按功能使用自定义函数可以使 得程序条理化。autolisP 的入门教程+ autolisp 函数！Lisp是一门历史悠久的语言，

2、全名叫 LISt Processor，也就是 表处理语言”，它是由John McCarthy于1958年就开始设计的一门语言。 和Lisp同时期甚至更晚出现的许多语言如Algo等如今大多已经消亡，又或者仅仅在一些特定的场合有一些微不足道的用途，到现在还广为人知的恐怕只剩下了Fortran和COBOL。但唯独Lisp,不但没有随着时间而衰退，反倒是一次又一次的焕发出了青春，从Lisp分支出来的Scheme、ML等语言在很多场合的火爆程度甚至超过了许多老牌明星。那么这颗常青树永葆青春的奥秘究竟在哪里呢？如果你只接触过 C/C+、Pascal这些过程式语言”的话，Lisp可能会让你觉得十分不同寻 常

3、，首先吸引你眼球(或者说让你觉得混乱的)一定是Lisp程序中异常多的括号，当然从现在的角度来讲，这种设计的确对程序员不大友好， 不过考虑到五六十年代的计算机处理能 力，简化语言本身的设计在那时算得上是当务之急了。Lisp的基本语法很简单，它甚至没有保留字(有些语言学家可能对这一点有异议，别怕，我 听你们的)，它只有两种基本的数据，仅有一种基本的语法结构就是表达式，而这些表达式 同时也就是程序结构，但是正如规则最简单的围棋却有着最为复杂的变化一样，Lisp使用最基本的语言结构定义却可以完成其它语言难于实现的、最复杂的功能。废话少说，现在我们就来看看Lisp语言中的基本元素。Lisp的表达式是一个

4、原子(atom)或表(list)，原子(atom)是一个字母序列，如abc ;表是由零个或多个表达式组成的序列，表达式之间用空格分隔开，放入一对括号中，如：abc()(abc xyz) (a b (c) d)最后一个表是由四个元素构成的，其中第三个元素本身也是一个表。正如算数表达式1+1有值2 一样，Lisp中的表达式也有值，如果表达式e得出值V,我们说e返回V。如果一个表达式是一个表，那么我们把表中的第一个元素叫做操作符，其余的 元素叫做自变量。Lisp世界中的7个公理(基正如欧几里德的几何世界中有五个公理一样，我们在这里给出 本操作符)：(quote X)返回X,我们简记为x(atom X

5、)当X是一个原子或者空表时返回原子t，否则返回空表()。在Lisp中我们习惯用原子t表示真，而用空表 ()表示假。 (atom a)t (atom (a b c)() (atom ()t现在我们有了第一个需要求出自变量值的操作符，让我们来看看quote操作符的作用一一通过引用(quote) 一个表，我们避免它被求值。一个未被引用的表达式作为自变量，atom将其视为代码，例如： (atom (atom a)t反之一个被引用的表仅仅被视为表 (atom (atom a)()引用看上去有些奇怪，因为你很难在其它语言中找到类似的概念，但正是这一特征构成了Lisp最为与众不同的特点一一代码和数据使用相同

6、的结构来表示，而我们用quote来区分它们。(eq X y)当x和y的值相同或者同为空表时返回t，否则返回空表() (eq a a)t (eq a b)() (eq ()()t例如：我们有时想捕捉任意两点的中点，而不只是一条线上的中点，用系统自己的捕捉中点(它要有辅助线)就不行了，我们可以参考 捕捉虚中点sP程序来实现。除程序中的语句要学外，动画中的自动找到所 有的全局变量并把它们改为局部变量的方法很有用！动画中先画了一个六边形，再画一个圆与它内接， 圆心就是捕捉虚中点！AutoLis P 概述AutoLisp的数据类型，它有10种数据类型，常见的有五种：整型 INT实数型 REAL 符号型S

7、YM字符串STR表 LIS PS-表达式，它是原子和点在AutoLisp中，最基本的数据类型称为符号表达式，也称为对的总称，点对通常表示为表。原子是一个一般符号系列，有两种类型的原子，一种称为数子原子(简称数”)，AutoLIsp可处理整数和实数，其它不是 数”原子称为非数字原子，它包括符号原子（或称为文字原子） 和串原子。注意：0.4不能写成.4。符号原子的大小写是等效的。符号原子可以包含下列字符以外的任何可打印字符。用于定义表用于作点对用于注释的开始用作QUOTE函数的简写用作字符串常数的定界符正反括号句号分号 双引号6个字符。（而不是nil.符号原子的长度没有限制，且所有的字符都是有意义

8、的，但尽量不要超过约束是一对符号和值，当将一个值赋给符号时，就说符号被约束到那个值。值 符号）决定所代表信息的类型，故一个符号可以接受任何类型的值，其初始值为在AutoLisP中，有两个特殊的符号原子，即T和nil.字符串的个数（不包括定界符）称为字符串的长度。字符串可以是任意长度，它们的存储空间是动态分配的，但字符串常量的最大长度不超过100，长度为0字符串称为空串。可以用nnn”的方式表示字符，其中nnn为八进制。e Escn 换行r 回车t 制表符（Tab节）点对是由一个左括号，后接一个S-表达式和空格再接一个句点和空格和一个右括号。表是指放在一对相匹配的左右括号中的元素有序集合。表中的

9、项称为表的元素， 表中的元素可以是任意类型的 S-表达式，序号 0到n 1。如果嵌套，0层，1层表的长度，顶层元素的个数。只有nil是表（）又是原子。表有两种类型：标准表，引用表。引用表是在表的前面冠以引用符号（或Quote）对该表不求值。标准表：第一个元素的值必须是一个合法的已经存在的AutoLisp函数定义，后跟调用该函数的参数。AutoLisp采用前缀表示法 即把运算符放在操作数之前，而不是中间，并把运算符（函数名）和操作数（调用函数的参数）用圆括号括起来，以表的方式表示。一个完整的AutoLisp程序往往是由一系列按顺序排列的S-表达式组成的。如：（defu n p lus （x y）

10、（+ （ + x y） X）（SetQ a 2.0）（SetQ b 2.0）（p lus a b）一个S-表达式可以分多行写，一行也可以写多个表达式。注释以分号开始，并在一行的末尾结束，AutoLisp的求值器忽略注释。AutoLisp是一种求值型语言，求值程序第一次碰到一个求值代码块时，整个块被转换成压宿代码，如果程序中再次碰到那个块，只是简单的运行它。求值过程：1，整形，实数，字符串，文件指针，系统内部函数，以及两个特殊的符号原子，对它 们求值就是它们本身。2，符号原子是以当前的约束值作为它们的求值。3，表是根据它的第一个元素的数据类型进行求值的。(1) 第一个元素的值为表，该表就假定为用

11、户定义的函数。(2) 如果表的第一个元素的求值结果为一个内部函数，则剩余元素作为参数传给该函 数，并执行该函数的代码，由函数的类型确定是否对传给它的参数进行求值。输入距离Lisp语言中输入距离的函数为 getdist，但我们有时需要输入负值，有时需要在输入距离的 同时得到角度，使用 getdist函数就显得无能为力，这时，我们可以灵活使用其它交互输入 函数如get point、getcorner等，通过计算得到我们所需要的值。例1是一段输入长度的同时得到默认角度的代码，使用getpoint函数。;例1(setqpt1dst*ptO (getpoint n直线基点：);长度及角度可用键盘或鼠标定

12、位;计算长度;计算默认角度直线方向 :)(getpoint pt0 n直线长度：)(dista nee pt0 p t1)ang (an gle ptO p t1) ang1 (geta ngle ptO (strcat n)*例2是可以按阵列方式输入行列间距的代码，输入距离为正值，修改部分代码可输入负值，使用getcorner函数，同时使用initget的控制位128。*；例2(defu n lc_dist ()(in itget 128)(setq disr (get poin t n(if (= (type disr) LIST)(progn(in itget 1)(setq dis (

13、getcorner disr n指定对角点：)disc (abs (- (car dis) (car disr) disr (abs (- (cadr dis) (cadr disr)(if (= (type disr) STR)(if (setq dis (distof disr)(p rogn(in itget 6)(setq disc (getdist n输入列间距：)(p rogn(princ n需要正数值或两个二维角点。(lc_dist);允许任意输入 指定单位单元或输入行间距：);鼠标输入;鼠标输入对角;正值行距;正值列距;计算行列间距;键盘输入行距;判断输入的是否距离;输入列距;

14、键盘输入格式不符返回)”);空输入返回）（P rogn（princ n需要正数值或两个二维角点。（lc_dist）)中特定角度及长度捕捉的实现方法AutoCAD一、引言在AutoCAD中的角度捕捉只有当正交状态打开时的直和水平方向，对于其他特殊角度 无能为力；另外，其网点捕捉也是相对于X轴和丫轴，无法实现其他方向的特殊长度捕捉,给绘图带来极大的不方便。在应用AutoCAD进行设计制图的操作中，LINE和POLYLINE是使用频率最高的两个命令，经常要遇到在某些特定角度上绘制特定长度的简单线或复合线的情况，因而实现 这两个捕捉对提高 AutoCAD作图效率很有实用价值。a的一定范围内选取一点时，

15、该点自动落X轴正方向出0 N 360/ a,二、方法原理所谓角度捕捉，是指当十字光标在某一角度在该a角度线上；当我们设定捕捉角度为a时，将会以基准点作为原点、自发，将整个屏幕划分为360/ a区间，则NXx角度就是角度捕捉线，其中,360/ 表示不大于360/舶整数。该系列点离所谓长度捕捉，是在角度捕捉的基础上， 在某一角度线上有一系列捕捉点，基准点的距离为捕捉长度的正整数倍，当选取直线上的一点时， 落点自动落到离其最近的捕捉点上。实现特定角度和长度捕捉的关键点是：当十字光标（即十字交*线）移动时，程序要随时跟踪其交*点的位置，并将该位置与用户所设定的捕捉角度与长度对应起来，从而计算出在 该角

16、度上的落点。以下举例说明该两个捕捉的实现过程:假定捕捉角度为 a =30。,捕捉长度为L。当十字光标在任意的某一区间内移动时，比如在第5区间（120。150 内移动时，此120。135。之间时，则落点应在120。线上，该落点的具120。线作垂线来获得，其交点D（称为垂点）即为落点，为直 O点）向落点作一橡筋拖曳线， 该橡筋拖曳线随十字光标的移（见图1）;同样，当十字光标的中心点处在135150之间该橡筋拖曳线并不是真正的线段，只时，落点只能在120或150线上（该线在图中并不直接显示），该两根角度线的中心线为 135 。当十字光标的中心点处在 体位置为由十字光标的中心点向 观起见，此时由基准点

17、（此处为 动而相应移动，显示出拖动过程 时，则落点应在150线上，并显示相应的橡筋拖曳线。是用XOR墨水绘制的一个向量， 当用XOR墨水重新绘制一遍该向量时，该向量将从屏幕上消失，这就是本程序实现光标拖动的原理。落点落在某一捕捉角度线上时， 还得落在捕捉长度 L的整数倍的点（称为捕捉点）上，还 是针对图1，其垂点必然处于某两个捕捉点 A与B之间，设A与B的中点为C,当D处于A 与C之间时，落点应为 A;当D处于C与B之间时，落点应为 B （见图1）。其中：OA = n XL ; OB = (n + 1) XLn:非负整数。L:捕捉长度。此时，程序通过一定的操作将在屏幕的最上面的坐标提示行准确地

18、显示落 点相对基准点的偏移长度和偏移角度。用户可以滑动鼠标准确捕捉到目标点。至此，已实现某些特定角度及长度的捕捉。 为了满足在程序执行过程中能随时更改捕捉角度 和捕捉长度的需要，本程序还增加了相应的模块； 另外，本程序中嵌入了窗口放缩功能模块, 通过点取下拉菜单中窗口及漫游子菜单，方便了各种作图的需要。三、源程序清单；OS.LSP源程序;err（）,出错处理子程序(defu n err ( msg)(if (/= msg Fun ctio n can celled)(prin c(strcat nError: msg); 打印错误内容);for if(setq *error* olderr)(

19、setvar cmdecho scmd)(setvar osmode cosmode)(setvar coords ccoords)(princ);for defu n err;ant(),设定捕捉角度子程序(defu n an t ( / angO ang1 )(setq an gO (* anO (/ 180 pi)(princ (strcat n请输入捕捉角度：_)(INITGET 4)(setq ang1 (getreal)(if (n ot (null an g1)(setq an0 (* an g1 (/ pi 180)(princ n F2/F3/F4/F5/ESC/Return

20、 / 下一点:);for defu n ant;leng(),设定捕捉长度距离子程序(defu n leng ( / le ng0 Ieng1 )(setq Ieng0 Ien0)(princ (strcat n请输入捕捉长度距离：_)(INITGET 4)(setq Ieng1 (getreal)(if (n ot (null le ng1)(setq Ien0 Ieng1 )(princ n F2/F3/F4/F5/ESC/Return / 下一点:);for defu n lent;field(),判断十字光标所在区间,并投影到相应的捕捉角度线上(defu n field ( ps pe

21、 angO / ang1 n )(setq ang1 (an gle ps pe)(setq n (fix 什(/ a ng1 angO) 0.5)(setq an g2 (* angO n);for defu n;endp(),十字光标投影到相应的捕捉角度上后，以用户设定的长度;捕捉计算落点(defu n endp ( ps pe ang0 / p1 p2 p3 p4 dis )(setq p1 psp2 (po lar ps ang0 1)p3 pep4 (p Olar pe 什 an g0 (/ pi 2) 1)(setq pend (in ters p1 p2 p3 p4 n il)(

22、setq dis (dista nee ps pe)(if ( / = Ien0 0)(setq dist (* (fix 什(/ dis Ien0) 0.5) len 0);else(setq dist dis)；for if(setq pend (po lar ps angO dist);for defu n endp;drag(),对上一次显示的拖曳线进行”或操作,使其从屏幕上消失，;并绘制下一次拖曳线(defu n drag ( poldl p old2 p old3 / )(if ( / = b2 4)(p rogn(grdraw p old1 p old2 -1 0)(grdraw

23、 p old2 p old3 -1 0);for if(grdraw p start pend -1 0)(grdraw pend p frame -1 0);for defu n drag;coord(),在屏幕的最上一行的坐标栏显示长度和角度(defu n coord ( / str Ieng1 Ieng0 ang0)(setq an g0 (* an g2 (/ 180 pi)(setq str (strcat (rtos dist) (rtos an g0)(grtext -2 str);for defu n coord;ini t(),对程序进行初始化(defu n in it (

24、/ )(setq scmd (getvar cmdecho);保留原命令回显方式(setq ccoords (getvar coords);保留原坐标显示方式(setq cosmode (getvar osmode)(setq olderr *error* *error* err);出错处理(setvar cmdecho 0); 不回显(setvar coords 0);不显示坐标(setvar osmode 0 ); 取消捕捉(setq b 0 b1 0 c (0 0)(setq pstart (get poi nt n请输入直线第一点:)(if (or (n ull anO ) ( anO

25、 0) (n ot (nu mberp anO)(p rogn(setq an 0(/ pi 6)(ant);for if(if (or (n ull le n0 ) (= (dista nee p last p frame) 0.1) (p rogn(drag p start po Ide p last)(setq p last p frame po Ide pend)；for p rogn)；for if)；for p rogn);for condl(=b 3);用鼠标在屏幕上点取一点时(p rogn(setq p frame (cadr a)(field p start p frame

26、anO)(endp p start p frame ang2)(if (= (dista nee p last p frame) 0.1)(p rogn(grdraw p start po Ide -1 0)(setq p last p frame po Ide pend);for p rogn);for if);for p rogn);for cond1(=b 2);键盘输入(p rogn(setq c1 (cadr a)(cond (= c1 138) (an t) ;F2(=c1 139) (le ng) ;F3(=c1 140) ;F4(p rogn(setq b2 4)(comma

27、ncTzoom 0.7x);for (= c1 140)(=c1 141) ;F5(p rogn(setq b2 4)(comma ncTzoom 1.4x);for (= c1 141)(=c1 13) (home)(=c1 27) (home)(T (princ n未定义的键);for cond(princ n F2/F3/F4/F5/ESC/Return / 下一点:);for p rogn);for (co nd (= b 2)(=b 4);点取下拉菜单时(p rogn(setq c1 (cadr a)(princ n)(cond (= c1 6005)(p rogn(comma nd

28、zoom w)(princ n 第一角点:)(comma nd p ause)(princ n 第二角点:)(comma nd p ause);for (= c1 6005)(=c1 6007)(comma ncTzoom p)(=c1 6008)(comma ndzoom a)(=c1 6011)(p rogn(comma ndpan)(princ n 第一参考点:)(comma nd p ause)(princ n 第二参考点:)comma nd p ause);for (= c1 6011);else(T (princ n未定义的菜单);for cond(princ n F2/F3/F4

29、/F5/ESC/Return / 下一点:);FOR P ROGN);for (cond (= b 4)(T (home) ) ;for else);for cond)；for p rogn);for while);for defu n p ull;draw(),绘制直线子程序(defu n draw ( / )(while (/= b1 1)(p rogn(if (= b 3)(p rogn(comma ndli ne p start pend )(princ n F2/F3/F4/F5/ESC/Return / 下一点:)(setq b 0 b1 1)(setq p start pend)

30、;for p rogn);for if(p ull);for p rogn);for while(grdraw p start pend -1 0)(grdraw pend p frame -1 0);for defu n draw;主程序(defu n c: os ( / b b1 b2 c p start pend p frame p last ang2dist scmd ccoords olderr cosmode );anO lenO are defi ned out p rogram(init)(draw)(princ rr)(comma ndredraw)(setq *error*

31、 olderr)(setvar cmdecho scmd)(setvar osmode cosmode)(setvar coords ccoords)(princ nnt角度捕捉2.0版-n）（princ nnt*宁波大学建筑设计研究院-程建华，1996*n）(princ);for defu n os四、程序的安装与使用1.程序的安装以下三种装载方式，用户任选一种即可：在AutoCAD环境下，将 OS丄SP拷至当前目录,再执行（LOADOS）即可装载OS.LSP。也可先将 OS.LSP拷至子目录下,再在ACADSUPPORTACADR12丄SP或ACADR13ISP中加入下面一句语句实现启动

32、AutoCAD时自动装载：(AUTOLOAD OS (OS)也可将OS丄SP拷至子目录下，在子目录下的菜单文件ACAD.MNU中的合适位置加上下面的一句语句，即可直接在菜单中点取角度捕捉操作:角度捕捉 FcAc(loadc:/acad/support/os.lsp) os2.程序的使用在一幅图中第一次使用该程序时， 需要用户输入捕捉角度和捕捉长度， 第二次调用本程序时, 程序可自动采用上一次最后设定的捕捉角度和长度作为默认值。 然后，程序需要用户选择输 入一点作为基准点，此时命令行提示：F2/F3/F4/F5/ESC/Retuin /下一点：用户根据该提示可任选其中的一种操作，具体解释如下:按

33、F2键重新设定捕捉角度;按F3键重新设定捕捉长度;按F4键窗口缩小0.7倍;按F5键窗口放大1.4倍;按ESC键、回车键、鼠标右键均可结束操作，退出程序;选取下一点，移动十字光标键，此时在屏幕的最上面的一行的坐标提示栏准确地显示出 按用户设定的捕捉角度和长度所取得的落点相对于基准点的偏移角度和长度，滑动十字光标键直至用户寻找到所需要的下一点并按下鼠标左键，命令行重又出现上面的提示行，并进行下一轮循环； 另外，用户还可以点取 View菜单下的Zoom菜单中的Zoom Window 、Zoom Previous、Zoom All等三个子项实现窗口放缩和 Pan菜单实现屏幕漫游； 对于其他操作，用户均可按 屏幕命令行的中文提示方便地进行操作。在非汉化AutoCAD中运行本程序时，只需将程序中有关的中文提示行改成英文提示即可。另外，由于不同的机型在 AutoCAD环境下键盘返回码可能稍有区别，所以要求用户在应用本程序之前对自己的机器键盘返回码按如下方法作 一次核实：在AutoCAD命令状态下输入(grread)并回车，用户此时可按下F2或F3、F4、F5键:第一步：Comma