[编程申请]：能否有人给我一个统计线段长度的程序

raveiy

我想统计所有相同颜色的线段的长度累计以及单独的列表，最好还有面积。
长度和面积都是线段的自身属性，实现起来应该不难吧？或者早有人编过了？谁能给我一个？

JOSDENNIS

在論壇上找可以找到一大把



來自Meflying 的作品.
(vl-load-com)
(defun c:addpline( / ss sum ent i)
  (setq ss (ssget '((0 . "lwpolyline,polyline"))))
  (setq sum 0)
  (setq i 0)
  (repeat (sslength ss)
    (setq ent (ssname ss i))
    (setq ent (vlax-ename->vla-object ent))
    (setq sum (+ sum (vlax-curve-getDistAtPoint ent (vlax-curve-getEndPoint ent))))
    (setq i (1+ i))
  )
  sum
)

raveiy

我不大懂啊，能不能把编译好的发给我？我想要能统计相同颜色的线段，你的代码好像没有颜色属性阿？

wuye95

这个好像没有，问一下，用来干吗？