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))