求助：求多个对象的形心！！！！

xiaobaixiaobu

画桩基承台的时候经常会用到求不规则承台的形心，要是剪力墙底下的承台还得求多个剪力墙的组合形心，现在希望哪位大侠能够帮忙写个程序能够同时计算单个不规则图形的形心跟多个不规则图形的形心，并且用十字标出！要求发出源码也可以供大家学习！谢谢！

xiaobaixiaobu

都没人顶一下啊！还是自己来顶顶~~~~

xiaobaixiaobu

[em0]就这么沉了~~~~

liuxu042

一个明经币就想搞定？

nzl1116

有两种方法：
1 面域对象的centroid属性
2 力矩平衡原理的纯数学计算

xiaobaixiaobu

2. (defun c:zxx (/ se rg f xxx xxy xxx1 xxy1 xxx2 xxy2 cep)
   
3. (setvar "CMDECHO" 0)
   
4. (setvar "FILEDIA" 0)
   
5. (setvar "LUPREC" 8)
   
6. (setq se (entsel "\n 请选取欲求形心的多义线："))
   
7. (command "copy" se "" "0,0" "0,0")
   
8. (command "region" se "")
   
9. (setq rg (entget (entlast)))
   
10. (command "massprop" "l" "" "y" "d:/ZZX.mpr")
    
11. (command "erase" "l" "")
    
12. (setq f (open "d:/ZZX.mpr" "r"))
    
13. (read-line f)
    
14. (read-line f)
    
15. (read-line f)
    
16. (read-line f)
    
17. (read-line f)
    
18. (read-line f)
    
19. (read-line f)
    
20. (setq xxx (read-line f))
    
21. (setq xxy (read-line f))
    
22. (close f)
    
23. (setq xxx1 (substr xxx 25 20))
    
24. (setq xxy1 (substr xxy 25 20))
    
25. (setq xxx2 (atof xxx1))
    
26. (setq xxy2 (atof xxy1))
    
27. (setq cep (list xxx2 xxy2 0))
    
28. (entmake (list (cons 0 "point")(cons 8 "temp") (cons 10 cep)))
    
29. (setvar "FILEDIA" 1)
    
30. (setvar "LUPREC" 2)
    
31. )

(defun c:zxx (/ se rg f xxx xxy xxx1 xxy1 xxx2 xxy2 cep) <br /> (setvar "CMDECHO" 0) <br /> (setvar "FILEDIA" 0) <br /> (setvar "LUPREC" 8) <br /> (setq se (entsel "\n 请选取欲求形心的多义线：")) <br /> (command "copy" se "" "0,0" "0,0") <br /> (command "region" se "") <br /> (setq rg (entget (entlast))) <br /> (command "massprop" "l" "" "y" "d:/ZZX.mpr") <br /> (command "erase" "l" "") <br /> (setq f (open "d:/ZZX.mpr" "r")) <br /> (read-line f) <br /> (read-line f) <br /> (read-line f) <br /> (read-line f) <br /> (read-line f) <br /> (read-line f) <br /> (read-line f) <br /> (setq xxx (read-line f)) <br /> (setq xxy (read-line f)) <br /> (close f) <br /> (setq xxx1 (substr xxx 25 20)) <br /> (setq xxy1 (substr xxy 25 20)) <br /> (setq xxx2 (atof xxx1)) <br /> (setq xxy2 (atof xxy1)) <br /> (setq cep (list xxx2 xxy2 0)) <br /> (entmake (list (cons 0 "point")(cons 8 "temp") (cons 10 cep))) <br /> (setvar "FILEDIA" 1) <br /> (setvar "LUPREC" 2) <br /> )

以前用的，不知道出自何处，希望高手能够帮忙改成具有上面功能的程序！

nzl1116

xiaobaixiaobu 发表于 2013-9-9 15:50
以前用的，不知道出自何处，希望高手能够帮忙改成具有上面功能的程序！

上个示意图看看

xiaobaixiaobu

不好意思，不会做GIF，你可以复制去试一下！

nzl1116

xiaobaixiaobu 发表于 2013-9-9 18:22
不好意思，不会做GIF，你可以复制去试一下！

我不喜欢用command，发个图也行啊，把要求说得详细点。
我对建筑很外行，桩基好象是梯形的吧，怎么会不规则呢？

xiaobaixiaobu

像这样的！