[分享]：好书共制作:AutoLisp R13开发

散发头陀

引子:近日从图书馆借到一本好书<Autolisp R13程序开发>,是本老书,在其出版社上也找不到.因时间原因,只好通过相机将其内容全部拍了下来,共600多页,见附件.
正文:想聚集大家的力量,将其转成电子收.已用<尚书OCR>将其中两页转成DOC档了,见附件
结语:有兴趣的朋友请留下E-mail,每邮箱10页,全部转完成后每人一本

xxming

谢谢给我一份diablo_xie@yahoo.com.cn

晓希

我有本02版的AUTOLISP纸质书。大家可以买一本纸书，30多元。

散发头陀

xxming,邮件已发,请查收,谢谢

zfguyan

fangzhai2002@sohu.com
guyanab@163.com
共同学习

xxming

"老大,就只有这些内容啊:"
    017．PSFIL………………………………………………………………………………469
    018 PSIN…………………………………………………………………………………470
    019．RCONFIG……………………………………………………………………………471
    020．RENDER ……………………………………………………………………… ……471
    021．RENDSCR……………………………………………………………………… ……472
    022 REPLAY…………………………………………………………………………… …472
    023．RIASPECT……………………………………………………………………………473
    024．RIBACKG………………………………………………………………………… …473
025．RIEDGE………………………………………………………………………………473
026 RIGAMUTT……………………………………………………………………… ……474
    027 RIIGREY………………………………………………………………………………474
    028 RITHRESH………………………………………………………………………… …474
    029．RMAT…………………………………………………………………………………475
    030 ROTATE3D……………………………………………………………………… ……477
    031．RPREF………………………………………………………………………… ……478
    032 SAVEIMG………………………………………………………………………………480
    033．SCENE…………………………………………………………………………… …481
    034．STATS………………………………………………………………………… ……483
    035．TIFFIN………………………………………………………………………………483
    036．VLCONV………………………………………………………………………………484
第八章应用程序开发者专用DXF组码详解
    8.1按数值顺序排列的组码……………………………………………………… ……485
    8.2图形图元所使用的组码……………………………………………… ……………485
    8.3非图形图元所使用的组码…………………………………………………………486
第九章AutoCAD数据库对象分类及对象存储格式剖析
    9.l AutocAD R1 3对象类型划分…………………………………… ………………495
    9.2常用图元数据库存储格式剖析……………………………………… ……………501
    9.3由tblnext和tblsearch函数返回的符号表格式………………………… ……501
第十章技巧与经验
    10 1 Aut0LISP程序设计技巧………………………………………………… ………502
    1 0&#8226;2函数和命令经验拾遗……………………………………………………………517
附录A ASCII代码…………………………………………………………… ………………521
附录B文件列表………………………………………………………………… ……………528
附录c错误代码和错误信息…………………………………………………… ……………535
    c&#8226;1错误代理……………………………………………………………………………539
    c&#8226;2错误信息……………………………………………………………………………539
附录I)系统变量全集
  I)&#8226;1系统变量使用方法……………………………………………………………………542
  I)&#8226;2系统变量索引…………………………………………………………………………544
  D-3系统变量全集……………………………………………………………………………550
附录E  Autocad R13标准库文件



第一章AutoLISP语言导论
  Lisp程序是list processinganguage的缩写。它是一种资格最老的程序设计语言之一，产生于50年代后期。即由Macarthy领导的MIT人工智能小组于一九五九年创立的。Lisp语
言自创立以来．在人工智能的程序设计中获得了广泛的应用，在英、美等国应用得尤为普遍。
像其他许多语言一样．Lisp语言也出现了很多“方言”，Autolisp语言就是这样的一种方言，
它的产生源于一种称为Xlisp(eXperimental Lisp的缩写)的语言. XLISP是David Betz编写并发表的．它后来又产生了一个分支&#8226;叫Common LISP o
  Lisp语言版本很多．但每一版本的Lisp语言都具有满足某一特殊需要的功能。Auto-
