added Revit 2022 SDK minus except *rvt and *rfa

2026-08-12 07:53:19 +00:00 · 2021-04-20 11:36:21 +02:00
parent 1133a82dc5
commit 7e327986e8
3034 changed files with 1245318 additions and 0 deletions
@@ -0,0 +1,109 @@
+' 
+'  (C) Copyright 2003-2019 by Autodesk, Inc.
+' 
+'  Permission to use, copy, modify, and distribute this software in
+'  object code form for any purpose and without fee is hereby gran
+'  provided that the above copyright notice appears in all copies an
+'  that both that copyright notice and the limited warranty and
+'  restricted rights notice below appear in all supporting
+'  documentation.
+
+'  AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH
+'  AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WAR
+'  MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE
+'  DOES NOT WARRANT THAT THE OPERATION OF THE PRO
+'  UNINTERRUPTED OR ERROR FREE.
+' 
+'  Use, duplication, or disclosure by the U.S. Government is subject 
+'  restrictions set forth in FAR 52.227-19 (Commercial Computer
+'  Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
+'  (Rights in Technical Data and Computer Software), as applicable.
+' 
+Imports System
+Imports System.Windows.Forms
+Imports System.Collections
+
+Imports Autodesk.Revit.DB
+
+''' <summary>
+''' Delete the elements that were selected
+''' </summary>
+
+<Autodesk.Revit.Attributes.Transaction(Autodesk.Revit.Attributes.TransactionMode.Manual)>
+<Autodesk.Revit.Attributes.Regeneration(Autodesk.Revit.Attributes.RegenerationOption.Manual)>
+<Autodesk.Revit.Attributes.Journaling(Autodesk.Revit.Attributes.JournalingMode.NoCommandData)>
+Public Class Command
+    Implements Autodesk.Revit.UI.IExternalCommand
+
+    ''' <summary>
+    '''  Implement this method as an external command for Revit.
+    '''  </summary>
+    '''  <param name="commandData">An object that is passed to the external application 
+    '''  which contains data related to the command, 
+    '''  such as the application object and active view.</param>
+    '''  <param name="message">A message that can be set by the external application 
+    '''  which will be displayed if a failure or cancellation is returned by 
+    '''  the external command.</param>
+    '''  <param name="elements">A set of elements to which the external application 
+    '''  can add elements that are to be highlighted in case of failure or cancellation.</param>
+    '''  <returns>Return the status of the external command. 
+    '''  A result of Succeeded means that the API external method functioned as expected. 
+    '''  Cancelled can be used to signify that the user cancelled the external operation 
+    '''  at some point. Failure should be returned if the application is unable to proceed with 
+    '''  the operation.</returns>
+    Public Function Execute(ByVal commandData As Autodesk.Revit.UI.ExternalCommandData,
+    ByRef message As String, ByVal elements As Autodesk.Revit.DB.ElementSet) _
+    As Autodesk.Revit.UI.Result _
+    Implements Autodesk.Revit.UI.IExternalCommand.Execute
+
+        Dim revit As Autodesk.Revit.UI.UIApplication = commandData.Application
+        Dim trans As Transaction = New Transaction(revit.ActiveUIDocument.Document, "Revit.SDK.Samples.DeleteObject")
+        trans.Start()
+        Dim collection As Autodesk.Revit.DB.ElementSet = New Autodesk.Revit.DB.ElementSet()
+        Dim elementId As Autodesk.Revit.DB.ElementId
+        For Each elementId In revit.ActiveUIDocument.Selection.GetElementIds()
+            collection.Insert(revit.ActiveUIDocument.Document.GetElement(elementId))
+        Next
+        'check user selection
+        If collection.Size < 1 Then
+            message = "Please select object before delete."
+            trans.RollBack()
+            Return Autodesk.Revit.UI.Result.Cancelled
+        End If
+
+        Dim isError As Boolean = True
+        Try
+            'delete selection
+            Dim e As IEnumerator = collection.GetEnumerator()
+            Dim MoreValue As Boolean = e.MoveNext()
+
+            While MoreValue
+                If TypeOf e.Current Is Autodesk.Revit.DB.Element Then
+                    Dim component As Autodesk.Revit.DB.Element = e.Current
+                    revit.ActiveUIDocument.Document.Delete(component.Id)
+                    MoreValue = e.MoveNext()
+                End If
+            End While
+
+            isError = False
+
+        Catch
+            'if revit threw an exception, try to catch it
+            For Each c As Autodesk.Revit.DB.Element In collection
+                elements.Insert(c)
+            Next
+
+            message = "object(s) can't be deleted."
+            trans.RollBack()
+            Return Autodesk.Revit.UI.Result.Failed
+        Finally
+            ' if revit threw an exception, display error and return failed
+            If isError Then
+                Autodesk.Revit.UI.TaskDialog.Show("Revit", "Delete failed.")
+            End If
+
+        End Try
+        trans.Commit()
+        Return Autodesk.Revit.UI.Result.Succeeded
+    End Function
+End Class