获取面域属性信息问题
是这样的：在cad中，可以用massprop命令查询选定面域或实体的特性属性，比如面积，惯性矩等等，现在情况是：我在vba中选定了一个面域，并用sendcommand方法调用massprop命令查询该面域的属性，请问怎么样获取这些属性信息？这些信息在后续的编程中还需要用到，请高手多多指教！！！用sendcommand方法调用massprop命令查询该面域的属性? 为什么要那样做？
Sub Ch4_CreateRegion()
' Define an array to hold the
' boundaries of the region.
Dim curves(0 To 0) As AcadCircle
' Create a circle to become a
' boundary for the region.
Dim center(0 To 2) As Double
Dim radius As Double
center(0) = 2
center(1) = 2
center(2) = 0
radius = 5#
Set curves(0) = ThisDrawing.ModelSpace.AddCircle _
(center, radius)
' Create the region
Dim regionObj As Variant
regionObj = ThisDrawing.ModelSpace.AddRegion(curves)
MsgBox regionObj(0).ProductOfInertia
ZoomAll
End Sub
这个是圆周率呀
页:
[1]