Glassvision/RevitSdkSamples
1
0
Fork 0
mirror of https://github.com/jeremytammik/RevitSdkSamples.git synced 2026-08-19 11:43:45 +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/ExportFireRating.vb
+1 -1
View File
@@ -173,7 +173,7 @@ Public Class ExportFireRating
For Each element In elementSet
'ID
worksheet.Cells(row, 1).Value = element.Id.IntegerValue
worksheet.Cells(row, 1).Value = element.Id.Value
'Level
Dim level As Autodesk.Revit.DB.Level
SDK/Samples/FireRating/VB.NET/FireRating.vbproj
+2 -2
View File
@@ -150,8 +150,8 @@
<PropertyGroup>
<PreBuildEvent>
</PreBuildEvent>
<PostBuildEvent>set FILEFORSAMPLEREG="$(SolutionDir)..\..\..\..\Regression\API\SDKSamples\UpdateSampleDllForRegression.pl"
if exist %25FILEFORSAMPLEREG%25 perl %25FILEFORSAMPLEREG%25 $(ProjectExt) "$(ProjectPath)" "$(TargetPath)" "$(SolutionDir)"</PostBuildEvent>
<PostBuildEvent>set FILEFORSAMPLEREG="$(SolutionDir)..\..\..\..\Regression\API\SDKSamples\UpdateSampleDllForRegression.py"
if exist %25FILEFORSAMPLEREG%25 py -3 %25FILEFORSAMPLEREG%25 "$(ProjectPath)" "$(TargetPath)" "$(SolutionDir)"</PostBuildEvent>
</PropertyGroup>
<PropertyGroup>
<ResolveAssemblyWarnOrErrorOnTargetArchitectureMismatch>None</ResolveAssemblyWarnOrErrorOnTargetArchitectureMismatch>
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