如何求出所有边的总长

xyzjint_cn

现有图形如下，每个方框都是由：PLINE画出的，所以每个方框都有重复的一段边，如何总长求出（重复的留一）

xyzjint_cn

不好意思，图形传不上，说明一下，每个方框相邻，可能有2条边线部分重复，有可能整条线重复

无痕

小问题，大考验。


目前还没想到理想的办法：


炸开，对同线线段合并，求合并后线条总长。恢复方框（或在前面用拷贝的办法，删除合并线条。）

BDYCAD

求长度的如下,论坛上有蛮多的. 但如无痕所说的好象找不到或还没有呢. ;;; program make inchina
;; by BDYCAD
;; DATA: 2003-11-01
;求選到的圖素的總長度.LSP
(DEFUN C:TEST (/ SS SS_L N LENN LEN)
(setvar "cmdecho" 0)
(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)....")
(setvar "cmdecho"1)
(princ)) ;;---------------------------------------------------
; 精 簡 源 碼
;
(defun x_lens (ss / ss ssv lens)
(if (= nil ss)(setq ss (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))))
(setq ssv (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
lens 0)
(vlax-for obj ssv
(setq lens (+ lens (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))))
)
)

无痕

难点不是求长度，是如何处理重合，部分重合的部分，那里只能算一次长度。

xyzjint_cn

是的，重复的只能算一边，最好不要炸开，因为这些个方形在其它地方还用的着。

f5612140

刪除重線的帖,依無痕的方法整理一下即可


dispbbs.asp?boardID=25&ID=9163&page=5