[编程申请]：如何求一带有挖空截面的型心及惯性矩？

ww822

如何求一带有挖空截面的型心及惯性矩？[/COLOR]

EnjoyVba

最初由 ww822 发布
[B]如何求一带有挖空截面的型心及惯性矩？[/COLOR] [/B]

可以用3DSOLID对象关于查询型心ACTIVEX方法：

下面是示例代码：

2. 
   
3. [FONT=courier new]
   
4. Sub Example_Centroid()
   
5.     ' This example creates a box in model space.
   
6.     ' It then returns the Centroid for that box.
   
7.    
   
8.     Dim boxObj As Acad3DSolid
   
9.     Dim length As Double, width As Double, height As Double
   
10.     Dim center(0 To 2) As Double
    
11.    
    
12.     ' Define the box
    
13.     center(0) = 5#: center(1) = 5#: center(2) = 0
    
14.     length = 5#: width = 7: height = 10#
    
15.    
    
16.     ' Create the box (3DSolid) object in model space
    
17.     Set boxObj = ThisDrawing.ModelSpace.AddBox(center, length, width, height)
    
18.    
    
19.     ' Change the viewing direction of the viewport to better see the box
    
20.     Dim NewDirection(0 To 2) As Double
    
21.     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    
22.     ThisDrawing.ActiveViewport.direction = NewDirection
    
23.     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    
24.     ZoomAll
    
25.    
    
26.     ' Return the Centroid for the box
    
27.     Dim Centroid As Variant
    
28.     Centroid = boxObj.Centroid
    
29.     MsgBox "The Centroid for the box is " & Centroid(0) & ", " & Centroid(1), , "Centroid Example"
    
30.         
    
31. End Sub
    
32. [/FONT]

<br /> [FONT=courier new]<br /> Sub Example_Centroid()<br />     ' This example creates a box in model space.<br />     ' It then returns the Centroid for that box.<br />     <br />     Dim boxObj As Acad3DSolid<br />     Dim length As Double, width As Double, height As Double<br />     Dim center(0 To 2) As Double<br />     <br />     ' Define the box<br />     center(0) = 5#: center(1) = 5#: center(2) = 0<br />     length = 5#: width = 7: height = 10#<br />     <br />     ' Create the box (3DSolid) object in model space<br />     Set boxObj = ThisDrawing.ModelSpace.AddBox(center, length, width, height)<br />     <br />     ' Change the viewing direction of the viewport to better see the box<br />     Dim NewDirection(0 To 2) As Double<br />     NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1<br />     ThisDrawing.ActiveViewport.direction = NewDirection<br />     ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport<br />     ZoomAll<br />     <br />     ' Return the Centroid for the box<br />     Dim Centroid As Variant<br />     Centroid = boxObj.Centroid<br />     MsgBox "The Centroid for the box is " & Centroid(0) & ", " & Centroid(1), , "Centroid Example"<br />         <br /> End Sub<br /> [/FONT]

ww822

我主要想求平面的型心及惯性矩。不知能否用ＶＬＩＳＰ实现？

XDSoft

最初由 ww822 发布
[B]我主要想求平面的型心及惯性矩。不知能否用ＶＬＩＳＰ实现？ [/B]

如果要考虑挖空，算整体的型心，应该变成一个3DSOLID实体。

如果求平面的，REGION只能是单独的，VLISP也可以使用ActiveX方法，

你把上面代码稍微改动，就可以求REGION的型心了。

或者使用XDRX_API函数XDRX_CURVE_INFO：

1. 
   
2. [FONT=courier new]
   
3. 功能：获得AcDbCurve曲线实体(polyline,lwpolyline,arc,circle,ellipse,spline)
   
4.      和AcDbRegion(REGION面域)实体的面积，周长，质心，惯性矩，回转半径，边界盒等信息。
   
