[求助]：有没有计算多个直线长度的工具

lshpool

有的时候要统计多个直线的长度和，我的方法是把他们做成多义线连在一起，然后在查询这个多义线的长度，有没有一个工具，可以让我直接点选几个线段就能知道他们的长度和呢

lzy9788

通过两端点求出长度，再相加

snsj

直线的长度？直线的长度为无穷大

popxi

最初由 lshpool 发布
[B]有的时候要统计多个直线的长度和，我的方法是把他们做成多义线连在一起，然后在查询这个多义线的长度，有没有一个工具，可以让我直接点选几个线段就能知道他们的长度和呢 [/B]

[iframe h=800]http://www.xdcad.net/forum/showthread.php?threadid=86458[/iframe]

maplesu

在下不才，把我以前做的一个传上来
大家给点意见。
这个是通过lengthen命令得到长度在叠加的。
运行以后选择所有需要的对象，之后点击点和输入字高，
在那里就输出总长了。
如果只需要在命令行得到的话，把后面几句删除好了。

[PHP]
(defun c:cd()
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)  
  (setq sum 0 i 0)  
  (setq ss (ssget))   
    (repeat (sslength ss)
      (setq en (ssname ss i))
      (command "lengthen" en "")
      (setq l (getvar "perimeter"))      
      (setq sum (+ sum l)
            i (+ i 1))
      )  
  (setvar "osmode" os)
  (prin1 sum)
  (setq pt (getpoint "输出文字点： "))
  (setq th (getreal "字高<15>: "))
  (if (= th nil) (setq th 15))
  (command "text" "c" pt th 0 (rtos sum 2 2))
  )
[/PHP]

lsjjm

最初由 lshpool 发布
[B]有的时候要统计多个直线的长度和，我的方法是把他们做成多义线连在一起，然后在查询这个多义线的长度，有没有一个工具，可以让我直接点选几个线段就能知道他们的长度和呢 [/B]

请参考
(defun c:test ()
  (vl-load-com)
  (setq ss (ssget '((0 . "ARC,CIRCLE,ELLIPSE,*LINE"))))
  (setq n 0 sum 0)
  (while (< n (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss n)))
    (setq sum (+ sum (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))))
    (setq n (1+ n))
  )
  sum
)

陌生人

*line没有过滤xline.
不过一般我也很少用xline。呵呵。求曲线长度的帖子很多了，搞个强点的版本吧（仅特殊时候使用），要求支持solid,hatch,region,块内曲线，...大家想想还要什么？

LUCAS

solid,hatch指的是甚麼??求曲线长度???

maplesu

和楼上的问题一样，这两个怎么求曲线长度？？

陌生人

回lucas：solid打错了，hatch指“周长“ （包括内环）

21cn

太通用了未必是好事

duely

用这个试试，很不错的！

cuiwenjun2008

太感谢楼主了，我正想要这样的程序呢！

bince

谢谢，我正需要这个程序

ysx810210

12楼的上传下载不了