Permalink
Browse files

Project uploaded to GitHub

  • Loading branch information...
3dfernando committed Nov 29, 2016
0 parents commit 607f54fa13916c5bc2d18ecb3929c9a9f1639db1
Showing 578 changed files with 79,103 additions and 0 deletions.
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -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.*")>
@@ -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

Some generated files are not rendered by default. Learn more.

Oops, something went wrong.
Oops, something went wrong.

0 comments on commit 607f54f

Please sign in to comment.