Community
Hi @dleesuk. I can think of two alternative processes right now. The first one would be on the back end of the existing process, and you could simply use some additional code to rename DXF file itself after you have exported it. The other process would be to copy each sheet to another temporary drawing document, and make sure there are no other sheets in that temporary drawing, then export that drawing to DXF with the naming the way you want it (the drawing file would be named as the part, and the sheet would be named DXF). That process obviously would require a lot more complication and processing, but seems doable.
Wesley Crihfield
(Not an Autodesk Employee)
I @WCrihfield,
Thank you for your reply, but I need this as a workstream for others to use so this method would be inappropriate.
Hi @romu51,
Thank you for your reply. This seems to be VERY close to what I require, but I do not want the FileName of the dwg file included in the save name of the DXF files.
I have a routine below which renames the 'sheets' to that of the part on each sheet plus the item number (custom property).
oDoc = ThisDoc.Document
'Find all selected occurences and add them to an ObjectCollection
Dim oDrawingDims As DrawingDimension
oSheets = oDoc.Sheets
Try
For Each oSheet In oSheets
oSheet.activate
oView = oSheet.DrawingViews.Item(1)
'Loop through all the dimensions
For Each oDrawingDims In oDoc.ActiveSheet.DrawingDimensions
'set to reference dims
oDrawingDims.Tolerance.SetToReference
Next
modelName = oView.ReferencedDocumentDescriptor.ReferencedDocument
oPropPartNo = modelName.PropertySets.Item("Design Tracking Properties")
oPropItemNo = modelName.PropertySets.Item("Inventor User Defined Properties")
ActiveSheet.Sheet.Name = oPropPartNo.Item("Part Number").Value + " (Item " + oPropItemNo.Item("ItemNo").Value + ")"
Next
Catch
MessageBox.Show("One or more of the sheets has no part view associated with it.", "No Views!!")
End Try
oSheets(1).activateThis, using our naming convention, renames the sheets similar to: 'OPPN-72-275_ai (Item 7)'
The names are different for each sheet/part for however many sheets/parts are within the DWG file.
Upon saving the DXFs out, I'd really like the filename to be: 'OPPN-72-275_ai (Item 7)_DXF.dxf', disregarding the actual filename of the DWG file.
I've tried amalgamating the two routines, but continually get error messages. Again, my understanding of iLogic is limited (the above routine was created over MANY weeks of research and trial & error. 😁).
Thanks in advance
Hi @dleesuk. I have this a shot for you. The main thing I did here is separate the export process out to a custom Sub routine, while trying to enhance the main code a bit. I saw something odd in there where you were trying to get a file name without extension from a sheet name, which seemed a bit odd to me, so I figured a way to work around that sheet/view model name part of the routine. I get the first view on the active sheet, then get the model document of that view, then get its file name, without path or extension. Then I combine the path of the main drawing with that model file name, and the "_DXF.dxf" bit at the end, to get the full file name of the DXF file we want to create. Then I do the new temp drawing, copy sheet, delete other sheets bit. Then I call the custom Sub routine to run. Then close the temp drawing, just before it loops to the next sheet. However, I'm guessing that you may be able to create the temporary drawing document before the loop of the sheets, just one time, then keep reusing it. Then inside the loop, copy the active sheet to it, and delete all others, just like you are doing now. Then close it after the loop of sheets is done. Just a thought.
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 sPath As String = IO.Path.GetDirectoryName(oDDoc.FullFileName)
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
Dim sModelFileName As String = System.IO.Path.GetFileNameWithoutExtension(oModelDoc.FullFileName)
Dim sDXF_FullFuleName As String = sPath & "\" & sModelFileName & "_DXF.dxf"
Logger.Info("Proposed DXF FullFileName = " & sDXF_FullFuleName)
'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 'oSheet
'possible message letting user know the process is done
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
'Check to see if the DXF already exists, if it does, ask if you want to over write existing file or not.
If System.IO.File.Exists(sDXFFullFileName) = True Then
Dim oAns As MsgBoxResult = MsgBox("A DXF file with the following name already exists:" & vbCrLf & _
sDXFFullFileName & vbCrLf & "Do you want to over write it with this new one?", _
vbYesNo + vbQuestion + vbDefaultButton2, "DXF ALREADY EXISTS")
If oAns = vbNo Then Return
End If
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") = "C:\Users\Darren Lees\Desktop\DXF TEST\DXG-DXF\2010 DXF File.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 SubIf this solved your problem, or answered your question, please click ACCEPT SOLUTION .
Or, if this helped you, please click (LIKE or KUDOS) 👍.
Wesley Crihfield
(Not an Autodesk Employee)
Forums Links
Can't find what you're looking for? Ask the community or share your knowledge.
Post to forums
