求写一函数，给定一个点表，返回该点表对应的面域形心所在的点

santalin

2. (defun lst_getShapeheart ( lst / )
   
3. 
   
4. )
   
5. 
   
6. ;TEST
   
7. (setq lst '((0 0)(1 0)(2 2)(0 3)))
   
8. (princ  (lst_getShapeheart lst))

(defun lst_getShapeheart ( lst / )<br /> <br /> )<br /> <br /> ;TEST<br /> (setq lst '((0 0)(1 0)(2 2)(0 3)))<br /> (princ  (lst_getShapeheart lst))

我已经用以下思路实现了这个功能：
用CAD命令（VL-CMDF）将点表画PLINE，用“C”闭合，再创建面域取形心
但是我要处理很多这类的表，这种方法用VL-CMDF创建PLINE、面域再删除，很费时间也不好看
我不想要这样的，我想要纯静态高速的方法，请高手写个函数

santalin

版主呢，有想法么

yshf

参考：http://bbs.mjtd.com/thread-91845-1-1.html