Glassvision/RevitSdkSamples
1
0
Fork 0
mirror of https://github.com/jeremytammik/RevitSdkSamples.git synced 2026-08-16 10:34:07 +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/MaterialProperties/VB.NET/MaterialProperties.vb
+20 -20
View File
@@ -72,30 +72,30 @@ Public Class MaterialProperties
'arraylist of all materials belonging to concrete type
Dim m_concretes As ArrayList = New ArrayList
ReadOnly Property CurrentType() As StructuralAssetClass
Get
Dim materialId As Autodesk.Revit.DB.ElementId = New Autodesk.Revit.DB.ElementId(0)
ReadOnly Property CurrentType() As StructuralAssetClass
Get
Dim materialId As Autodesk.Revit.DB.ElementId = Autodesk.Revit.DB.ElementId.InvalidElementId
If Not m_currentMaterial Is Nothing Then
materialId = m_currentMaterial.AsElementId()
End If
If Not m_currentMaterial Is Nothing Then
materialId = m_currentMaterial.AsElementId()
End If
If materialId.IntegerValue <= 0 Then
Return StructuralAssetClass.Generic
End If
If materialId = Autodesk.Revit.DB.ElementId.InvalidElementId Then
Return StructuralAssetClass.Generic
End If
Dim materialElem As Autodesk.Revit.DB.Material = _
CType(m_allMaterialMap(materialId), Autodesk.Revit.DB.Material)
Dim materialElem As Autodesk.Revit.DB.Material = _
CType(m_allMaterialMap(materialId), Autodesk.Revit.DB.Material)
If Nothing Is materialElem Then
Return StructuralAssetClass.Generic
End If
If Nothing Is materialElem Then
Return StructuralAssetClass.Generic
End If
Return GetMaterialType(materialElem)
End Get
Return GetMaterialType(materialElem)
End Get
End Property
End Property
'get the material attribute of selected element
ReadOnly Property CurrentMaterial() As Object
@@ -366,15 +366,15 @@ Public Class MaterialProperties
'get current material of selected component
Private Function GetCurrentMaterial() As Autodesk.Revit.DB.Material
'get the value of current material's ElementId
Dim identityValue As Autodesk.Revit.DB.ElementId = New Autodesk.Revit.DB.ElementId(0)
'get the value of current material's ElementId
Dim identityValue As Autodesk.Revit.DB.ElementId = Autodesk.Revit.DB.ElementId.InvalidElementId
If Not m_currentMaterial Is Nothing Then
identityValue = m_currentMaterial.AsElementId()
End If
'material has no value
If (identityValue.IntegerValue <= 0) Then
If (identityValue = Autodesk.Revit.DB.ElementId.InvalidElementId) Then
Return Nothing
End If
Dim material As Autodesk.Revit.DB.Material = _
SDK/Samples/MaterialProperties/VB.NET/MaterialProperties.vbproj
+2 -2
View File
@@ -145,8 +145,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>