操作方法
创建一个cad，新建一个工程，如下图所示。
在lisp编辑器中编写一下程序，程序的作用为计算线段总长度，并选择另存为位置，保存文件lsp文件。
使用cad加载lsp文件，选择lsp文件位置。
在命令栏点击l，用cad绘制几条线段，如下图所示。
在命令栏输入ll，选择所有线段，则在图下计算并显示出了所有线段的总长度，如下图所示。
用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) )