lqss 发表于 2010-5-16 11:20:00

[求助]求在某一图层里线段长度的合计

<font size="4">我们经常设计输水管道等工程图纸，并且把输水管道单独放在一个图层中，把其标注长度放在另一个图层中。一般设计管道长度达到几万延长米以上，这个总和需要专门的统计才能知道，显得很麻烦，而且也很慢，有没有办法一按键就知道输水管道图层里绘制的线段（输水管道）的总长度呢？</font>

ZZXXQQ 发表于 2010-5-16 12:34:00


(defun c:sgc ()
(setvar "CMDECHO" 0)
(setq sl 0)
(if (and (princ "\n选择线条 :") (setq ss (ssget '((0 . "ARC,CIRCLE,*LINE,ELLIPSE")) (8 . "供水管")))) (progn
(setq i 0)
(repeat (sslength ss)
   (command ".lengthen" (ssname ss n) "")
   (setq sl (+ (getvar "perimeter") sl) i (1+ i))
)
(alert (strcat "选取线条总长=" (rtos sl 2)))
(setvar "CMDECHO" 1)
(princ)
)

ljttjl 发表于 2010-5-16 20:20:00

<p>可用以下这个程序</p><p><a href="http://ljttjl.ys168.com">http://ljttjl.ys168.com</a>
                <a class="actuator" id="F480358_20081130分类统计线长程序" href="javascript:">20081130目录下载 分类统计线长程序</a> 试用程序</p>

品茗新秀 发表于 2013-7-14 16:51:49

看看,一定不错

hyong10000 发表于 2013-7-19 15:19:28

看看,一定不错

yanghz1977 发表于 2015-4-27 15:12:23

顶一个，试下，谢谢分享。。

bai0379 发表于 2015-6-2 19:25:38

看看,一定不错

bai2000 发表于 2015-6-9 20:58:04

能不能改下，可以点选图层，计算改图层上的线长？

vladimir 发表于 2016-6-12 23:08:15

顶一个，试下，谢谢分享。。

五牛钉 发表于 2017-11-5 12:21:29

页: [1]
查看完整版本: [求助]求在某一图层里线段长度的合计