CAD是能够使通过liso编写各种定制度绘图命令，从而达到控制绘图的效果，但这对于新手来说很复杂，那么用lisp编写程序如何控制CAD？使用这个编程可以让我们的效率更高，本次教程就来告诉大家方法。
方法/步骤
第1步
创建一个cad，新建一个工程，如下图所示。
第2步
在lisp编辑器中编写一下程序，程序的作用为计算线段总长度，并选择另存为位置，保存文件lsp文件。
第3步
使用cad加载lsp文件，选择lsp文件位置。
第4步
在命令栏点击l，用cad绘制几条线段，如下图所示。
第5步
在命令栏输入ll，选择所有线段，则在图下计算并显示出了所有线段的总长度，如下图所示。
第6步
用lisp的代码为(defun c:LL ()(setvar "cmdecho" 1)(setq en (ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLINE"))))(setq i 0)(setq ll 0)(repeat (sslength en) (setq ss (ssname en i)) (setq endata (entget ss)) (command "lengthen" ss "") (setq dd (getvar "perimeter"))(setq ll (+ dd ll)) (setq i (1+ i))) (princ "所选线条总长为：")(princ ll)(princ))
