请教诸位高手,怎么计算一系列polyline的周长之和.

龙龙仔 · 发表于 2002-9-23 09:14:00

;;;-----------------------------------------------------
;;;计算线加总长度
;;;-----------------------------------------------------
(defun C

ENOF (/ CURVE TLEN SS N SUMLEN)
  (vl-load-com)
  (setq SUMLEN 0)
  (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
  (setq N 0)
  (repeat (sslength SS)
(setq CURVE (vlax-ename->vla-object (ssname SS N)))
(setq TLEN (vlax-curve-getdistatparam
   CURVE
   (vlax-curve-getendparam CURVE)
         )
)
(setq SUMLEN (+ SUMLEN TLEN))
(setq N (1+ N))
  )
  (print (strcat "总长度: " (rtos SUMLEN 2 5)))
  (princ)
)

matichen · 发表于 2002-9-23 12:35:00

[此贴子已经被作者于2002-9-23 12:35:56编辑过]

diguo · 发表于 2002-9-23 20:21:00

账号		自动登录	找回密码
密码			注册

请教诸位高手,怎么计算一系列polyline的周长之和.

很苯的方法：用list量完后，再一个一个的加

你有gbeita.shx？,请发给我或告知下载地址，邮箱:kqh31024@sohu.com

计算线加总长度

look...

GOOD!THANKS!