把下面的保存文件名为SLL.LSP,然后导入,快捷方式就是sll了
(defun c:sll()
(setq ss (ssget)
n 0
sum 0)
(repeat (sslength ss)
(setq en (ssname ss n))
(command "lengthen" en "")
(setq sum (+ sum (getvar "perimeter"))
n (+ n 1))
)
(ALERT (STRCAT "总长度:" (rtos sum 2)))
)
经常需要这样操作的话可以自定义命令将线长累加起来
关键语句
(command "lengthen" ent1 "")
(setq len (getvar "perimeter"))
DLI 按两下空格 再选择要求长的线 就出来了
把这些线段移动至一条线段。
然后用标注命令“DLI”
或者用“工具”——“查询”——“距离”