Glassvision/RevitSdkSamples
1
0
Fork 0
mirror of https://github.com/jeremytammik/RevitSdkSamples.git synced 2026-09-16 17:45:48 +00:00
Code Issues Packages Projects Releases Wiki Activity

integrate Revit 2025 SDK

Browse Source
This commit is contained in:
Jeremy Tammik
2024-04-11 13:47:20 +02:00
parent e786953544
commit f414362f2b
889 changed files with 26676 additions and 26865 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SDK/Samples/RevitCommands/VB.NET/RvtUtils.vb
+6 -6
View File
@@ -55,7 +55,7 @@ Public Class RvtUtils
str = str + ParameterSetToString(elem.Document, params)
' show it
MsgBox(str)
Autodesk.Revit.UI.TaskDialog.Show("Revit", str)
End Sub
@@ -86,7 +86,7 @@ Public Class RvtUtils
End If
' show it.
MsgBox(str)
Autodesk.Revit.UI.TaskDialog.Show("Revit", str)
End Sub
@@ -176,13 +176,13 @@ Public Class RvtUtils
' does the element have geometry data?
Dim geomElem As Autodesk.Revit.DB.GeometryElement = elem.Geometry(opt)
If geomElem Is Nothing Then
MsgBox(str & "no data")
Autodesk.Revit.UI.TaskDialog.Show("Revit", str & "no data")
Return
End If
str = GeometryElementToString(geomElem)
MsgBox(str)
Autodesk.Revit.UI.TaskDialog.Show("Revit", str)
End Sub
@@ -343,7 +343,7 @@ Public Class RvtUtils
' do we have a location data?
Dim loc As Location = elem.Location
If (loc Is Nothing) Then
MsgBox(str & "no data")
Autodesk.Revit.UI.TaskDialog.Show("Revit", str & "no data")
Return
End If
@@ -369,7 +369,7 @@ Public Class RvtUtils
End If
' show it.
MsgBox(str)
Autodesk.Revit.UI.TaskDialog.Show("Revit", str)
End Sub