r0r 发表于 2003-12-19 01:25:00

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

BDYCAD 发表于 2003-12-19 08:19:00

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

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

东哥 发表于 2003-12-19 11:59:00

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

r0r 发表于 2003-12-19 17:07:00

BDYCAD的程序很方便，谢您啦！
东哥的方法也不错，但相对而言BDYCAD的程序更方便。
再谢楼上二位！
页: [1]
查看完整版本: 能有最直接的方法求出这个图的周长吗？