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

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()
           '// Use this to filter out ONLY pipes
           Dim acTypValAr(0) As TypedValue
           acTypValAr.SetValue(New TypedValue(DxfCode.Start, "AECC_PIPE"), 0)
           Dim pSelFil As SelectionFilter = New SelectionFilter(acTypValAr)
           Dim pSelFilOpt As New PromptSelectionOptions
           With pSelFilOpt
               .AllowDuplicates = False
               .AllowSubSelections = False
               .RejectObjectsFromNonCurrentSpace = True
               .RejectObjectsOnLockedLayers = False
           End With
           Dim cadSSPrompt As PromptSelectionResult = cadDOC.Editor.GetSelection(pSelFilOpt, pSelFil)
           Dim cadSSet As SelectionSet = cadSSPrompt.Value
           For Each item As SelectedObject In CadSSet
               If cadSSPrompt.Status = PromptStatus.OK Then
                   For Each netID As ObjectId In pipeNetIDs
                       Dim net As Network = cadTrans.GetObject(netID, OpenMode.ForWrite)
                       Dim pipeIDs As ObjectIdCollection = net.GetPipeIds
                       For Each pipeID As ObjectId In pipeIDs
                           Dim pipeOBJ As Pipe = cadTrans.GetObject(pipeID, OpenMode.ForWrite)
                           If pipeID = item.ObjectId Then
                               Select Case pipeOBJ.FlowDirectionMethod
                                   Case 0
                                       ed.WriteMessage(vbCrLf & pipeOBJ.Name & " flow method: Bi-Directional")
                                       pipeOBJ.FlowDirectionMethod = 3
                                       cadTrans.Commit()
                                   Case 1
                                       ed.WriteMessage(vbCrLf & pipeOBJ.Name & " flow method: Start to End")
                                       pipeOBJ.FlowDirectionMethod = 3
                                       cadTrans.Commit()
                                   Case 2
                                       ed.WriteMessage(vbCrLf & pipeOBJ.Name & " flow method: End to Start")
                                       pipeOBJ.FlowDirectionMethod = 3
                                       cadTrans.Commit()
                                   Case 3
                                       ed.WriteMessage(vbCrLf & pipeOBJ.Name & " flow method: By Slope")
                               End Select
                           End If
                       Next
                   Next
               End If
           Next
       End Using
   End Sub
End Class

<CommandMethod("SetPipeFlowMethodToSlope")>
       Public Sub setPipeFlowMethodToSlope()
           'Get Documents and Database
           Dim aDoc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
           Dim ed As Editor = aDoc.Editor
           Dim db As Database = aDoc.Database
           'Build SelectionSet Options and Filter
           Dim acTypValAr(0) As TypedValue
           acTypValAr.SetValue(New TypedValue(DxfCode.Start, "AECC_PIPE"), 0)
           Dim pSelFil As SelectionFilter = New SelectionFilter(acTypValAr)
           Dim pSelFilOpt As New PromptSelectionOptions
           With pSelFilOpt
               .AllowDuplicates = False
               .AllowSubSelections = False
               .RejectObjectsFromNonCurrentSpace = True
               .RejectObjectsOnLockedLayers = False
           End With
           'Prompt for Selection
           Dim PrmptSelRes As PromptSelectionResult = aDoc.Editor.GetSelection(pSelFilOpt, pSelFil)
           'Test for a Good Selection
           If PrmptSelRes.Status = PromptStatus.OK Then
               'Get the SelectionSet
               Dim ss As SelectionSet = PrmptSelRes.Value
               'Begin a database transaction
               Using trans As Transaction = db.TransactionManager.StartTransaction
                   For Each item As SelectedObject In ss
                       'Open each pipe in the selectionset for write
                       Dim pipeObj As Pipe = trans.GetObject(item.ObjectId, OpenMode.ForWrite)
                       'Print the Network Name, Pipe Name & Current Flow Method.
                       ed.WriteMessage(vbCrLf + "Network: " + pipeObj.NetworkName + "  Name: " + pipeObj.Name + " - " + pipeObj.FlowDirectionMethod.ToString)
                       'Set the Flow Direction to BySlope
                       pipeObj.FlowDirectionMethod = FlowDirectionMethodType.BySlope
                       'Print what we just did.
                       ed.WriteMessage(vbCrLf + "Name: " + pipeObj.Name + " FlowDirectionMethod has been set to BySlope.")
                   Next
                   'Commit the transaction.
                   trans.Commit()
               End Using
           End If
           ed.WriteMessage(vbCrLf + "Command has completed sucessfully.")
       End Sub

<CommandMethod("SetPipeFlowMethodToSlope")>
       Public Sub setPipeFlowMethodToSlope()
           'Get Documents and Database
           Dim aDoc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
           Dim ed As Editor = aDoc.Editor
           Dim db As Database = aDoc.Database
           'Build SelectionSet Options and Filter
           Dim acTypValAr(0) As TypedValue
           acTypValAr.SetValue(New TypedValue(DxfCode.Start, "AECC_PIPE"), 0)
           Dim pSelFil As SelectionFilter = New SelectionFilter(acTypValAr)
           Dim pSelFilOpt As New PromptSelectionOptions
           With pSelFilOpt
               .AllowDuplicates = False
               .AllowSubSelections = False
               .RejectObjectsFromNonCurrentSpace = True
               .RejectObjectsOnLockedLayers = False
           End With
           'Prompt for Selection
           Dim PrmptSelRes As PromptSelectionResult = aDoc.Editor.GetSelection(pSelFilOpt, pSelFil)
           'Test for a Good Selection
           If PrmptSelRes.Status = PromptStatus.OK Then
               'Get the SelectionSet
               Dim ss As SelectionSet = PrmptSelRes.Value
               'Begin a database transaction
               Using trans As Transaction = db.TransactionManager.StartTransaction
                   For Each item As SelectedObject In ss
                       'Open each pipe in the selectionset for write
                       Dim pipeObj As Pipe = trans.GetObject(item.ObjectId, OpenMode.ForWrite)
                       'Print the Network Name, Pipe Name & Current Flow Method.
                       ed.WriteMessage(vbCrLf + "Network: " + pipeObj.NetworkName + "  Name: " + pipeObj.Name + " - " + pipeObj.FlowDirectionMethod.ToString)
                       'Set the Flow Direction to BySlope
                       [color="red"]pipeObj.FlowDirectionMethod = 3[/color]
                       'Print what we just did.
                       ed.WriteMessage(vbCrLf + "Name: " + pipeObj.Name + " FlowDirectionMethod has been set to BySlope.")
                   Next
                   'Commit the transaction.
                   trans.Commit()
               End Using
           End If
           ed.WriteMessage(vbCrLf + "Command has completed successfully.")
       End Sub