Lisplink(Autolisp程序编写工具)

autolisp是一款由autodesk开发的一种叫做LISP的程序语言，全称是List Processor，通过这款软件能够节省很多的时间在CAD工具的制作上，这样工程师们就有足够多和好的工具来帮助自己进行工程的设计。 autolisp作为嵌入在AutoCAD内部的具有智能特点的编程语言，是开发和应用AutoCAD不可或缺的工具，特别是AutoCAD软件中包含大多数用于产生图形的命令，但是却还是有些命令违背提供，例如AutoCAD中没有在图形文本对象内回执举行及全局改变的命令。这时候，autolisp就能够派上用场了，开发人员可以利用软件编制能够在图形文本对象内回执举行或作全局选择性的改变的程序。当然，我们的这款软件不仅仅只有这么一个作用，你也可以直接将autolisp嵌入到菜单中，这样你的系统会获得更高的开发效率。

autolisp特点

1、AutoLISP语言是在普通的LISP语言基础上，又扩充了许多适用于CAD应用的功能而形成的一种程序设计语言。它是一种解释性求值语言，速度较慢，难以保密，可用任何文字编辑软件编辑，用纯文本的格式保存。例如： (setq i 1);就是代码i值是1 (command "CIRCLE" '(0 0) 100);命令在坐标原点绘制半径100的圆。 2、AutoLISP语言中的一切成分都是以函数形式给出的，它没有语句概念或其他语法结构。执行AutoLISP程序就是执行一些函数，再调用其它函数。例如： (setq pt1 (getpoint "\n请选择圆心插入点")) (command "CIRCLE" pt1 100);命令这个插入点绘制圆，半径为100 3、AutoLISP语言中程序运行过程就是对函数求值的过程，是在对函数求值的过程中实现函数的功能。在AutoCAD里面，所有的对象可以看成是由无数的点构成，每个点都有自己的坐标，函数的运行就是计算出这些点的数值，根据得到的数值进行判断。 4、AutoLISP语言的主要控制结构是采用递归方式。递归方式的使用，使得程序设计简单易懂。例如： (setq &k1 (entsel));选择对象 (setq &k1 (car &k1));提取图元 (setq #g1 (entget &k1));取得属性列表 (setq c0 (cdr (assoc 0 #g1)));取得图元名称 以上是一个个的写下来，可以写成以下： (setq c0 (cdr (assoc 0 (entget (car (entsel))))));简单易懂 5、由于autolisp简单，容易，所以上手很快。编写程序后，可以大大的提高绘图效率，有名的【天正】插件，就是绘图的好帮手。 6、autolisp程序也有不足的地方，如提取坐标，这个只能在图元属性里面提取，这样的话会有局限性，法向坐标1与-1的坐标值相同，但是图形的位置不同，造成计算坐标的困难，所以提取坐标值，最好使用VLAX函数来提取。

autolisp数学运算

任何编程语言都提供数学函数。在AutoLISP中，同样提供了编程以及数学计算所需的大部分数学函数，你可以使用AutoLISP对数字进行加、减、乘、除运算，还可以得到以弧度表示的角度的正弦值、余弦值及反正切值等。使用AutoLISP还可以进行许多其他计算。这一节主要讨论AutoLISP程序语言支持的常用数学函数。 加法 格式(+ num1 num2 num3...) 此函数（+）计算加号（+）右边所有数字的和(+ num1 num2 num3...)。这些数字可以是整数或实数。如果均为整数，则和为整数；如果均为实数，则和为实数。但是如果既有整数又有实数，则和为实数。如下所示，在前两个例子中，所有数字均为整数，所以结果是整数。在第三个例子中，一个是实数（50.0），故结果为实数。 示例： Command:（+2 5）返回 7 Command:（+2 30 4 50）返回86 Command:（+2 30 4 50.0）返回 86.0 减法 格式(- num1 num2 num3...） 此函数（－）从第一个数中减去第二个数（num1-num2）。如果多于两个数，就用第一个数字减去其后所有数字的和[num1-(num2+num3...)]。在下面的第一个例子中，28减去14后返回14。因为两个数均为整数，结果亦为整数。在第三个例子中20与10.0相加，并用50减去两数的和（30.0），返回一个实数20.0。 示例： Command：(- 28 14) 返回14 Command：（- 25 7 11）返回7 Command：（－ 50 20 10.0）返回20.0 Command：（－ 20 30）返回-10 Command：（－ 20.0 30.0）返回-10.0 乘法 格式（* num1 num2 num3…） 此函数（*）计算乘号右边所有数字的乘积( num1×num2×num3...)。若均为整数，它们的乘积亦为整数；若其中含有一个实数，乘积即为实数。 示例： Command:(* 2 5) 返回10 Command:(* 2 5 3) 返回30 Command:(* 25 3 2.0) 返回150.0 Command: (* 2 -5.5) 返回-11.0 Command: (* 2.0 -5.5 -2) 返回22.0 除法 格式（ / num1 num2 num3…） 此函数（/）用第一个数除以第二个数。如果多于两个数，就用第一个数除以其后所有数的乘积[num1/（num2 × num3 ×...）]。在下面的第四个例子中，用200除以5.0与4的乘积[200/(5.0×4)]。 示例： Command：（/ 30）返回 30 Command：（/ 3 2）返回1 Command：(/3.0 2) 返回 1.5 Command：（/ 200.0 5.0 4）返回 10.0 Command：（/ 200 -5）返回-40 Command：（/ -200 -5.0）返回40.0

autolisp数字介绍

增量数字 格式(1+ number） 此函数（l+）使数字与1(整数)相加，返回一个增加1的数。在下面的第二个例子中，1与-10.5相加返回-9.5。 示例： （1+ 20）返回 21 （1+ -10.5）返回-9.5 减量数字 格式(1- number） 此函数（1-）从数字中减去1（整数），并返回一个减去1的数。在下面的第二个例子中-10.5减去1返回-11.5。 示例： （1- 10）返回9 （1- -10.5）返回-11.5 绝对数字 格式(abs num） abs函数返回一个数的绝对值。该数可以是整数或者实数。在下面的第二个例子中,由于-20的绝对值为20，故函数返回20。 （abs 20）返回 20 （abs -20）返回20 （abs -20.5）返回20.5

autolisp三角函数

sin函数 格式( sin angle) sin函数计算一个角（以弧度表示）的正弦值。在下面的第二个例子中，sin函数计算Pi（180度）的正弦值并返回0。 示例： Command：（sin 0）返回0.0 Command：（sin Pi）返回0.0 Command：（sin 1.0472）返回0.866027 cos函数 格式(cos angle) cos函数计算一个角（以弧度表示）的余弦值。在下面的第三个例子中，cos函数计算Pi（180度）的余弦值并返回-1.0。 示例： Command：（cos 0）返回l.0 Command：（cos 0.0）返回1.0 Command：（cos Pi）返回-1.0 Command：（cos 1.0）返回0.540302 atan函数 格式( atan num1） atan函数计算数的反正切值，返回角度以弧度表示。下面的第二个atan函数计算1.0的反正切值并返回0.785398（弧度）。 示例： Command：（atan 0.5）返回0.463648 Command：（atan 1.0）返回0.785398 Command：（atan -1.0）返回-0.785398 两个参数的atan函数 格式( atan num1 num2） 还可以在atan函数中再指定一个数。若指定了第二个数，函数将以弧度形式返回（num1/num2）的反正切值。在下面的第一个例子中，第一个数（0.5）除以第二个数(1.0)，atan函数计算商（0.5/1=0.5）的反正切值。 示例： Command：（atan 0.5 1.0）返回0.463648弧度 Command：（atan 20 3.0）返回0.588003弧度 Command：（atan 2.0 -3.0）返回2.55359弧度 Command：（atan -2.0 3.00）返回-0.5880033弧度 Command：（atan -2.0 -3.0）返回-2.55359弧度 Command：（atan 1.0 0.0）返回1.5708弧度 Command：(atan -0.5 0.0)返回-1.5708弧度 angtos函数 格式(angtos angle[made[precision]]） angtos函数以字符串格式返回以弧度表示的角度值。字符串格式由made和 precision的设置决定。 示例： Command：（angtos 0.588003 0 4）返回“33.6901" Command：（angtos 2.55359 0 4）返回“145.3099" Command：（angtos 1.5708 0 4）返回“90.0000" Command：（angtos -1.5708 0 2）返回“270.00" 注意 在（angtos angle[mode[precision]]）中： angle是以弧度表示的角度值。 mode是与AutoCAD系统变量AUNITS相对应的angtos模式。 AutoCAD中可用模式如下： ANGTOS模式 编辑格式 0 十进制角度 1 度/分/秒 2 梯度 3 弧度 4 测量单位 precision是一个整数，用于控制小数的位数，与AutoCAD系统变量AUPREC相对应。 其最小值为0，最大值为4。 在上面的第一个例子中，angle为0.588003弧度，mode为0（十进制角度），precision为4（小数点后有四位）。函数返回33.6901。

autolisp功能

1.AutoLISP语言是在普通的LISP语言基础上，扩充了许多适用于CAD应用的特殊功能而形成的，一种仅能以解释方式运行于AutoCAD内部的解释性程序设计语言。 2.AutoLISP语言中的一切成分都是以函数的形式给出的，它没有语句概念或其他语法结构。执行AutoLISP程序就是执行一些函数，再调用其他函数。 3.AutoLISP把数据和程序统一表达为表结构，即S-表达式处理，故也可把程序当作数据来处理，也可把数据当作程序来执行。 4.AutoLISP语言中的程序运行过程就是对函数求值过程，是在对函数求值过程中实现函数功能。 5.AutoLISP语言的主要控制结构是采用递归方式。递归方式的使用，使得程序设计简单易懂。