[求助]：任意曲线的质心怎么求

wykdy

假设曲线上分布有均匀的质量,如何求其质心?直线或多义线都好办,圆弧也可积分求得,但任意的曲线就不好办了,想用积分但不知道具体函数.通常我都是把它偏移一个很小的距离,形成面域,再计算质心,但总觉得这种方法有点土.既然这类曲线可以算出长度(不知具体怎样积分求得的),也一定可以求出质心的,之前我在论坛上看到很多求长度的,就是没有求复杂曲线质心的,还垦请高手帮助,

aidraft

这种方法不土，很符合实际情况

PLgis

也可采用下面的方法,好像略好些:

2. 
   
3. (defun c:CC(/ Lent Pent pt)
   
4.   (setq lent(entsel "选择曲线:"))
   
5.   (if lent
   
6.     (progn
   
7.       (command "_.divide" lent 2)
   
8.       (setq Pent(entlast))
   
9.       (setq pt(cdr(assoc 10 (entget Pent))))
   
10.       (entdel Pent)
    
11.       (princ "\n曲线中点:")(princ pt)
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )
    
16. ;
    

<br /> (defun c:CC(/ Lent Pent pt)<br />   (setq lent(entsel "选择曲线:"))<br />   (if lent<br />     (progn<br />       (command "_.divide" lent 2)<br />       (setq Pent(entlast))<br />       (setq pt(cdr(assoc 10 (entget Pent))))<br />       (entdel Pent)<br />       (princ "\n曲线中点:")(princ pt)<br />     )<br />   )<br />   (princ)<br /> )<br /> ;<br />

代码已试过,供参考.

wykdy

最初由 PLgis 发布
[B]也可采用下面的方法,好像略好些:
[code]
(defun c:CC(/ Lent Pent pt)
  (setq lent(entsel "选择曲线:"))
  (if lent
    (progn
      (command "_.divide" lent 2)
      (setq Pent(entlast))
      (se... [/B]

好像你误会我的意思了,质心和中点不是一回事,不过还是谢谢大家这么热情