Autocad内嵌程序AutoLISP入门

《Autocad内嵌程序AutoLISP入门》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、超超值值奉奉送送AutoLISP入门AutoLISP是在AutoCAD内部允许的一种内嵌式程序设计语言。LISP（ListProcessingLanguage）是人工智能领域中广泛采用的一种表处理语言，具有较强的表处理功能，主要用于人工智能、机器人、专家系统、博弈、定理证明等领域。LISP也被称为符号式语言，因为它处理的对象是符号表达式。AutoLISP可以直接调用几何所有的AutoCAD命令，为AutoCAD提供了使用高级语言开发编程的途径，使得用户能充分利用它对AutoCAD进行二次开发。2007AutoCAD感谢：感谢您选购本图书。本部分是《AutoCAD2007中文版自学手册—

2、—入门提高篇》图书超值赠送的一部分，仅供读者个人参考使用。未经许可，任何人不得将此部分用于其他商业用途。欢迎您对我们的图书进行监督，并对我们的工作（图书质量、装帧设计、封面、印刷等）提出改进意见或建议。网站：http://www.fr-cad.netE-mail:editor.liu@gmail.comQQ群：9843746（CAD/CAM/CAE应用方向）您的支持是我们前进的动力，您的需要是我们努力的方向！冯如设计在线2006-10-091utoCAD2007中文版绘图自学手册——超值奉送部分A.1AutoLISP基本函数自从AutoCADRA.01开始，出现了VisualLISP语

3、言，它是Autodesk公司为增强AutoLISP程序开发能力而设计的软件工具，为AutoLISP增加了许多新的函数。VisualLISP的集成开发环境提供很多特性，使用户创建和修改源代码、测试和调试程序更加方便。自从AutoLISP嵌入AutoCAD之后，使仅仅作为交互式图形编辑软件的AutoCAD，通过编程使之能真正进行计算机辅助设计、绘图。由于LISP灵活多变、易于学习和使用，因而使AutoCAD成为功能很强大的工具性软件。随着AutoCAD版本的升级，AutoLISP的功能不断得到扩充和增强，主要功能如下：ò能够把数据和程序统一表达为表结构，即S-表达式，因此可以把程序当作数据

4、来处理，以可以把数据当作程序来执行；ò有图形处理和程控方面的函数，可以直接调用AutoCAD的所有命令；ò扩充了AutoCAD应用的特殊功能；ò主要控制结构采用递归方式，使得程序设计简单易懂。A.1.1赋值函数AutoLISP提供了大量系统预定义的函数。函数的一般描述格式为：（函数名<变元>[<变元>……]）表中第一个元素为函数名，它一般指明函数的功能。其余各元素为函数的变量（称为变元）。[]表示任选项；……表示任意多项；<>表示变元类型。函数调用后显示一个执行该函数的结果，称为返回值。下面是AutoLISP的基本函数。1.(setq符号表达式[符号表达式]……)将一个或者多个符号设置

5、为相应表达式的值，返回最后一个表达式的值，例如：（setqa123b6.0）;符号a返回6.0（setqs“it”x‘(ab)）;符号s被赋值为”it”,符号x被赋值为（ab）,返回（ab）2.(set‘符号表达式)如果符号前有一个单引号，该函数则将符号设置为表达式的值，此用法与setq函数的用法等价，例如：(set‘a18.0);符号a被赋为18.0，返回18.0Set和setq函数都需要将符号作为它的第一个参数。但是set函数接受返回结果为符号的表达式作为参数，setq却不可以。3.（eval表达式）返回对表达式求值的结果，例如：（setqa24b45）;返回452（eval10.

6、5);返回10.5（setqc(+123））;（evalc）;返回6A.1.2数值计算函数这类函数有一个共同特点：参数既可以是整数，也可以是实数，如果所有的数都是整数，返回的结果就是整数；如果有的是实数，返回的结果也就是实数。1.（+[数数]……）返回所有数之和。如果只有一个数，则返回它本身；如果不提供数，则返回0。例如：（+234）；返回92.（-[数数]……）返回第一个数减去其它所有数之和的差。如果只提供一个数，则返回它本身。如果不提供数，则返回0。例如：（-5030.05.5）；返回A.52007AutoCAD3.（*[数数]……）返回所有数的乘积。如果调用本函数只提供一个数，则

7、返回它本身；如果不提供数，则返回0。例如：（*534.0）；返回60.04.（/[数数]……）返回第一个数除以其它所有数乘积的商。如果只提供一个数，则返回这个数除以1的结果；如果不提供数，则返回0。例如：(/130132);返回55.（1+数）返回一个数加1后的结果。例如：（1+4）；返回56.（1-数）返回一个数减1后的结果。例如：（1-10）；返回97.（abs数）返回一个数的绝对值。8.（atan数1[数2]）如果只提供数1，则该函数返回