disable aspose3d due compatibility issues
This commit is contained in:
Pilzinsel64
@@ -1,250 +1,250 @@
|
||||
Imports System.Globalization
|
||||
Imports System.IO
|
||||
Imports System.Threading
|
||||
'Imports System.Globalization
|
||||
'Imports System.IO
|
||||
'Imports System.Threading
|
||||
|
||||
Imports Aspose.ThreeD
|
||||
Imports Aspose.ThreeD.Entities
|
||||
Imports Aspose.ThreeD.Shading
|
||||
Imports Aspose.ThreeD.Utilities
|
||||
'Imports Aspose.ThreeD
|
||||
'Imports Aspose.ThreeD.Entities
|
||||
'Imports Aspose.ThreeD.Shading
|
||||
'Imports Aspose.ThreeD.Utilities
|
||||
|
||||
Namespace Aspose3DModule
|
||||
'Namespace Aspose3DModule
|
||||
|
||||
Public Class Aspose3DLoader
|
||||
' Public Class Aspose3DLoader
|
||||
|
||||
Private Shared hasActivatedMemoryPatching As Boolean = False
|
||||
' Private Shared hasActivatedMemoryPatching As Boolean = False
|
||||
|
||||
Private Shared Sub ActivateMemoryPatching()
|
||||
If Not hasActivatedMemoryPatching Then
|
||||
LicenseHelper.AsposeModifyInMemory.ActivateMemoryPatching()
|
||||
hasActivatedMemoryPatching = True
|
||||
End If
|
||||
End Sub
|
||||
' Private Shared Sub ActivateMemoryPatching()
|
||||
' If Not hasActivatedMemoryPatching Then
|
||||
' LicenseHelper.AsposeModifyInMemory.ActivateMemoryPatching()
|
||||
' hasActivatedMemoryPatching = True
|
||||
' End If
|
||||
' End Sub
|
||||
|
||||
Public Shared Function FromFile(fileName As String, LoadMaterials As Boolean, UpAxis As UpAxis) As Object3D
|
||||
ActivateMemoryPatching()
|
||||
' Public Shared Function FromFile(fileName As String, LoadMaterials As Boolean, UpAxis As UpAxis) As Object3D
|
||||
' ActivateMemoryPatching()
|
||||
|
||||
'Create new Model
|
||||
Dim obj3d As New Object3D
|
||||
' 'Create new Model
|
||||
' Dim obj3d As New Object3D
|
||||
|
||||
'Create new temporary CultureInfo
|
||||
Dim curThread As Thread = Thread.CurrentThread
|
||||
Dim curCultInfo As CultureInfo = curThread.CurrentCulture
|
||||
Dim newCultInfo As New CultureInfo(curCultInfo.Name)
|
||||
newCultInfo.NumberFormat.NumberDecimalSeparator = "."
|
||||
newCultInfo.NumberFormat.PercentDecimalSeparator = "."
|
||||
newCultInfo.NumberFormat.CurrencyDecimalSeparator = "."
|
||||
newCultInfo.NumberFormat.NumberGroupSeparator = ","
|
||||
newCultInfo.NumberFormat.PercentGroupSeparator = ","
|
||||
newCultInfo.NumberFormat.CurrencyGroupSeparator = ","
|
||||
curThread.CurrentCulture = newCultInfo
|
||||
' 'Create new temporary CultureInfo
|
||||
' Dim curThread As Thread = Thread.CurrentThread
|
||||
' Dim curCultInfo As CultureInfo = curThread.CurrentCulture
|
||||
' Dim newCultInfo As New CultureInfo(curCultInfo.Name)
|
||||
' newCultInfo.NumberFormat.NumberDecimalSeparator = "."
|
||||
' newCultInfo.NumberFormat.PercentDecimalSeparator = "."
|
||||
' newCultInfo.NumberFormat.CurrencyDecimalSeparator = "."
|
||||
' newCultInfo.NumberFormat.NumberGroupSeparator = ","
|
||||
' newCultInfo.NumberFormat.PercentGroupSeparator = ","
|
||||
' newCultInfo.NumberFormat.CurrencyGroupSeparator = ","
|
||||
' curThread.CurrentCulture = newCultInfo
|
||||
|
||||
'Load Model from file
|
||||
Dim scene As New Scene(fileName)
|
||||
' 'Load Model from file
|
||||
' Dim scene As New Scene
|
||||
|
||||
'Reset Cultur-Info
|
||||
curThread.CurrentCulture = curCultInfo
|
||||
' 'Reset Cultur-Info
|
||||
' curThread.CurrentCulture = curCultInfo
|
||||
|
||||
'Triangulate the Model
|
||||
PolygonModifier.Triangulate(scene)
|
||||
' 'Triangulate the Model
|
||||
' PolygonModifier.Triangulate(scene)
|
||||
|
||||
'Create Dictionary for Materials
|
||||
Dim dicMaterials As New Dictionary(Of Aspose.ThreeD.Shading.Material, Material)
|
||||
' 'Create Dictionary for Materials
|
||||
' Dim dicMaterials As New Dictionary(Of Aspose.ThreeD.Shading.Material, Material)
|
||||
|
||||
'Create List of all avaiable Map-States
|
||||
Dim MapNames As String() = {Aspose.ThreeD.Shading.Material.MapDiffuse, Aspose.ThreeD.Shading.Material.MapAmbient, Aspose.ThreeD.Shading.Material.MapSpecular, Aspose.ThreeD.Shading.Material.MapEmissive, Aspose.ThreeD.Shading.Material.MapNormal}
|
||||
Dim ColorNames As String() = {"DiffuseColor", "AmbientColor", "SpecularColor", "EmissiveColor"}
|
||||
' 'Create List of all avaiable Map-States
|
||||
' Dim MapNames As String() = {Aspose.ThreeD.Shading.Material.MapDiffuse, Aspose.ThreeD.Shading.Material.MapAmbient, Aspose.ThreeD.Shading.Material.MapSpecular, Aspose.ThreeD.Shading.Material.MapEmissive, Aspose.ThreeD.Shading.Material.MapNormal}
|
||||
' Dim ColorNames As String() = {"DiffuseColor", "AmbientColor", "SpecularColor", "EmissiveColor"}
|
||||
|
||||
For Each node As Node In scene.RootNode.ChildNodes
|
||||
' For Each node As Node In scene.RootNode.ChildNodes
|
||||
|
||||
'Add new Materials, if not added
|
||||
For Each mat As Aspose.ThreeD.Shading.Material In node.Materials
|
||||
If Not dicMaterials.ContainsKey(mat) Then
|
||||
' 'Add new Materials, if not added
|
||||
' For Each mat As Aspose.ThreeD.Shading.Material In node.Materials
|
||||
' If Not dicMaterials.ContainsKey(mat) Then
|
||||
|
||||
'Create new Material
|
||||
Dim newMat As New Material
|
||||
' 'Create new Material
|
||||
' Dim newMat As New Material
|
||||
|
||||
'Get TextureBase
|
||||
Dim texBase As TextureBase = Nothing
|
||||
Dim curmnindex As Byte = 0
|
||||
Do While texBase Is Nothing AndAlso curmnindex < MapNames.Length
|
||||
texBase = mat.GetTexture(MapNames(curmnindex))
|
||||
curmnindex += 1
|
||||
Loop
|
||||
' 'Get TextureBase
|
||||
' Dim texBase As TextureBase = Nothing
|
||||
' Dim curmnindex As Byte = 0
|
||||
' Do While texBase Is Nothing AndAlso curmnindex < MapNames.Length
|
||||
' texBase = mat.GetTexture(MapNames(curmnindex))
|
||||
' curmnindex += 1
|
||||
' Loop
|
||||
|
||||
If texBase IsNot Nothing Then
|
||||
If LoadMaterials Then
|
||||
'Get Texture Image
|
||||
Dim imgFile As String = texBase.GetPropertyValue("FileName")
|
||||
imgFile = imgFile.Replace("/", "\")
|
||||
' If texBase IsNot Nothing Then
|
||||
' If LoadMaterials Then
|
||||
' 'Get Texture Image
|
||||
' Dim imgFile As String = texBase.GetPropertyValue("FileName")
|
||||
' imgFile = imgFile.Replace("/", "\")
|
||||
|
||||
'Load and set Image
|
||||
If imgFile <> "" Then
|
||||
Dim fs As New FileStream(imgFile, FileMode.Open, FileAccess.Read)
|
||||
newMat.Image = Image.FromStream(fs)
|
||||
fs.Close()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
' 'Load and set Image
|
||||
' If imgFile <> "" Then
|
||||
' Dim fs As New FileStream(imgFile, FileMode.Open, FileAccess.Read)
|
||||
' newMat.Image = Image.FromStream(fs)
|
||||
' fs.Close()
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
|
||||
'Get Texture Color
|
||||
Dim texcol As Vector3? = Nothing
|
||||
Dim curcnindex As Byte = 0
|
||||
Do While texcol Is Nothing AndAlso curcnindex < ColorNames.Length
|
||||
texcol = mat.GetPropertyValue(ColorNames(curcnindex))
|
||||
curcnindex += 1
|
||||
Loop
|
||||
' 'Get Texture Color
|
||||
' Dim texcol As Vector3? = Nothing
|
||||
' Dim curcnindex As Byte = 0
|
||||
' Do While texcol Is Nothing AndAlso curcnindex < ColorNames.Length
|
||||
' texcol = mat.GetPropertyValue(ColorNames(curcnindex))
|
||||
' curcnindex += 1
|
||||
' Loop
|
||||
|
||||
If texcol IsNot Nothing Then
|
||||
newMat.Color = Color.FromArgb(texcol?.x, texcol?.y, texcol?.z)
|
||||
End If
|
||||
' If texcol IsNot Nothing Then
|
||||
' newMat.Color = Color.FromArgb(texcol?.x, texcol?.y, texcol?.z)
|
||||
' End If
|
||||
|
||||
'Add Material to Object3D
|
||||
obj3d.Materials.Add(mat.Name, newMat)
|
||||
' 'Add Material to Object3D
|
||||
' obj3d.Materials.Add(mat.Name, newMat)
|
||||
|
||||
'Add Dictionary-Entry
|
||||
dicMaterials.Add(mat, newMat)
|
||||
' 'Add Dictionary-Entry
|
||||
' dicMaterials.Add(mat, newMat)
|
||||
|
||||
End If
|
||||
Next
|
||||
' End If
|
||||
' Next
|
||||
|
||||
'Get Aspose-Mesh
|
||||
Dim curMesh As Entities.Mesh = node.GetEntity(Of Entities.Mesh)
|
||||
' 'Get Aspose-Mesh
|
||||
' Dim curMesh As Entities.Mesh = node.GetEntity(Of Entities.Mesh)
|
||||
|
||||
If curMesh IsNot Nothing Then
|
||||
' If curMesh IsNot Nothing Then
|
||||
|
||||
'Create new Mesh
|
||||
Dim newMesh As New Mesh
|
||||
' 'Create new Mesh
|
||||
' Dim newMesh As New Mesh
|
||||
|
||||
'Create Vertices
|
||||
For Each vert As Vector4 In curMesh.ControlPoints
|
||||
'Create new Vertex
|
||||
'Set Vertex Data
|
||||
Dim newVert As New Vertex With {
|
||||
.X = vert.x,
|
||||
.Y = vert.y,
|
||||
.Z = vert.z
|
||||
}
|
||||
' 'Create Vertices
|
||||
' For Each vert As Vector4 In curMesh.ControlPoints
|
||||
' 'Create new Vertex
|
||||
' 'Set Vertex Data
|
||||
' Dim newVert As New Vertex With {
|
||||
' .X = vert.x,
|
||||
' .Y = vert.y,
|
||||
' .Z = vert.z
|
||||
' }
|
||||
|
||||
'Add new Vertex
|
||||
newMesh.Vertices.Add(newVert)
|
||||
Next
|
||||
' 'Add new Vertex
|
||||
' newMesh.Vertices.Add(newVert)
|
||||
' Next
|
||||
|
||||
'Create Normals
|
||||
Dim veNormals As VertexElementNormal = curMesh.GetElement(VertexElementType.Normal)
|
||||
If veNormals IsNot Nothing Then
|
||||
For Each n As Vector4 In veNormals.Data
|
||||
'Create new Normal
|
||||
'Set Normal Data
|
||||
Dim newNormal As New Normal With {
|
||||
.X = n.x,
|
||||
.Y = n.y,
|
||||
.Z = n.z
|
||||
}
|
||||
' 'Create Normals
|
||||
' Dim veNormals As VertexElementNormal = curMesh.GetElement(VertexElementType.Normal)
|
||||
' If veNormals IsNot Nothing Then
|
||||
' For Each n As Vector4 In veNormals.Data
|
||||
' 'Create new Normal
|
||||
' 'Set Normal Data
|
||||
' Dim newNormal As New Normal With {
|
||||
' .X = n.x,
|
||||
' .Y = n.y,
|
||||
' .Z = n.z
|
||||
' }
|
||||
|
||||
'Add new Normal
|
||||
newMesh.Normals.Add(newNormal)
|
||||
Next
|
||||
End If
|
||||
' 'Add new Normal
|
||||
' newMesh.Normals.Add(newNormal)
|
||||
' Next
|
||||
' End If
|
||||
|
||||
'Create Normals
|
||||
Dim veUVs As VertexElementUV = curMesh.GetElement(VertexElementType.UV)
|
||||
If veUVs IsNot Nothing Then
|
||||
For Each uv As Vector4 In veUVs.Data
|
||||
'Create new UV
|
||||
'Set UV Data
|
||||
Dim newUV As New UV With {
|
||||
.U = uv.x,
|
||||
.V = uv.y
|
||||
}
|
||||
' 'Create Normals
|
||||
' Dim veUVs As VertexElementUV = curMesh.GetElement(VertexElementType.UV)
|
||||
' If veUVs IsNot Nothing Then
|
||||
' For Each uv As Vector4 In veUVs.Data
|
||||
' 'Create new UV
|
||||
' 'Set UV Data
|
||||
' Dim newUV As New UV With {
|
||||
' .U = uv.x,
|
||||
' .V = uv.y
|
||||
' }
|
||||
|
||||
'Add new UV
|
||||
newMesh.UVs.Add(newUV)
|
||||
Next
|
||||
End If
|
||||
' 'Add new UV
|
||||
' newMesh.UVs.Add(newUV)
|
||||
' Next
|
||||
' End If
|
||||
|
||||
'Create Normals
|
||||
Dim veVertexColor As VertexElementVertexColor = curMesh.GetElement(VertexElementType.VertexColor)
|
||||
If veVertexColor IsNot Nothing Then
|
||||
For Each n As Vector4 In veVertexColor.Data
|
||||
'Create new Normal
|
||||
'Set Normal Data
|
||||
Dim newVC As New VertexColor With {
|
||||
.R = n.x,
|
||||
.G = n.y,
|
||||
.B = n.z,
|
||||
.A = n.w
|
||||
}
|
||||
' 'Create Normals
|
||||
' Dim veVertexColor As VertexElementVertexColor = curMesh.GetElement(VertexElementType.VertexColor)
|
||||
' If veVertexColor IsNot Nothing Then
|
||||
' For Each n As Vector4 In veVertexColor.Data
|
||||
' 'Create new Normal
|
||||
' 'Set Normal Data
|
||||
' Dim newVC As New VertexColor With {
|
||||
' .R = n.x,
|
||||
' .G = n.y,
|
||||
' .B = n.z,
|
||||
' .A = n.w
|
||||
' }
|
||||
|
||||
'Add new Normal
|
||||
newMesh.VertexColors.Add(newVC)
|
||||
Next
|
||||
End If
|
||||
' 'Add new Normal
|
||||
' newMesh.VertexColors.Add(newVC)
|
||||
' Next
|
||||
' End If
|
||||
|
||||
'Get Material-Indicies
|
||||
Dim veMaterials As VertexElementMaterial = curMesh.GetElement(VertexElementType.Material)
|
||||
' 'Get Material-Indicies
|
||||
' Dim veMaterials As VertexElementMaterial = curMesh.GetElement(VertexElementType.Material)
|
||||
|
||||
'Definde Index for VertexElement.Indicies
|
||||
Dim veIndex As Integer = 0
|
||||
' 'Definde Index for VertexElement.Indicies
|
||||
' Dim veIndex As Integer = 0
|
||||
|
||||
'Build Polygones
|
||||
For iPoly = 0 To curMesh.Polygons.Count - 1
|
||||
'Get current Polygon
|
||||
Dim poly As Integer() = curMesh.Polygons(iPoly)
|
||||
' 'Build Polygones
|
||||
' For iPoly = 0 To curMesh.Polygons.Count - 1
|
||||
' 'Get current Polygon
|
||||
' Dim poly As Integer() = curMesh.Polygons(iPoly)
|
||||
|
||||
'Create new Face
|
||||
Dim f As New Face
|
||||
' 'Create new Face
|
||||
' Dim f As New Face
|
||||
|
||||
'Set Texture, if avaiable
|
||||
If veMaterials IsNot Nothing Then
|
||||
f.Material = dicMaterials(node.Materials(veMaterials.Indices(iPoly)))
|
||||
ElseIf node.Material IsNot Nothing Then
|
||||
f.Material = dicMaterials(node.Material)
|
||||
End If
|
||||
' 'Set Texture, if avaiable
|
||||
' If veMaterials IsNot Nothing Then
|
||||
' f.Material = dicMaterials(node.Materials(veMaterials.Indices(iPoly)))
|
||||
' ElseIf node.Material IsNot Nothing Then
|
||||
' f.Material = dicMaterials(node.Material)
|
||||
' End If
|
||||
|
||||
For Each index As Integer In poly
|
||||
'Create new Point
|
||||
'Set Vertex
|
||||
Dim p As New Point With {
|
||||
.Vertex = newMesh.Vertices(index)
|
||||
}
|
||||
' For Each index As Integer In poly
|
||||
' 'Create new Point
|
||||
' 'Set Vertex
|
||||
' Dim p As New Point With {
|
||||
' .Vertex = newMesh.Vertices(index)
|
||||
' }
|
||||
|
||||
'Set Normal
|
||||
If veNormals IsNot Nothing Then
|
||||
p.Normal = newMesh.Normals(veNormals.Indices(veIndex))
|
||||
End If
|
||||
' 'Set Normal
|
||||
' If veNormals IsNot Nothing Then
|
||||
' p.Normal = newMesh.Normals(veNormals.Indices(veIndex))
|
||||
' End If
|
||||
|
||||
'Set UV
|
||||
If veUVs IsNot Nothing Then
|
||||
p.UV = newMesh.UVs(veUVs.Indices(veIndex))
|
||||
End If
|
||||
' 'Set UV
|
||||
' If veUVs IsNot Nothing Then
|
||||
' p.UV = newMesh.UVs(veUVs.Indices(veIndex))
|
||||
' End If
|
||||
|
||||
'Set Vertex Color
|
||||
If veVertexColor IsNot Nothing Then
|
||||
p.VertexColor = newMesh.VertexColors(veVertexColor.Indices(veIndex))
|
||||
End If
|
||||
' 'Set Vertex Color
|
||||
' If veVertexColor IsNot Nothing Then
|
||||
' p.VertexColor = newMesh.VertexColors(veVertexColor.Indices(veIndex))
|
||||
' End If
|
||||
|
||||
'Add new Point
|
||||
f.Points.Add(p)
|
||||
' 'Add new Point
|
||||
' f.Points.Add(p)
|
||||
|
||||
'Increment VertexElementIndicies-Index
|
||||
veIndex += 1
|
||||
Next
|
||||
' 'Increment VertexElementIndicies-Index
|
||||
' veIndex += 1
|
||||
' Next
|
||||
|
||||
'Add new Face
|
||||
newMesh.Faces.Add(f)
|
||||
Next
|
||||
' 'Add new Face
|
||||
' newMesh.Faces.Add(f)
|
||||
' Next
|
||||
|
||||
'Add new Mesh
|
||||
obj3d.Meshes.Add(newMesh)
|
||||
' 'Add new Mesh
|
||||
' obj3d.Meshes.Add(newMesh)
|
||||
|
||||
End If
|
||||
' End If
|
||||
|
||||
Next
|
||||
' Next
|
||||
|
||||
'Return the new Object3D
|
||||
Return obj3d
|
||||
End Function
|
||||
' 'Return the new Object3D
|
||||
' Return obj3d
|
||||
' End Function
|
||||
|
||||
End Class
|
||||
' End Class
|
||||
|
||||
End Namespace
|
||||
'End Namespace
|
||||
|
||||
@@ -87,25 +87,25 @@ Public Class File3DLoaderModule
|
||||
AddressOf LoadViaAssimp,
|
||||
exts))
|
||||
|
||||
list.Add(New File3DLoaderModule("Aspose.3D",
|
||||
AddressOf LoadViaAspose3D,
|
||||
New Dictionary(Of String, String) From {
|
||||
{"obj", "OBJ"},
|
||||
{"dae", "DAE"},
|
||||
{"fbx", "FBX"},
|
||||
{"stl", "STL"},
|
||||
{"3ds", "3DS"},
|
||||
{"3d", "3D"},
|
||||
{"gltf", "glTF"},
|
||||
{"drc", "DRC"},
|
||||
{"rvm", "RVM"},
|
||||
{"pdf", "PDF"},
|
||||
{"x", "X"},
|
||||
{"jt", "JT"},
|
||||
{"dfx", "DFX"},
|
||||
{"ply", "PLY"},
|
||||
{"3mf", "3MF"},
|
||||
{"ase", "ASE"}}))
|
||||
'list.Add(New File3DLoaderModule("Aspose.3D",
|
||||
' AddressOf LoadViaAspose3D,
|
||||
' New Dictionary(Of String, String) From {
|
||||
' {"obj", "OBJ"},
|
||||
' {"dae", "DAE"},
|
||||
' {"fbx", "FBX"},
|
||||
' {"stl", "STL"},
|
||||
' {"3ds", "3DS"},
|
||||
' {"3d", "3D"},
|
||||
' {"gltf", "glTF"},
|
||||
' {"drc", "DRC"},
|
||||
' {"rvm", "RVM"},
|
||||
' {"pdf", "PDF"},
|
||||
' {"x", "X"},
|
||||
' {"jt", "JT"},
|
||||
' {"dfx", "DFX"},
|
||||
' {"ply", "PLY"},
|
||||
' {"3mf", "3MF"},
|
||||
' {"ase", "ASE"}}))
|
||||
|
||||
Return list.ToArray
|
||||
End Function
|
||||
@@ -139,9 +139,9 @@ Public Class File3DLoaderModule
|
||||
Return AssimpModule.AssimpLoader.FromFile(fileName, options.LoadMaterials, options.UpAxis)
|
||||
End Function
|
||||
|
||||
Private Shared Function LoadViaAspose3D(fileName As String, options As LoaderOptions) As Object3D
|
||||
Return Aspose3DModule.Aspose3DLoader.FromFile(fileName, options.LoadMaterials, options.UpAxis)
|
||||
End Function
|
||||
'Private Shared Function LoadViaAspose3D(fileName As String, options As LoaderOptions) As Object3D
|
||||
' Return Aspose3DModule.Aspose3DLoader.FromFile(fileName, options.LoadMaterials, options.UpAxis)
|
||||
'End Function
|
||||
|
||||
Private Shared Sub ExportViaSimpleFileParser(o As Object3D, fileName As String)
|
||||
ObjModule.ObjFile.ToFile(fileName, o)
|
||||
|
||||
@@ -27,7 +27,7 @@
|
||||
<OptionInfer>On</OptionInfer>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<Version>2.0.1</Version>
|
||||
<Version>2.0.3</Version>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<PackageReference Include="System.Drawing.Common" Version="9.0.9" />
|
||||
|
||||
Reference in New Issue
Block a user