mirror of
https://github.com/jeremytammik/RevitSdkSamples.git
synced 2026-08-19 11:43:45 +00:00
added Revit 2022 SDK minus except *rvt and *rfa
This commit is contained in:
Jeremy Tammik
@@ -0,0 +1,54 @@
|
||||
'
|
||||
' (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 granted,
|
||||
' provided that the above copyright notice appears in all copies and
|
||||
' 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 ALL FAULTS.
|
||||
' AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
|
||||
' MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.
|
||||
' DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
|
||||
' UNINTERRUPTED OR ERROR FREE.
|
||||
'
|
||||
' Use, duplication, or disclosure by the U.S. Government is subject to
|
||||
' 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.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' General Information about an assembly is controlled through the following
|
||||
' set of attributes. Change these attribute values to modify the information
|
||||
' associated with an assembly.
|
||||
|
||||
' Review the values of the assembly attributes
|
||||
|
||||
<Assembly: AssemblyTitle("")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("")>
|
||||
<Assembly: AssemblyCopyright("")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
<Assembly: CLSCompliant(True)>
|
||||
|
||||
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||
<Assembly: Guid("22C30719-E2AB-4319-8CA6-5B2D04C4D94B")>
|
||||
|
||||
' Version information for an assembly consists of the following four values:
|
||||
'
|
||||
' Major Version
|
||||
' Minor Version
|
||||
' Build Number
|
||||
' Revision
|
||||
'
|
||||
' You can specify all the values or you can default the Build and Revision Numbers
|
||||
' by using the '*' as shown below:
|
||||
|
||||
<Assembly: AssemblyVersion("1.0.*")>
|
||||
@@ -0,0 +1,14 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<RevitAddIns>
|
||||
<AddIn Type="Command">
|
||||
<Assembly>ElementViewer.dll</Assembly>
|
||||
<ClientId>e4fcf32b-ad45-4253-8899-f6fc085138a1</ClientId>
|
||||
<FullClassName>Revit.SDK.Samples.ElementViewer.VB.NET.ElementViewer</FullClassName>
|
||||
<Text>Element Viewer</Text>
|
||||
<Description>Display wireframe model of one or more selected elements.</Description>
|
||||
<VisibilityMode>AlwaysVisible</VisibilityMode>
|
||||
<VendorId>adsk</VendorId>
|
||||
<VendorId>ADSK</VendorId>
|
||||
<VendorDescription>Autodesk, www.autodesk.com</VendorDescription>
|
||||
</AddIn>
|
||||
</RevitAddIns>
|
||||
@@ -0,0 +1,150 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectType>Local</ProjectType>
|
||||
<ProductVersion>9.0.30729</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{0F4E2284-7141-43F7-8EE1-439DB0AE0075}</ProjectGuid>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ApplicationIcon>
|
||||
</ApplicationIcon>
|
||||
<AssemblyKeyContainerName>
|
||||
</AssemblyKeyContainerName>
|
||||
<AssemblyName>ElementViewer</AssemblyName>
|
||||
<AssemblyOriginatorKeyFile>
|
||||
</AssemblyOriginatorKeyFile>
|
||||
<AssemblyOriginatorKeyMode>None</AssemblyOriginatorKeyMode>
|
||||
<DefaultClientScript>JScript</DefaultClientScript>
|
||||
<DefaultHTMLPageLayout>Grid</DefaultHTMLPageLayout>
|
||||
<DefaultTargetSchema>IE50</DefaultTargetSchema>
|
||||
<DelaySign>false</DelaySign>
|
||||
<OutputType>Library</OutputType>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<RootNamespace>Revit.SDK.Samples.ElementViewer.VB.NET</RootNamespace>
|
||||
<StartupObject>
|
||||
</StartupObject>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<MyType>Windows</MyType>
|
||||
<UpgradeBackupLocation>
|
||||
</UpgradeBackupLocation>
|
||||
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile />
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<OutputPath>bin\debug\</OutputPath>
|
||||
<DocumentationFile>ElementViewer.xml</DocumentationFile>
|
||||
<BaseAddress>285212672</BaseAddress>
|
||||
<ConfigurationOverrideFile>
|
||||
</ConfigurationOverrideFile>
|
||||
<DefineConstants>
|
||||
</DefineConstants>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<Optimize>false</Optimize>
|
||||
<RegisterForComInterop>false</RegisterForComInterop>
|
||||
<RemoveIntegerChecks>false</RemoveIntegerChecks>
|
||||
<TreatWarningsAsErrors>true</TreatWarningsAsErrors>
|
||||
<WarningLevel>1</WarningLevel>
|
||||
<NoWarn>42016,42017,42018,42019,42032</NoWarn>
|
||||
<DebugType>full</DebugType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>ElementViewer.xml</DocumentationFile>
|
||||
<BaseAddress>285212672</BaseAddress>
|
||||
<ConfigurationOverrideFile>
|
||||
</ConfigurationOverrideFile>
|
||||
<DefineConstants>
|
||||
</DefineConstants>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<DebugSymbols>false</DebugSymbols>
|
||||
<Optimize>true</Optimize>
|
||||
<RegisterForComInterop>false</RegisterForComInterop>
|
||||
<RemoveIntegerChecks>false</RemoveIntegerChecks>
|
||||
<TreatWarningsAsErrors>true</TreatWarningsAsErrors>
|
||||
<WarningLevel>1</WarningLevel>
|
||||
<NoWarn>42016,42017,42018,42019,42032</NoWarn>
|
||||
<DebugType>none</DebugType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<BaseAddress>285212672</BaseAddress>
|
||||
<DocumentationFile>ElementViewer.xml</DocumentationFile>
|
||||
<WarningLevel>1</WarningLevel>
|
||||
<TreatWarningsAsErrors>true</TreatWarningsAsErrors>
|
||||
<NoWarn>42016,42017,42018,42019,42032</NoWarn>
|
||||
<DebugType>full</DebugType>
|
||||
<PlatformTarget>x64</PlatformTarget>
|
||||
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<BaseAddress>285212672</BaseAddress>
|
||||
<DocumentationFile>ElementViewer.xml</DocumentationFile>
|
||||
<Optimize>true</Optimize>
|
||||
<WarningLevel>1</WarningLevel>
|
||||
<TreatWarningsAsErrors>true</TreatWarningsAsErrors>
|
||||
<NoWarn>42016,42017,42018,42019,42032</NoWarn>
|
||||
<PlatformTarget>x64</PlatformTarget>
|
||||
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="System">
|
||||
<Name>System</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Data">
|
||||
<Name>System.Data</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml">
|
||||
<Name>System.XML</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Core">
|
||||
<RequiredTargetFramework>3.5</RequiredTargetFramework>
|
||||
</Reference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="AssemblyInfo.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Main.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<ProjectReference Include="..\..\RevitViewer\VB.NET\RevitViewer.vbproj">
|
||||
<Project>{F2A04D84-B791-4738-A226-D38CDD8EBF87}</Project>
|
||||
<Name>RevitViewer</Name>
|
||||
</ProjectReference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Folder Include="My Project\" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(SolutionDir)VSProps\SDKSamples.VB.targets" />
|
||||
<PropertyGroup>
|
||||
<PreBuildEvent>
|
||||
</PreBuildEvent>
|
||||
<PostBuildEvent>set FILEFORSAMPLEREG="$(SolutionDir)..\..\..\..\Regression\API\SDKSamples\UpdateSampleDllForRegression.pl"
|
||||
if exist %25FILEFORSAMPLEREG%25 perl %25FILEFORSAMPLEREG%25 $(ProjectExt) "$(ProjectPath)" "$(TargetPath)" "$(SolutionDir)"</PostBuildEvent>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ResolveAssemblyWarnOrErrorOnTargetArchitectureMismatch>None</ResolveAssemblyWarnOrErrorOnTargetArchitectureMismatch>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
@@ -0,0 +1,383 @@
|
||||
'
|
||||
' (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 granted,
|
||||
' provided that the above copyright notice appears in all copies and
|
||||
' 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 ALL FAULTS.
|
||||
' AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
|
||||
' MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.
|
||||
' DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
|
||||
' UNINTERRUPTED OR ERROR FREE.
|
||||
'
|
||||
' Use, duplication, or disclosure by the U.S. Government is subject to
|
||||
' 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.Collections.Generic
|
||||
|
||||
Imports Autodesk.Revit
|
||||
Imports Autodesk.Revit.DB
|
||||
Imports Autodesk.Revit.ApplicationServices
|
||||
Imports Autodesk.Revit.UI
|
||||
|
||||
''' <summary>
|
||||
''' Implements the Revit add-in interface IExternalCommand
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
<Autodesk.Revit.Attributes.Transaction(Autodesk.Revit.Attributes.TransactionMode.ReadOnly)> _
|
||||
<Autodesk.Revit.Attributes.Regeneration(Autodesk.Revit.Attributes.RegenerationOption.Manual)> _
|
||||
<Autodesk.Revit.Attributes.Journaling(Autodesk.Revit.Attributes.JournalingMode.NoCommandData)> _
|
||||
Public Class ElementViewer
|
||||
Implements Autodesk.Revit.UI.IExternalCommand
|
||||
|
||||
'User preferences for parsing of geometry.
|
||||
Private mOptions As Autodesk.Revit.DB.Options
|
||||
'A transformation set of the affine 3-space
|
||||
Private mTransformations As System.Collections.Generic.List(Of Autodesk.Revit.DB.Transform)
|
||||
'Represents the Autodesk Revit Application,
|
||||
'providing access to documents, options and other application wide data and settings.
|
||||
Private mApplication As Autodesk.Revit.ApplicationServices.Application
|
||||
'the element wire frame to be draw.
|
||||
Private mViewer As RevitViewer.VB.NET.Wireframe
|
||||
|
||||
''' <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 ExternalCommandData, ByRef message As String, ByVal elements As Autodesk.Revit.DB.ElementSet) As Autodesk.Revit.UI.Result Implements IExternalCommand.Execute
|
||||
|
||||
mApplication = commandData.Application.Application
|
||||
mOptions = commandData.Application.Application.Create.NewGeometryOptions
|
||||
mOptions.DetailLevel = Autodesk.Revit.DB.ViewDetailLevel.Fine
|
||||
mViewer = New RevitViewer.VB.NET.Wireframe
|
||||
|
||||
Dim selSet As Autodesk.Revit.DB.ElementSet = New ElementSet()
|
||||
Dim elementId As Autodesk.Revit.DB.ElementId
|
||||
For Each elementId In commandData.Application.ActiveUIDocument.Selection.GetElementIds()
|
||||
selSet.Insert(commandData.Application.ActiveUIDocument.Document.GetElement(elementId))
|
||||
Next
|
||||
Dim elem As Autodesk.Revit.DB.Element
|
||||
|
||||
For Each elem In selSet
|
||||
DrawElement(elem) ' this one handles Group.
|
||||
Next
|
||||
|
||||
If selSet.Size > 0 Then
|
||||
mViewer.ShowModal()
|
||||
Else
|
||||
Autodesk.Revit.UI.TaskDialog.Show("Revit", "Please select some elements first.")
|
||||
End If
|
||||
|
||||
mApplication = Nothing
|
||||
mViewer = Nothing
|
||||
|
||||
Return Autodesk.Revit.UI.Result.Succeeded
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub PushTransformation(ByVal transform As Autodesk.Revit.DB.Transform)
|
||||
If (mTransformations Is Nothing) Then
|
||||
mTransformations = New System.Collections.Generic.List(Of Autodesk.Revit.DB.Transform)
|
||||
End If
|
||||
mTransformations.Add(transform)
|
||||
End Sub
|
||||
|
||||
Private Sub PopTransformation()
|
||||
|
||||
If (mTransformations Is Nothing) Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If (mTransformations.Count = 1) Then
|
||||
mTransformations = Nothing
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim newTransformations As System.Collections.Generic.List(Of Autodesk.Revit.DB.Transform)
|
||||
newTransformations = New System.Collections.Generic.List(Of Autodesk.Revit.DB.Transform)
|
||||
Dim i As Integer
|
||||
For i = 0 To mTransformations.Count - 2
|
||||
|
||||
newTransformations.Add(mTransformations.Item(i))
|
||||
|
||||
Next
|
||||
|
||||
mTransformations = newTransformations
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
' Note: Some element does not expose geometry, for example, curtain wall and dimension.
|
||||
' In case of a curtain wall, try selecting a whole wall by a window/box instead of a single pick.
|
||||
' It will then select internal components and be able to display its geometry.
|
||||
'
|
||||
Private Sub DrawElement(ByVal elem As Autodesk.Revit.DB.Element)
|
||||
|
||||
' if it is a Group. we will need to look at its components.
|
||||
If TypeOf elem Is Autodesk.Revit.DB.Group Then
|
||||
|
||||
Dim group As Autodesk.Revit.DB.Group = elem
|
||||
Dim members As Autodesk.Revit.DB.ElementArray = group.GetMemberIds()
|
||||
|
||||
Dim elm As Autodesk.Revit.DB.ElementId
|
||||
For Each elm In members
|
||||
DrawElement(group.Document.GetElement(elm))
|
||||
Next
|
||||
|
||||
Else
|
||||
|
||||
' not a group. look at the geom data.
|
||||
Dim geom As Autodesk.Revit.DB.GeometryElement = elem.Geometry(mOptions)
|
||||
If Not (geom Is Nothing) Then
|
||||
DrawElement(geom)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Draw geometry of element.
|
||||
''' </summary>
|
||||
''' <param name="elementGeom"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub DrawElement(ByVal elementGeom As Autodesk.Revit.DB.GeometryElement)
|
||||
|
||||
If elementGeom Is Nothing Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim geomObject As Autodesk.Revit.DB.GeometryObject
|
||||
|
||||
Dim Objects As IEnumerator(Of GeometryObject) = elementGeom.GetEnumerator()
|
||||
|
||||
'For Each geomObject In elementGeom.Objects
|
||||
While Objects.MoveNext
|
||||
|
||||
geomObject = Objects.Current
|
||||
|
||||
If (TypeOf geomObject Is Autodesk.Revit.DB.Curve) Then
|
||||
DrawCurve(geomObject)
|
||||
ElseIf (TypeOf geomObject Is Autodesk.Revit.DB.GeometryInstance) Then
|
||||
DrawInstance(geomObject)
|
||||
ElseIf (TypeOf geomObject Is Autodesk.Revit.DB.Mesh) Then
|
||||
DrawMesh(geomObject)
|
||||
ElseIf (TypeOf geomObject Is Autodesk.Revit.DB.Solid) Then
|
||||
DrawSolid(geomObject)
|
||||
ElseIf (TypeOf geomObject Is Autodesk.Revit.DB.PolyLine) Then
|
||||
DrawPoly(geomObject)
|
||||
End If
|
||||
|
||||
End While
|
||||
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' add the primitive line to the Wireframe object.
|
||||
''' </summary>
|
||||
''' <param name="startPoint"></param>
|
||||
''' <param name="endPoint"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub ViewerDrawLine(ByRef startPoint As Autodesk.Revit.DB.XYZ, ByRef endPoint As Autodesk.Revit.DB.XYZ)
|
||||
|
||||
If (mViewer Is Nothing) Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim transformedStart As Autodesk.Revit.DB.XYZ
|
||||
transformedStart = startPoint
|
||||
Dim transformedEnd As Autodesk.Revit.DB.XYZ
|
||||
transformedEnd = endPoint
|
||||
|
||||
If Not (mTransformations Is Nothing) Then
|
||||
Dim count As Long = mTransformations.Count
|
||||
Dim index As Long
|
||||
For index = count - 1 To 0 Step -1
|
||||
transformedStart = TransformPoint(mTransformations(index), transformedStart)
|
||||
transformedEnd = TransformPoint(mTransformations(index), transformedEnd)
|
||||
Next
|
||||
End If
|
||||
|
||||
mViewer.Add(transformedStart.X, transformedStart.Y, transformedStart.Z, transformedEnd.X, transformedEnd.Y, transformedEnd.Z)
|
||||
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' transform point to be fit.
|
||||
''' </summary>
|
||||
''' <param name="transform"></param>
|
||||
''' <param name="point"></param>
|
||||
''' <returns></returns>
|
||||
''' <remarks></remarks>
|
||||
Public Function TransformPoint(ByVal transform As Autodesk.Revit.DB.Transform, ByRef point As Autodesk.Revit.DB.XYZ) As Autodesk.Revit.DB.XYZ
|
||||
|
||||
Return transform.OfPoint(point)
|
||||
|
||||
'Dim result As New Autodesk.Revit.DB.XYZ
|
||||
|
||||
'Dim i As Integer
|
||||
'For i = 0 To 2
|
||||
|
||||
' result.Item(i) = transform.Origin.Item(i)
|
||||
' Dim j As Integer
|
||||
' For j = 0 To 2
|
||||
' result.Item(i) = result.Item(i) + (transform.Basis(j).Item(i) * point.Item(j))
|
||||
' Next
|
||||
|
||||
'Next
|
||||
|
||||
'Return result
|
||||
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' add the primitive curve to the Wireframe object.
|
||||
''' </summary>
|
||||
''' <param name="geomCurve"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub DrawCurve(ByVal geomCurve As Autodesk.Revit.DB.Curve)
|
||||
|
||||
DrawPoints(geomCurve.Tessellate)
|
||||
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' add the poly line to the Wireframe object.
|
||||
''' </summary>
|
||||
''' <param name="polyLine"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub DrawPoly(ByVal polyLine As Autodesk.Revit.DB.PolyLine)
|
||||
|
||||
DrawPoints(polyLine.GetCoordinates())
|
||||
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' add the primitive points to the Wireframe object.
|
||||
''' </summary>
|
||||
''' <param name="points"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub DrawPoints(ByVal points As List(Of Autodesk.Revit.DB.XYZ))
|
||||
|
||||
Dim previousPoint As Autodesk.Revit.DB.XYZ
|
||||
previousPoint = points.Item(0)
|
||||
Dim point As Autodesk.Revit.DB.XYZ
|
||||
|
||||
Dim i As Integer
|
||||
For i = 0 To points.Count - 1
|
||||
|
||||
point = points.Item(i)
|
||||
If (i <> 0) Then
|
||||
ViewerDrawLine(previousPoint, point)
|
||||
End If
|
||||
|
||||
previousPoint = point
|
||||
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' add the primitive instance to the Wireframe object.
|
||||
''' </summary>
|
||||
''' <param name="geomInstance"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub DrawInstance(ByVal geomInstance As Autodesk.Revit.DB.GeometryInstance)
|
||||
|
||||
PushTransformation(geomInstance.Transform)
|
||||
|
||||
Dim geomSymbol As Autodesk.Revit.DB.GeometryElement
|
||||
geomSymbol = geomInstance.SymbolGeometry
|
||||
|
||||
If Not (geomSymbol Is Nothing) Then
|
||||
DrawElement(geomSymbol)
|
||||
End If
|
||||
|
||||
PopTransformation()
|
||||
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' add the primitive mesh to the Wireframe object.
|
||||
''' </summary>
|
||||
''' <param name="geomMesh"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub DrawMesh(ByVal geomMesh As Autodesk.Revit.DB.Mesh)
|
||||
|
||||
Dim i As Integer
|
||||
|
||||
For i = 0 To geomMesh.NumTriangles - 1
|
||||
Dim triangle As Autodesk.Revit.DB.MeshTriangle
|
||||
triangle = geomMesh.Triangle(i)
|
||||
|
||||
ViewerDrawLine(triangle.Vertex(0), triangle.Vertex(1))
|
||||
ViewerDrawLine(triangle.Vertex(1), triangle.Vertex(2))
|
||||
ViewerDrawLine(triangle.Vertex(2), triangle.Vertex(0))
|
||||
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' add the primitive solid to the Wireframe object.
|
||||
''' </summary>
|
||||
''' <param name="geomSolid"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub DrawSolid(ByVal geomSolid As Autodesk.Revit.DB.Solid)
|
||||
|
||||
Dim face As Autodesk.Revit.DB.Face
|
||||
For Each face In geomSolid.Faces
|
||||
DrawFace(face)
|
||||
Next
|
||||
|
||||
Dim Edge As Autodesk.Revit.DB.Edge
|
||||
For Each Edge In geomSolid.Edges
|
||||
DrawEdge(Edge)
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' add the primitive edge to the Wireframe object.
|
||||
''' </summary>
|
||||
''' <param name="geomEdge"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub DrawEdge(ByVal geomEdge As Autodesk.Revit.DB.Edge)
|
||||
|
||||
DrawPoints(geomEdge.Tessellate)
|
||||
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' add the primitive face to the Wireframe object.
|
||||
''' </summary>
|
||||
''' <param name="geomFace"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub DrawFace(ByVal geomFace As Autodesk.Revit.DB.Face)
|
||||
|
||||
DrawMesh(geomFace.Triangulate)
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Binary file not shown.
Reference in New Issue
Block a user