用autolisp写一个插件，可以统计选中直线的总长度

您好，以下是用 AutoLISP 编写的插件，可以统计选中直线的总长度：

(defun c:line_length (/ ss total_length ent)
(setq ss (ssget))
(setq total_length 0.0)
(repeat (setq ent (sslength ss))
(setq ent (ssname ss (setq ent (1- ent))))
(if (= "LINE" (cdr (assoc 0 (entget ent))))
(setq total_length (+ total_length (distance (cdr (assoc 10 (entget ent))) (cdr (assoc 11 (entget ent)))))))
(princ (strcat "\nTotal length of selected lines: " (rtos total_length)))
(princ)
)

请注意，此插件只能统计选中的直线的长度，如果选中的图形中包含其他类型的实体，则会被忽略。