[编程申请]：计算图形的总长度

scysqc

例如图形里面有很多不一样的线、弧、圆，能不能把他的总长度算出来。谢谢！

lonelycoder

附件是我的一个ARX文件，完成您这个功能的命令叫“cl”。


各位哥哥：小妹的小程序现在4个小命令，希望哥哥们喜欢啊。
1.jt，提问你选择第1个文本实体，注意它是被替换的实体了。然后选择要连接的文字，全部选择完毕，在左上角的对话框上还可以修改它再点确定，就把所有文字合并了。如果勾了“删除被连接的文字”，就会把所有被连接的文字删除掉。
2.fb：是输入段数来把任意的曲线（不管是线、弧、圆、椭圆、洋条等等等等，比小东的要强多了）搞断；
3.fb2：是输入距离来把任意的曲线打断。跟AutoCAD的divide命令非常类似，不过不用在自己去break了，一点即断
4.cl：先选择任意一根曲线，然后选择要测量距离的2个点，此时也可以按回车或者右键表示计算整个曲线的长度。然后留下两个小红叉表示刚才您选择的点。不要害怕，重绘一下就会消失的啦。

ljs026

大大的程序太棒了，感謝分享丫

齐小社88

2004加载后，无法运行？什么原因？

zxq0220

这个功能可以用下面的小程序完成：
(DEFUN C:TT (/ SS SS_L N LENN LEN)
  (setq ss (ssget))
  (setq ss_l (sslength ss))
  (setq n 0)
  (setq lenn 0)
  (repeat ss_l
    (command "lengthen" (ssname ss n) "")
    (setq len (getvar "perimeter"))
    (setq lenn (+ len lenn))
    (setq n (1+ n)))
  (princ "\n你所选到的像素的总长是")
  (princ lenn)
  (Princ "(mm)....")
  (princ))
(PRINC "\n输入TT执行求选集的总长.....")