[求助]：如何获取闭合曲线（或闭合多义线）的中心

kgd4510

如何获取闭合曲线（或闭合多义线）的中心（重心）谢谢！

onej

不是有个公式可以算出重心的吗？

xiao_longxin

你到底是要求重心还是中心？如果是中心，不规则图形是没有中心的

kgd4510

要重心。谢谢你啦。那公式是怎么说呢？还请赐教，在下已忘记啦。

xiao_longxin

求重心的话先用曲线生成region，然后就可以取得它的属性了，属性里有质心的

kgd4510

再请问查看面属性在哪里如何操作？

xiao_longxin

取得面域或实体的面积或质量的中点。

语法及参数

(vla-get-Centroid Object)
Object  　3DSolid, Region   这个属性适用的对象。
Centroid 　变体（双精度的二元素数组）；只读
  　　　　表示质心的2D坐标






说明
    质心以定义为变体的X及Y坐标值返回。


范例  

(defun Example_Centroid()

;;; 这个范例在模型空间中建立一个长方体
;;; 接着返回长方体的质心

  (VL-LOAD-COM)

  (setq AcadObject(vlax-get-acad-object)

        AcadDocument(vla-get-ActiveDocument AcadObject)

        mSpace(vla-get-ModelSpace AcadDocument)

  )

;;; 定义长方体

  (setq center(vlax-make-safearray vlax-vbDouble'(0 . 2)))

  (vlax-safearray-fill center'(50 50 0))

  (setq height 100)

  (setq long 50)

  (setq width 70)

;;; 在模型空间中建立长方体 (3DSolid)对象

  (setq BoxObj(vla-AddBox mSpace center long width height))

;;; 改变视口的观测方向以看清长方体

  (setq NewDirection(vlax-3d-point (list -1 -1 1)))

  (setq ActiveViewportSel(vla-get-ActiveViewport AcadDocument))

  (vla-put-direction ActiveViewportSel NewDirection)

  (vla-put-ActiveViewport AcadDocument (vla-get-ActiveViewport AcadDocument))

  (vla-ZoomExtents AcadObject)

;;; 返回长方体的质心

  (setq Centriod(vla-get-Centroid BoxObj))

  (princ "矩形体的Centriod（质心）是:")

  (princ (vlax-safearray-get-element (vlax-variant-value Centriod) 0))(princ ",")

  (princ (vlax-safearray-get-element (vlax-variant-value Centriod) 1))(princ ",")

  (princ (vlax-safearray-get-element (vlax-variant-value Centriod) 2))(princ "   Centriod范例")

  (princ)

)