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

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
;;  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)....

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

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

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

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

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

发表回复

精选推荐