算線長程序!!!!!!!!!

spring

小弟我寫了個算周長的程序,但是只能算園孔,如果是異形(PLINE)那要怎麼算呢.
(defun c:llk ()
  (setq llm nil)
  (setq count 0)
  (setq ss (ssget))
  (while (> (sslength ss) count)
    (setq en (ssname ss count))
    (setq ed (entget en))
    (setq count (1+ count))
    (setq r (cdr (assoc 40 ed)))
    (setq d (* 2 r))
    (setq ll (* d pi))
    (setq llm (cons ll llm))
    (setq lll (apply '+ llm))
  )
                                        ;(setq ll(itoa lll))
                                        ;(setq len (strcat "Length:" ll))
  (princ "\nText high <")
  (setq t_hight (getvar "TEXTSIZE"))
  (princ t_hight)
  (setq t_hight (getstring ">"))
  (setq p1 (getpoint "\ninsert point"))
  (command "text" p1 t_hight 0 lll)
  (princ)
)

龙龙仔

查看
http://www.mjtd.com/a2/list.asp?id=319

shicai

(defun GetCurveLength (curve / )
  (vl-load-com)
  (setq curve (vlax-ename->vla-object curve))
  (vlax-curve-getDistAtParam curve
    (vlax-curve-getEndParam curve)
  )
)

spring