5.      (得到的信息同命令massprop得到的Region的信息。但对于曲线不用得到region就能求得。
   
6. 
   
7. 调用格式：(xdrx_getcurveinfo <Curve曲线或Region面域实体名>)
   
8. 
   
9. 返回值：各个信息组成的关联表。
   
10. 
    
11. 说明：对于不封闭的曲线，面积是把曲线开始点和终止点用直线闭合后的面积
    
12.      但周长不计算最后的封闭直线段的长度。
    
13. 
    
14. 示例：下面信息使用该函数得到的Polyline的信息。
    
15. 
    
16.      (("Perimeter" 26485.5) ("Area" 8.96831e+007) ("Centroid" (18350.9 11745.1))
    
17.       ("MomInertia" 1.30432e+016 3.09809e+016) ("ProdInertia" 1.95954e+016)
    
18.       ("PrinMoments" 4.54504e+014 9.96837e+014) ("PrinAxes" (0.774289 0.632833) (-0.632833 0.774289))
    
19.       ("RadGyration" 12059.7 18586.2) ("Box" (11075.9 6655.67) (23993.4 17421.3))
    
20.      )     
    
21.      
    
22.      下面是MASSPROP命令得到的转换为Region后的POLYLINE的信息。和上面得到的信息在周长上不同。
    
23.      因为做面域的时候用了封闭的线。
    
24.      Command: massprop                                      
    
25.                                                             
    
26.      Select objects: 1 found                                
    
27.                                                             
    
28.      Select objects:                                       
    
29.                                                             
    
30.       ----------------   REGIONS   ----------------         
    
31.                                                             
    
32.      Area:                    89683065                     
    
33.      Perimeter:               37673                        
    
34.      Bounding box:         X: 11076  --  23993              
    
35.                            Y: 6656  --  17421               
    
36.      Centroid:             X: 18351                        
    
37.                            Y: 11745                        
    
38.      Moments of inertia:   X: 1E+16                        
    
39.                            Y: 3E+16                        
    
40.      Product of inertia:  XY: 2E+16                        
    
41.      Radii of gyration:    X: 12060                        
    
42.                            Y: 18586                        
    
43.      Principal moments and X-Y directions about centroid:   
    
44.                            I: 454503674971976 along [1 1]   
    
45.                            J: 996836689445791 along [-1 1]   
    
46.     各参数意义：
    
47. 
    
48.     下表列出了 AutoCAD 为实体显示的质量特性。                                                                                                                                                                                            
    
49.                                                                                                                                                                                                            
    
50.     实体的质量特性                                                                                                                                                                                         
    
51.                                                                                                                                                                                                       
    
52.     质量特性        描述                                                                                                                                                                              
    
53.     质量        用于度量物体的惯性。AutoCAD 使用的密度为 1，所以质量和体积的值相同。                                                                                                                     
    
54.     体积        实体包容的三维空间总量。                                                                                                                                                                  
    
55. 
    
56.     面积        (Area)        实体的表面面积或面域的封闭面积。
    
57. 
    
58.     周长        (Perimeter)        面域的内环和外环的总长度。AutoCAD 不计算实体的周长。
    
59. 
    
60.     质心        (Centroid)        代表面域中心点的二维或三维坐标。对于与当前用户坐标系的 XY 平面共面的面域，
    
61.                           质心是一个二维点。对于与当前用户坐标系的 XY 平面不共面的面域，质心是一个三维点。
    
62. 
    
63.     惯性矩(MomInertia)          质量惯性矩，用来计算绕给定的轴旋转对象（例如车轮绕车轴旋转）时所需的力。            
    
64.                           惯性矩的计算公式是：质量惯性矩 = 对象质量*轴半径*轴半径                              
    
65.                           质量惯性矩的单位是质量（克或斯勒格）乘以距离的平方。                                 
    
66.                                                                                                 
    
67.     惯性积(ProdInertia)   用来确定导致对象运动的力，通常通过两个正交平面计算。计算 YZ 平面和 XZ 平面           
    
68.                          惯性积的公式是：惯性积(YZ,XZ) = 质量*质心到平面 YZ 的距离*质心到平面 XZ 的距离      
    
69.                          这个 XY 值的单位是质量乘以距离的平方。                                               
    
70. 
    
71.     旋转半径(RadGyration)  表示实体惯性矩的另一种方法。                                                
    
72.                           计算旋转半径的公式是：旋转半径=（惯性积 / 物体质量）1/2 旋转半径的单位就是距离单位。                                                                  
    
73.    
    
74.     主力矩和质心的 X、Y、Z 轴        (PrinMoments)  (PrinAxes)                                                        
    
75.                           由惯性积得出，它们具有相同单位。在对象的质心处有一个确定的轴，                       
    
76. 　?                       对应这个轴的惯性矩最大。另有一个轴与第一个轴相垂直，并且也通过质心，对应它的惯性矩最?
    
77.                           由此导出第三个轴，其惯性矩介于最大值与最小值之间。                                   
    
78.                                                                                                 
    
79.     边界框(Box)                  显示用于定义边界框的两个坐标。对于与当前用户坐标系的 XY 平面共面的面域，            
    
80.                           边界框由包含该面域的矩形的对角点定义。对于与当前用户坐标系的 XY 平面不共面的面域，   
    
81.                           边界框由包含该面域的三维的对角点定义。                                               
    
82. [/FONT]

复制代码