Project uploaded to GitHub

.gitattributes

@@ -0,0 +1,17 @@
+# Auto detect text files and perform LF normalization
+* text=auto
+
+# Custom for Visual Studio
+*.cs     diff=csharp
+
+# Standard to msysgit
+*.doc	 diff=astextplain
+*.DOC	 diff=astextplain
+*.docx diff=astextplain
+*.DOCX diff=astextplain
+*.dot  diff=astextplain
+*.DOT  diff=astextplain
+*.pdf  diff=astextplain
+*.PDF	 diff=astextplain
+*.rtf	 diff=astextplain
+*.RTF	 diff=astextplain

.gitignore

@@ -0,0 +1,47 @@
+# Windows image file caches
+Thumbs.db
+ehthumbs.db
+
+# Folder config file
+Desktop.ini
+
+# Recycle Bin used on file shares
+$RECYCLE.BIN/
+
+# Windows Installer files
+*.cab
+*.msi
+*.msm
+*.msp
+
+# Windows shortcuts
+*.lnk
+
+# =========================
+# Operating System Files
+# =========================
+
+# OSX
+# =========================
+
+.DS_Store
+.AppleDouble
+.LSOverride
+
+# Thumbnails
+._*
+
+# Files that might appear in the root of a volume
+.DocumentRevisions-V100
+.fseventsd
+.Spotlight-V100
+.TemporaryItems
+.Trashes
+.VolumeIcon.icns
+
+# Directories potentially created on remote AFP share
+.AppleDB
+.AppleDesktop
+Network Trash Folder
+Temporary Items
+.apdisk

00 - Instalar/00 - Register D.cmd

@@ -0,0 +1,6 @@
+cd /d %~dp0
+copy "PDFemMassa.dll" "D:\Program Files\Autodesk\Inventor 2014\bin\PDFemMassa.dll" /y 
+copy "WinControls.ListView.dll" "D:\Program Files\Autodesk\Inventor 2014\bin\WinControls.ListView.dll" /y 
+D:\Windows\Microsoft.NET\Framework64\v4.0.30319\RegAsm.exe /codebase "D:\Program Files\Autodesk\Inventor 2014\bin\PDFemMassa.dll"
+
+call cmd

00 - Instalar/00 - Register.cmd

@@ -0,0 +1,6 @@
+cd /d %~dp0
+copy "PDFemMassa.dll" "C:\Program Files\Autodesk\Inventor 2014\bin\PDFemMassa.dll" /y 
+copy "WinControls.ListView.dll" "C:\Program Files\Autodesk\Inventor 2014\bin\WinControls.ListView.dll" /y 
+C:\Windows\Microsoft.NET\Framework64\v4.0.30319\RegAsm.exe /codebase "C:\Program Files\Autodesk\Inventor 2014\bin\PDFemMassa.dll"
+
+call cmd

00 - Instalar/00 - Unregister.cmd

@@ -0,0 +1,4 @@
+cd /d %~dp0
+C:\Windows\Microsoft.NET\Framework64\v4.0.30319\RegAsm.exe /u "C:\Program Files\Autodesk\Inventor 2014\bin\PDFemMassa.dll"
+del /f "C:\Program Files\Autodesk\Inventor 2014\bin\PDFemMassa.dll"
+call cmd

Fonte/OldVersions/PDFemMassa V0.0/AssemblyInfo.vb

@@ -0,0 +1,31 @@
+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("PDFemMassa")> 
+<Assembly: AssemblyDescription("PDFemMassa")> 
+<Assembly: AssemblyCompany("")> 
+<Assembly: AssemblyProduct("")> 
+<Assembly: AssemblyCopyright("")> 
+<Assembly: AssemblyTrademark("")> 
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+<Assembly: Guid("6cc1a2ab-da0f-433b-a434-c9e203a74d20")> 
+
+' 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.*")> 

Fonte/OldVersions/PDFemMassa V0.0/Funcoes.vb

@@ -0,0 +1,88 @@
+
+Module Funcoes
+
+#Region "DLLs da API do Windows"
+
+#End Region
+
+#Region "Variáveis e Objetos"
+
+    Public ListaArquivos() As ConfigArquivo
+
+    Public Structure ConfigArquivo
+        Dim CaminhoCompleto As String
+        Dim NomeArquivo As String
+        Dim FormatoPredefinido As Boolean
+        Dim FormatoPos As Long
+        Dim FormatoLargura As String
+        Dim FormatoAltura As String
+        Dim FormatoUnidades As String
+        Dim PosicaoPredefinida As Boolean
+        Dim Posicao As String
+        Dim Checked As Boolean
+        Dim TipoArquivo As String
+    End Structure
+
+#End Region
+
+#Region "Funções Personalizadas"
+    Public Function NomeDoArquivo(ByVal Caminho As String) As String
+        Dim I As Long
+        For I = Caminho.Length To 1 Step -1
+            If Mid(Caminho, I, 1) = "\" Then
+                NomeDoArquivo = Mid(Caminho, I + 1, Caminho.Length - I + 1)
+                Exit Function
+            End If
+        Next
+        NomeDoArquivo = ""
+    End Function
+
+    Public Function TipoDoArquivo(ByVal Caminho As String) As String
+        Dim I As Long
+        For I = Caminho.Length To 1 Step -1
+            If Mid(Caminho, I, 1) = "." Then
+                TipoDoArquivo = Mid(Caminho, I + 1, Caminho.Length - I + 1)
+                Exit Function
+            End If
+        Next
+        TipoDoArquivo = ""
+    End Function
+
+
+    Public Function CaminhoArquivo(ByVal Caminho As String) As String
+        Dim I As Long
+        For I = Caminho.Length To 1 Step -1
+            If Mid(Caminho, I, 1) = "\" Then
+                CaminhoArquivo = Mid(Caminho, 1, I)
+                Exit Function
+            End If
+        Next
+        CaminhoArquivo = ""
+    End Function
+
+    Public Function TabelaResolucoesPDF(ByVal Resolucao As Integer) As Integer
+        Select Case Resolucao
+            Case 0
+                TabelaResolucoesPDF = 150
+            Case 1
+                TabelaResolucoesPDF = 200
+            Case 2
+                TabelaResolucoesPDF = 300
+            Case 3
+                TabelaResolucoesPDF = 400
+            Case 4
+                TabelaResolucoesPDF = 600
+            Case 5
+                TabelaResolucoesPDF = 720
+            Case 6
+                TabelaResolucoesPDF = 1200
+            Case 7
+                TabelaResolucoesPDF = 2400
+            Case 8
+                TabelaResolucoesPDF = 4800
+        End Select
+    End Function
+
+#End Region
+
+End Module