lISP语言的独特性就在于它仅能运行于AutoCAD软件包环境之内。
  选择Autolisp作为AutoCAD的上要编程语言之一&#8226;是因为 LISP在描述表方面有独到
之处且本身灵活和精巧。例如，在CAD应用中用得最多的数据对象之一一3维点的坐标值，
就可以很方便地用表来表达。
1．1 AutoLISP语言的特点
1. AutoLisp语言是在普通的lISP语言的基础上．扩充了许多适用于CAD应用的专用功能后形成的一种仅能以解释方式运行于AutoCAD内的程序设计语言。脱离AutoCAD环境．它就不能运行。
2.Autolsip语言是函数型语言，它的一切功能都由函数实现。因此，执行AutoLISP程序主要就是执行一个函数，这个函数再调用其它函数。用AutoLisp语言进行程序设汁就是定义函数
3.AutoLisp语言的函数和数据的形式是一致的．都是S一表达式这样一种形式。
4.Autolisp语言中程序的运行过程就是对函数求值的过程。Autolisp的函数除完成定的功能外&#8226;每个函数都有一个值．因此执行一个函数就可以理解成对函数求值。函数所完成的功能&#8226;可以看成是它的副作用.在对函数求值的过程中实现函数的功能。
5.AutoLisp语言的一个主要控制结构就是递归。递归的使用，使程序没计简单易懂。
1.2 Autolsip语言的基本语法结构
Autolisp的语法是建立在ASCII文件中组织计算机指令的某传统方法上。在这传统方法中，系统可读取ASCII文件并招待其中的指令。收发室指令所用的语法结构与普通的口语化语言相比要简单得多，但限制却相当严格，几乎不能有丝毫的疏忽。
1.2.1 AutoLISP语言的函数
初次使用Autolisp语言的程序设计者会惊奇的发现AutoCAD里面有一个数学计算器。这个计算器可在AutoCAD软件包的命令提示符Command:下使用。举例说，你在Command:命令提示符下，可键入下面的命令：
例1.        Command&#61516;/ 84.037 2.56)
当你这样使用AutoCAD进行数学计算时，你实际上是在使用AutoCAD的Autolisp解释程序。在上面的例子中，你提供了一个函数”/”，表示除法运算符，另外还提供了进行除法运算所需要的被除数和除数。Autolisp解释程序计算完函数后，返回运算结果。此例中，运算结果为32.826950。
上述这个简单的数学函数遵循某些适用于所有Autolisp函数的通用规则。这些规则是：
.Autolisp的函数要放在括号里面。Lisp程序的所有括号都需要左右匹配。也就是说，一对括号包围单个函数。
.Autolisp解释程序阅读函数运算符，是给Autolisp解释程序的一条命令，告诉它做什么事情。在上面的例子中，命令是进行除法运算，这个命令的运算符是斜线(/)
.函数运算符与参数之间至少要一个空格来分开。因而Autolisp解释程序知道前一个成份结束，后一个成份开始的位置。
。两个函数之间的和函数内的多余空格和回画是不需要的。因而，常被Autolisp解释程序忽略。这也意味着，在一个ASCII文件中，一个函数可以占许多行。
。函数使用标准的ASCII字符，它们不分字符的大小写。但如果程序设计时遵循一定的规则，将会有助于程序的阅读和维护。笔者的习惯是将函数名和变量取大写，而局部变量则取小写。
下面再举几个简单的函数实例。
例2．(+ 84.037 2.56)
上式的意义是“进行加法，将2.56加到84.037上”。若您在AutoCAD的命令提示处键入这个函数，AutoCAD会立即返回结果值86.597。
例3．（- 84.037 2.56）
上式的意义是“进行减法，从84.037中减去2.56”。执行结果是81.477。
例4．（* 84.037 2.56）
上式的意义是“进行乘法运算，即将84.37与2.56相乘”。
Autolisp R13现行提供了200多个预定义的函数。不同函数需要不同类型的和不同数量的参数，许多函数所用的参数是可选择的。
1.2.2        内存变量
　内存变量是计算机能够组织、记忆、识别和供随后调用的信息的基本方式。所有的程序设计语言都要对内存变量进行操作。
　Autolisp语言的内存变量以下面的方式进行工作：
１、        内存变量是计算机随机存取存储器的一部分，是Autolisp语言存放临时信息的地方。
２、        当要建立一个内存变量时，应给它起一个名称，称为变量名。
３、        当一个内存变量被建立和命名时，它可接受数值，也就是使特定的信息与这个名字相联系。当一个内存变量与一个特定的值相联系时，通常我们就说该内存变量限定到那个值
４、        当内存变量限定到一个值时，以后的函数可通过使用变量名来使用这个值。计算函数时，每当遇到内存变量名，Autolisp解释程序用内存变量的值来代替这个名字。
由于有了内存变量，一组通用指令可用在不同的数据集合上。如果不使用内存变量，当
数据改变时Autolisp程序也要重新修改。
Autolisp使用特殊的函数建立内存变量，并将内存变量与值联系起来。这个函数就是SETQ，它至少需要两个参数。第一个参数是内存变量名，第二个参数是内存变量将要限定的值。下面是使用这个函数的一个实例：
例1：(setq x 2)
上述表达式的含义是“建立一个内存变量x,使它的值是整数2”。
一旦Autolisp已计算了这个函数，下面的函数便是有效的：
例2：(* 2.36 x)
在上面例1的函数中，Autolisp用2代替X，例2的函数中用2.36乘以2,返回结果是4.72。
若您愿意，你可用SETQ函数重新将新值赋给x:
例3：（setq x 3）
如果内存变量x先前已被约束到某个值，此时它会被覆盖，而重新约束到新值3。现在，乘法函数返回一个新的结果。
例4：（* 2.36 x）
Autolisp用3代替X，返回结果是7.08。
若您在AutoCAD的Command：提示符下，键入一个惊叹号（！），紧随一个内存变量名，您就会迅速得到内存变量的值。举例来说，若您已给内存变量X赋予了一个值，在AutoCAD的Command命令提示符下键入下列字符串：
例5：！X
AutoCAD就会将内存变量X的当前值显示出来。
内存变量名不能包含空格字符或分隔符，并总是以字母开头。内存变量名的长度是任意的，只要不受可用内存空间的限制即可。可是，若你取短一些，使用6个或更少的字符，Autolisp程序则可更快地处理它，同时还节省了计算机内存。
内存变量的值可有各种类型。给内存变量取名时，最好能从变量名的形式就能看出变量所实际代表的值的用途。例如可选择的名字ang(或Xang、Yang、ang1、ang2等)的内存变量来存储角度信息。同样，可使用像pt(或Xpt、Ypt、pt1、pt2等)这样的名字的内存变量来存放坐标信息。
其值总保持不变的内存变量称为常量，Autolisp仅用一个常量Pi。Pi的值大约等于3.1415926。由于常量pi的实际值可计算到十进制的无限位，所以使用常量比用十进制数更精确。
Autolisp程序常进行计算并将结果存入一个内存变量中。例如，考虑下面的Autolisp函数：
例6：(setq m (/ 4 2))
这个函数用2除4，将将计算结果存入新的内存变量m中去。这个例子展示了Autolisp

散发头陀

这只是前面的几页(刚转过来的),目录最前几页已失.

xxming

支持加油,请继续

sony123

我也来参与
sony-lin@163.com

caddog

呵呵，好东西岂能错过！
谢谢：Iamyourhe@163.com

散发头陀

谢谢,已发出

lxch

我也试一下，还没有用过OCR呢。
lxch@qingdaonews.com

散发头陀

已发出,请查收,谢谢

wwddzz

很老的书了，对初学者应该有用

cad-dragon

书都发黄了,很老了!