[求助]：封闭多义线中心点的求发

laoxie_1983

请教大家:我想在一些封闭多义线的中心位置注记内容,有什么算法求出多义线的中心呀?

zml84

何为中心？

jdhszh

;;center质心坐标
(defun c:Centroid (/ poly pl ms va reg cen bh center)
  (if (car (atoms-family 1 '("vl-load-com")))
    (vl-load-com)
  )
  ;;判断是否加载vl-load-com
  (setq poly (car (entsel)))
  ;;选择线
  (setq pl (vlax-ename->vla-object poly))
  (setq bh (vlax-curve-isClosed pl)) ;;判断闭合
  (if bh
    (progn
      (setq ms (vla-get-modelspace
                 (vla-get-activedocument (vlax-get-acad-object))
               )
            va (vlax-make-safearray vlax-vbObject '(0 . 0))
      )
      (vlax-safearray-put-element va 0 pl)
      (setq reg        (car (vlax-safearray->list
                       (vlax-variant-value (vla-addregion ms va))
                     )
                )
            cen        (vla-get-centroid reg)
      )
      (vla-delete reg)
      (setq center (vlax-safearray->list (vlax-variant-value cen)));;质心
    )
  )
)

bojuediyi

强烈支持原创