Hi All,
I have an issue with exporting DXFs
I have created a routine for exporting DXF files to a specific location from an Inventor DWG file, with a lot of help from this forum. Thank you!!
I have an issue with scaling of the final DXF.
If I was to save a DXF in a conventional manner: SAVE>SAVE COPY AS>etc. the DXF file comes out at the correct scale, i.e. the size of the item is as the dimensions states.
However, when I use the routine the DXF file comes out 25.4 times too small (metric to imperial), though any dimension will still show the correct value.
I have literally tried EVERY option within the Save As DXF options dialogue and saved many exportdxf.ini files to suit each option. I know the routine looks at the correct .ini file as I've seen the various DXF layouts change when a different .ini file is chosen. I have even tried using an AutoCAD template which I know uses mm instead of inches as a base unit, to no avail.
We send the DXFs to profilers to cut out plates for fabrications and, though the profilers should check the DXFs anyway, it may become an issue at some point. I'm interested to know why the scaling may be an issue.
Does anyone have any idea where the problem may lie???
Any help is greatly appreciated.
THis is the code I use. It is used in collaboration with other routines to create PDFs, etc.
Sub Main
'Make sure the active document is a drawing document.
If ThisDoc.Document.DocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then
MsgBox("This Rule, '" & iLogicVb.RuleName & "' only works on Drawing Documents. Exiting.", vbCritical, "WRONG DOCUMENT TYPE")
Return
End If
Dim oDDoc As DrawingDocument = ThisDoc.Document
Dim oSaveFolder = SharedVariable("oDXF_Folder")
'Dim oDesiredFolder As String = oSaveFolder
If Not System.IO.Directory.Exists(oSaveFolder) Then
System.IO.Directory.CreateDirectory(oSaveFolder)
End If
'---------------------------------------------------------------------------
Dim sPath As String = oSaveFolder
'MessageBox.Show("File Path = " & sPath, "File Path")
Dim oSheets As Inventor.Sheets = oDDoc.Sheets
For Each oSheet As Inventor.Sheet In oSheets
oSheet.Activate
Dim oView As DrawingView = Nothing
Try : oView = oSheet.DrawingViews.Item(1) : Catch : End Try
If oView Is Nothing Then Continue For
Dim oModelDoc As Inventor.Document = oView.ReferencedDocumentDescriptor.ReferencedDocument
'Use the name of the SHEET as the file name
Dim oFName As String = IO.Path.GetFileNameWithoutExtension(ActiveSheet.Sheet.Name)
'MessageBox.Show("File Name = " & oFName, "Filename")
Dim sDXF_FullFuleName As String = sPath & "\" & oFName & ".dxf" 'Create filename for DXF files
Logger.Info("Proposed DXF FullFileName = " & sPath)
'Create the temporary drawing file, copy the sheet, then delete all sheets in new drawing.
Dim oTempDDoc As DrawingDocument = ThisApplication.Documents.Add(DocumentTypeEnum.kDrawingDocumentObject, , False)
Dim oTempSheet As Sheet = oSheet.CopyTo(oTempDDoc)
For Each oTSheet As Inventor.Sheet In oTempDDoc.Sheets
If oTSheet IsNot oTempSheet Then oTSheet.Delete
Next 'oTSheet
'call the custom Sub to run, to export the DXF
ExportDrawingToDXF(oTempDDoc, sDXF_FullFuleName)
oTempDDoc.Close(True)
Next
End Sub
Sub ExportDrawingToDXF(oDrawingDoc, sDXFFullFileName)
'Get the DXF Translator AddIn
Dim oDXF_AddIn As TranslatorAddIn = Nothing
For Each oAddIn As ApplicationAddIn In ThisApplication.ApplicationAddIns
If oAddIn.DisplayName = "Translator: DXF" Then oDXF_AddIn = oAddIn
Next
If oDXF_AddIn Is Nothing Then Exit Sub
Dim oTO As TransientObjects = ThisApplication.TransientObjects
Dim oContext As TranslationContext = oTO.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
Dim oOptions As NameValueMap = oTO.CreateNameValueMap
Dim oDataMedium As DataMedium = oTO.CreateDataMedium
oDataMedium.FileName = sDXFFullFileName '<<< assign the file name here >>>
If oDXF_AddIn.HasSaveCopyAsOptions(oDrawingDoc, oContext, oOptions) Then
'If your export DXF settings are saved somewhere else or named differently, you will have to change this next line.
'oOptions.Value("Export_Acad_IniFile") = "L:\Templates\2022\Design Data\DWG-DXF\exportdxf.ini"
oOptions.Value("Export_Acad_IniFile") = "L:\Templates\2022\Design Data\DWG-DXF\DXF Export.ini"
End If
'Publish DXF
Try
oDXF_AddIn.SaveCopyAs(oDrawingDoc, oContext, oOptions, oDataMedium)
Logger.Info("Just exported the following DXF file:" & vbCrLf & sDXFFullFileName)
Catch
Logger.Error("Error exporting the following DXF file:" & vbCrLf & sDXFFullFileName)
End Try
End Sub
