请问用什么算法能计算出封闭区域的面积

cnks

请问用什么算法能计算出封闭区域的面积

mccad

封闭区域如果是MSITStore:C:\Program%20Files\AutoCAD%202005%20cn\help\acadauto.chm::/idh_arc_object.htm" target="_blank" >Arc, MSITStore:C:\Program%20Files\AutoCAD%202005%20cn\help\acadauto.chm::/idh_circle_object.htm" target="_blank" >Circle, MSITStore:C:\Program%20Files\AutoCAD%202005%20cn\help\acadauto.chm::/idh_ellipse_object.htm" target="_blank" >Ellipse, MSITStore:C:\Program%20Files\AutoCAD%202005%20cn\help\acadauto.chm::/idh_lightweightpolyline_object.htm" target="_blank" >LightweightPolyline, MSITStore:C:\Program%20Files\AutoCAD%202005%20cn\help\acadauto.chm::/idh_polyline_object.htm" target="_blank" >Polyline, MSITStore:C:\Program%20Files\AutoCAD%202005%20cn\help\acadauto.chm::/idh_region_object.htm" target="_blank" >Region, MSITStore:C:\Program%20Files\AutoCAD%202005%20cn\help\acadauto.chm::/idh_spline_object.htm" target="_blank" >Spline中的一种，则可以直接使用Area属性来取得面积

雪山飞狐_lzh

用-boundary命令生成面域

supercorn

请问版主：


在VBA中是如何使用-boundary来生成面域的？


希望不要出现如图的窗口。

雪山飞狐_lzh

前面加个减号

supercorn

这样写行吗？版主能否帮我改一下？ '示例Boundary Sub Boundary()
Dim Pnt2 As Variant
Pnt2 = ThisDrawing.Utility.GetPoint(, "选择点：")
Dim lspPnt As String
lspPnt = axPoint2lspPoint(Pnt2)
ThisDrawing.SendCommand "-Boundary" & vbCr & lspPnt & vbCr
End Sub
'转换双元表的函数 Public Function GetDoubleEntTable(entObj As AcadEntity, Pnt As Variant) As String
Dim entHandle As String
entHandle = entObj.Handle
GetDoubleEntTable = "(list(handent " & Chr(34) & entHandle & Chr(34) & _
")(list " & Str(Pnt(0)) & Str(Pnt(1)) & Str(Pnt(2)) & "))"
End Function '转换点的函数 Public Function axPoint2lspPoint(Pnt As Variant) As String
axPoint2lspPoint = Pnt(0) & "," & Pnt(1) & "," & Pnt(2)
End Function '转换图元函数 Public Function axEnt2lspEnt(entObj As AcadEntity) As String
Dim entHandle As String
entHandle = entObj.Handle
axEnt2lspEnt = "(handent " & Chr(34) & entHandle & Chr(34) & ")"
End Function

雪山飞狐_lzh

Sub GetArea()
Dim Pnt2 As Variant
Pnt2 = ThisDrawing.Utility.GetPoint(, "选择点：")
Dim lspPnt As String
m = ThisDrawing.ModelSpace.Count
ThisDrawing.SendCommand "-Boundary" & vbCr & "a" & vbCr & "o" & vbCr & "r" & vbCr & vbCr & Pnt2(0) & "," & Pnt2(1) & vbCr & vbCr
n = ThisDrawing.ModelSpace.Count
If m <> n Then
MsgBox ThisDrawing.ModelSpace(n - 1).Area
ThisDrawing.ModelSpace(n - 1).Delete
Else
MsgBox "Err"
End If
End Sub