|
|
发表于 2012-7-14 20:51:00
|
显示全部楼层
感觉这样可以解决，但不知道怎么验证是否正确
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry
Public Class Class1
_
Public Sub xarea()
Dim db As Database = HostApplicationServices.WorkingDatabase
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
Dim toal As Double = 0
Using trans As Transaction = db.TransactionManager.StartOpenCloseTransaction()
Dim value(0) As TypedValue
value(0) = New TypedValue(DxfCode.Start, "3DSOLID")
Dim fill As SelectionFilter = New SelectionFilter(value)
Dim optsel As New PromptSelectionOptions()
optsel.MessageForAdding = "选择实体："
Dim selrec As PromptSelectionResult = ed.GetSelection(fill)
If selrec.Status = PromptStatus.OK Then
Dim mysel As SelectionSet = selrec.Value
For Each xobj As SelectedObject In mysel
If Not IsDBNull(xobj) Then
Dim ent As Solid3d = trans.GetObject(xobj.ObjectId, OpenMode.ForRead)
If Not IsDBNull(ent) Then
Dim axarae As Double = ent.Area
toal = toal + axarae
ed.WriteMessage(CStr(toal))
End If
End If
Next
End If
End Using
End Sub
End Class |
|
置顶卡
