[求助]：ACAD计算点的重心

wsy

许多点的重心用ACAD怎么求？

27182818284

用 EXCEL 统计也可，不过也不是十分简便。

wsy

谢谢，我已下载，请问：播放软件从哪下载？

halibt

最初由 wsy 发布
[B]谢谢，我已下载，请问：播放软件从哪下载？ [/B]

这里有一个
http://www.xdcad.net/down/show.php?id=309

ahlzl

昨天我写了一个小程序,顺便又写这个VBA程序.这是用法:

ahlzl

2. 
   
3. Sub aa()
   
4. Dim a As Integer
   
5. Dim d0, d1, d2 As Double
   
6. Dim set1 As AcadSelectionSet
   
7. Dim setobj As AcadEntity
   
8. Dim point, points As Variant
   
9. 
   
10. n = ThisDrawing.SelectionSets.Count
    
11. While (n > 0)
    
12. Set set1 = ThisDrawing.SelectionSets.Item(n - 1)
    
13. If set1.Name = "s1" Then
    
14. set1.Delete
    
15. End If
    
16. n = n - 1
    
17. Wend
    
18. 
    
19. Set set1 = ThisDrawing.SelectionSets.Add("s1")
    
20. set1.SelectOnScreen
    
21. 
    
22. For i = 0 To set1.Count - 1
    
23. Set setobj = set1.Item(i)
    
24. If setobj.ObjectName = "AcDbPoint" Then
    
25. Set points = setobj
    
26. point = points.Coordinates
    
27. d0 = point(0) + d0
    
28. d1 = point(1) + d1
    
29. d2 = point(2) + d2
    
30. a = a + 1
    
31. End If
    
32. Next
    
33. d0 = d0 / a
    
34. d1 = d1 / a
    
35. d2 = d2 / a
    
36. ThisDrawing.Utility.Prompt "重心坐标：" & d0 & "," & d1 & "," & d2
    
37. End Sub

<br /> Sub aa()<br /> Dim a As Integer<br /> Dim d0, d1, d2 As Double<br /> Dim set1 As AcadSelectionSet<br /> Dim setobj As AcadEntity<br /> Dim point, points As Variant<br /> <br /> n = ThisDrawing.SelectionSets.Count<br /> While (n > 0)<br /> Set set1 = ThisDrawing.SelectionSets.Item(n - 1)<br /> If set1.Name = "s1" Then<br /> set1.Delete<br /> End If<br /> n = n - 1<br /> Wend<br /> <br /> Set set1 = ThisDrawing.SelectionSets.Add("s1")<br /> set1.SelectOnScreen<br /> <br /> For i = 0 To set1.Count - 1<br /> Set setobj = set1.Item(i)<br /> If setobj.ObjectName = "AcDbPoint" Then<br /> Set points = setobj<br /> point = points.Coordinates<br /> d0 = point(0) + d0<br /> d1 = point(1) + d1<br /> d2 = point(2) + d2<br /> a = a + 1<br /> End If<br /> Next<br /> d0 = d0 / a<br /> d1 = d1 / a<br /> d2 = d2 / a<br /> ThisDrawing.Utility.Prompt "重心坐标：" & d0 & "," & d1 & "," & d2<br /> End Sub

kailler

把所有的点连成一个闭合区域，然后region,massprop，就可以了

vvss

要好好请教啊。很深高啊。