能有最直接的方法求出这个图的周长吗？

r0r

BDYCAD

用本站龍龍仔的求周長程序就可以.
http://www.mjtd.com/a2/list.asp?id=319

或者用我以前寫的這個程序也行.
;;;  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))



你所選到的圖元的總長是168.0(mm)....

东哥

合并为多段线，然后用list命令。

r0r

BDYCAD的程序很方便，谢您啦！
东哥的方法也不错，但相对而言BDYCAD的程序更方便。
再谢楼上二位！