[编程交流] 帮助介绍一个简单的示例

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.Civil.DatabaseServices
Public Class PipeSlope
   <CommandMethod("GetPipeSlope")>
   Public Sub cmdGetPipeSlope()
       Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
       Dim civDoc As Autodesk.Civil.ApplicationServices.CivilDocument
       civDoc = Autodesk.Civil.ApplicationServices.CivilApplication.ActiveDocument
       Dim pipeIds As ObjectIdCollection = civDoc.GetPipeNetworkIds
       ed.WriteMessage("There are " & pipeIds.Count & " pipes in the drawing.")
       Dim oCurrentPipe = civDoc.NetworkState.CurrentPipeId
       For i = 0 To pipeIds.Count
           ed.WriteMessage(oCurrentPipe)
       Next
   End Sub
End Class

[color="red"]Imports Autodesk.Civil.ApplicationServices[/color]
<CommandMethod("GetPipeSlope")>
       Public Sub cmdGetPipeSlope()
           Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
           Dim civDoc As civilDocument = Autodesk.Civil.ApplicationServices.CivilApplication.ActiveDocument
           Dim aDoc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
           Dim db As Database = aDoc.Database
           Dim NetworkIds As ObjectIdCollection = civDoc.GetPipeNetworkIds
           Using trans As Transaction = db.TransactionManager.StartTransaction
               For Each NetId As ObjectId In NetworkIds
                   Dim net As Network = trans.GetObject(NetId, OpenMode.ForRead)
                   ed.WriteMessage(vbCrLf + net.Name)
                   Dim PipeIds As ObjectIdCollection = net.GetPipeIds
                   Using trans2 As Transaction = db.TransactionManager.StartTransaction
                       Dim cnt As Integer = 1
                       For Each PipeId As ObjectId In PipeIds
                           Dim pipe As Pipe = trans2.GetObject(PipeId, OpenMode.ForRead)
                           ed.WriteMessage(vbCrLf + cnt.ToString + " : " + pipe.Name + "   -   " + (pipe.Slope * 100.0).ToString("N2") + "%")
                           cnt = cnt + 1
                       Next
                       trans2.Commit()
                   End Using
               Next
               trans.Commit()
           End Using
       End Sub

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.Civil.ApplicationServices
Imports Autodesk.Civil.DatabaseServices
Public Class DisplayPipeInfoSingleSelection
   <CommandMethod("DisplayPipeInfo")>
   Public Sub cmdDisplayPipeInfo()
       Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
       Dim civilDOC As CivilDocument = Autodesk.Civil.ApplicationServices.CivilApplication.ActiveDocument
       Dim cadDOC As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
       Dim cadDB As Database = cadDOC.Database
       Dim pipeNetIDs As ObjectIdCollection = civilDOC.GetPipeNetworkIds
       '// Open the DB query
       Using cadTrans As Transaction = cadDB.TransactionManager.StartTransaction()
           Dim cadSSPrompt As PromptSelectionResult = cadDOC.Editor.GetSelection()
           '// If user pressed enter after prompt
           If cadSSPrompt.Status = PromptStatus.OK Then
               Dim cadSSet As SelectionSet = cadSSPrompt.Value
               For Each item As SelectedObject In cadSSet
                   ed.WriteMessage(vbCrLf & "Object in CAD DB: " & item.ObjectId.ToString)
                   '// Check if the item is in the DB
                   If Not IsDBNull(item) Then
                       '// Loop through the networks and see if the object ID is a pipe
                       For Each netID As ObjectId In pipeNetIDs
                           Dim net As Network = cadTrans.GetObject(netID, OpenMode.ForRead)
                           Dim pipeIDs As ObjectIdCollection = net.GetPipeIds
                           Using cadTrans2 As Transaction = cadDB.TransactionManager.StartTransaction
                               For Each pipeID As ObjectId In pipeIDs
                                   Dim pipeOBJ As Pipe = cadTrans2.GetObject(pipeID, OpenMode.ForRead)
                                   If pipeID = item.ObjectId Then
                                       Select Case pipeOBJ.FlowDirectionMethod
                                           Case 0
                                               ed.WriteMessage(vbCrLf & pipeOBJ.Name & " flow method: Bi-Directional")
                                           Case 1
                                               ed.WriteMessage(vbCrLf & pipeOBJ.Name & " flow method: Start to End")
                                           Case 2
                                               ed.WriteMessage(vbCrLf & pipeOBJ.Name & " flow method: End to Start")
                                           Case 3
                                               ed.WriteMessage(vbCrLf & pipeOBJ.Name & " flow method: By Slope")
                                       End Select
                                       '// This is where the "Entity" error is
                                       Dim pipeOBJwrite As Entity = cadTrans2.GetObject(pipeID, OpenMode.ForWrite)
                                   End If
                               Next
                           End Using
                       Next
                   End If
               Next
           End If
       End Using
   End Sub
End Class

Dim acTypValAr(0) As TypedValue
acTypValAr.SetValue(New TypedValue(DxfCode.Start, "AECC_PIPE"), 0)
Dim pSelFil As SelectionFilter = New SelectionFilter(acTypValAr)
Dim cadSSPrompt As PromptSelectionResult = cadDOC.Editor.GetSelection(pSelFil)

Dim dbobj as Pipe = trans.GetObject(ObjID,openmode.forwrite)

trans.commit()