Glassvision/RevitSdkSamples
1
0
Fork 0
mirror of https://github.com/jeremytammik/RevitSdkSamples.git synced 2026-08-20 12:12:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

copied Revit 2024 SDK

Browse Source
This commit is contained in:
Jeremy Tammik
2023-04-26 14:47:47 +02:00
parent 2ca39e38fd
commit 4d69f3eea5
425 changed files with 344414 additions and 2296 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SDK/Samples/FireRating/VB.NET/ImportFireRating.vb
+5 -5
View File
@@ -78,18 +78,18 @@ Public Class ImportFireRating
Dim fireRatingValue As String
fireRatingValue = worksheet.Cells(row, 4).Value
If Not (fireRatingValue Is Nothing) Then
Dim idInteger As Integer
Dim idLong As Long
Dim fireRateDouble As Double
Try
idInteger = value
idLong = value
fireRateDouble = fireRatingValue
Catch ex As Exception
TaskDialog.Show("Revit", ex.ToString)
TaskDialog.Show("Revit", ex.ToString)
End Try
Dim elementId As Autodesk.Revit.DB.ElementId = New Autodesk.Revit.DB.ElementId(idInteger)
Dim elementId As Autodesk.Revit.DB.ElementId = New Autodesk.Revit.DB.ElementId(idLong)
Dim element As Autodesk.Revit.DB.Element = commandData.Application.ActiveUIDocument.Document.GetElement(elementId)
Dim element As Autodesk.Revit.DB.Element = commandData.Application.ActiveUIDocument.Document.GetElement(elementId)
If Not (element Is Nothing) Then
Dim parameters As Autodesk.Revit.DB.ParameterSet = element.Parameters
Dim parameter As Autodesk.Revit.DB.Parameter