at艺皱麾酪ocad能够使通过LISO编写各种定制度绘图命令，从而达到控制绘图的效果。LISP语言（全名LIStProcessor，即漉胜衲仰表处理语言），由约翰·麦卡锡在1960年左右创造的一种基于λ演算的函数式编程语言。那么如何才能编写LISP程序控制cad绘图呢？本文就此讲解并编写了一个简单的程序，以期对读者起到抛砖引玉的作用。
工具/原料
方法/步骤
1、创建一个cad，新建一个工程，如下图所示。
2、在lisp编辑器中编写一下程序，程序的作用为计算线段总长度，并选择另存为位置，保存文件lsp文件。
3、使用cad加载lsp文件，选择lsp文件位置。
4、在命令栏点击l，用cad绘制几条线段，如下图所示。
5、在命令栏输入ll，选择所有线段，则在图下计算并显示出了所有线段的总长度，如下图所示。
6、用lisp的代码为(defunc:LL()(setvar"cmdecho"咯悝滩镞1)(setqen(ssget(list'(0."spline,a鸡堕樱陨rc,line,ellipse,LWPOLYLINE"))))(setqi0)(setqll0)(repeat(sslengthen)(setqss(ssnameeni))(setqendata(entgetss))(command"lengthen"ss"")(setqdd(getvar"perimeter"))(setqll(+ddll))(setqi(1+i)))(princ"所选线条总长为：")(princll)(princ))