[求助]：截面惯性矩

lhyygu

谁有独立分开（不整合在其他LISP中）的求截面惯矩的LISP吗？我想用。

XDSoft

贴个XDRX_API的函数吧，给你多做个选择。

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

复制代码

lhyygu

不是region,而是Ix,Iy的值。

砼皮铁骨

好。。

lhyygu

谢谢晓东帮忙。