再问vb提取cad中面域的断面特性

再问vb提取cad中面域的截面特性
在论坛里发过帖子，但还是一直没有解决，再次发帖求助，我想用vb做一个截面特性显示的界面。思路是用vb调用cad，在cad里画出图形，然后形成面域，用vb提取面域的截面特性值。请问，该如何提取cad里的面域特性值呀！恳请会的朋友帮帮忙，万分感激。解决啦会加倍赠送积分，再次谢过！

[解决办法]
我也有同样的问题困扰
[解决办法]
好像上次回答过你的哦

你的面域放到cad里面是什么对象？
你要的是什么特征值？

你会不会用vb打开CAD？
你会不会用vba添加图形对象？
你会不会用selectionset？

到底到了哪一步？

最简单的方法就是你在vb里面调用Cad application然后f1看看帮助，话说cad的vba的帮助还是很好的

[解决办法]
路过，顶贴.............

[解决办法]
太深奥,帮顶
[解决办法]
类名: AcadRegion 
 Area 属性，返回实体的面积
MomentOfInertia 属性，返回实体的惯性矩。
Perimeter属性，返回实体的周长
....
看看CAD对象模型就全知道了
[解决办法]
这下我就知道你要的东西了
1.添加Region

VB code

Sub Example_AddRegion()    ' This example creates a region from an arc and a line.        Dim curves(0 To 1) As AcadEntity    ' Define the arc    Dim centerPoint(0 To 2) As Double    Dim radius As Double    Dim startAngle As Double    Dim endAngle As Double    centerPoint(0) = 5#: centerPoint(1) = 3#: centerPoint(2) = 0#    radius = 2#    startAngle = 0    endAngle = 3.141592    Set curves(0) = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngle, endAngle)        ' Define the line    Set curves(1) = ThisDrawing.ModelSpace.AddLine(curves(0).startPoint, curves(0).endPoint)            ' Create the region    Dim regionObj As Variant    regionObj = ThisDrawing.ModelSpace.AddRegion(curves)    ZoomAll   msgbox regionObj.areaEnd Sub
[解决办法]
在这里问吧   专业点
http://www.mjtd.com/bbs/index.asp
[解决办法]
学习innnnnnnng