征求意见稿出台之后，反响很大，不少人情绪很不稳定。有人说，可能就不再需要注册师了。 然而，不管要不要注册师，打铁还需自身硬，咱该卷还得卷。

卷在不同时期，可以有不同的表现。年轻时，身体壮，可以拼时间拼精力。等过了这个阶段之后， 就该像其他办法了，比如，提高效率，而不是单纯地拼体力。

借助于cad插件，则被证明是一条切实有效的提高效率的办法。

今天，就给大家提供一个统计直线长度的cad插件。为什么是统计长度而不是其他功能的插件呢？ 因为，统计长度是一个百分百的高频需求。不管是新手还是老手，不管是基层还是管理层， 只要使用cad，统计长度就是一个永远存在的需求。其他很多的需求，都是基于特定场景的， 大家有需要的话，可以联系我定做插件。

咱这个统计长度的cad插件，是个lsp插件，用autolisp或者叫visual lisp编写的，总共16行。 其中，有效行数12行，核心代码行数10行。写代码，功能不变的前提下，自然是越短越好， 咱这个lsp插件，应该算是网络上同类插件中比较短的之一了。

以下是咱的统计直线长度的lsp插件源代码：

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16

(vl-load-com)

(defun xg/sum-length (/ i l ls n) 
  ;; 统计直线长度的核心函数
  ;; 作者：徐工， 微博：@徐工徐工2020，头条：@徐工徐工
  (if (and (setq ls (ssget '((0 . "line")))) (< 0 (setq n (sslength ls)))) 
    (progn 
      (setq i 0
            l 0)
      (repeat n 
        (setq l (+ (vla-get-Length (vlax-ename->vla-object (ssname ls i))) l)
              i (1+ i)))
      (prompt (strcat "\n总长度为" (rtos l 2 3)))
      (princ))))

(defun c:cdcd () (xg/sum-length))

最后一行的c：cdcd意味着调用命令是cdcd，你可以修改为自己喜欢的快捷键。