;;线长统计
(defun c:curve_length_area (/ area d1 d2 enlst len ss)
  (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))
  (or ss (fsxm-silenceexit))
  (setq	enlst (fsxm-ss->enlist ss)
	len   (apply '+ (mapcar 'fsxm-curve-length enlst))
	area  (apply '+ (mapcar 'vlax-curve-getArea enlst))
	d1    (/ len pi)
	d2    (expt (/ (* 4 area) pi) 0.5)
  )
  (alert
    (princ
      (strcat "\n共选取线条个数："
	      (itoa (length enlst))
	      "\n选取线条总长为："
	      (fsxm-tostring len)
	      "\n折算成圆直径为："
	      (fsxm-tostring d1)
	      "\n选取线总面积为："
	      (fsxm-tostring area)
	      "\n折算成圆直径为："
	      (fsxm-tostring d2)
      )
    )
  )
  (princ)
)