[编程申请]：那位兄弟能帮我编一个自动找到形心的程序

boy_jun

我们在画异型柱基础的时候，需要基础中心与异型柱中心对齐，能不能有一个程序象是CAD中的点捕捉那样，直接捕捉到一个面域的形心？？然后再进行在形心上画线等操作？？
谢谢了

xyp1964

签名栏下的“中心线”程序！

qiaqiadeng

(defun c:wb ();生成面域并在其内标注面积(m2)和质心
(VL-LOAD-COM)
(setq AcadObject   (vlax-get-acad-object)
      AcadDocument (vla-get-ActiveDocument AcadObject)
      mSpace           (vla-get-ModelSpace AcadDocument)
)
  
(setq p1 t)
(while p1
  (if *error*
  (command "-boundary" (setq p1 (getpoint "点取封闭区域内部的一点:"))  "A" "o" "R" "" "")
  (command "-boundary" (setq p1 (getpoint "点取封闭区域内部的一点:")) "Y" "A" "o" "R" "" "")
)
(setq EN (entlast))

(command "area" "o" EN)
(setq AA (getvar "area"))
(COMMAND "TEXT" p1 500 0 (RTOS (/ AA 1000000) 2 3))
(setq Centriod (vla-get-Centroid (vlax-ename->vla-object EN)))
(setq x (vlax-safearray-get-element (vlax-variant-value Centriod) 0))
(setq y (vlax-safearray-get-element (vlax-variant-value Centriod) 1))
;(entdel en)
(command "point" (list x y 0) "")
  )
nil
)

caddog

如果是凹多边形的话，其面域的质心会出现在外面：

qiaqiadeng

难道还会在里面？请多复习一下材料力学。