Export EACH .ipt referenced in .idw as a STEP
I think I have something that may work for you. I use a separate sub routing for the actual export process, to keep the main code cleaner. I also use a separate Function routine to return only the Parts being referenced by the drawing in an ObjectCollection to the main sub routine, so we can then loop through them. It then gets the full file name of the part, but without the file extension. Then gets the revision data from the part's iProperties (if any), then puts the two together with the ".stp" file extension to specify the intended file name of the STEP file that is to be created. Then we pass the Part and this new name to the sub routine for exporting the STEP file. Then just a simple finishing message.
See if this does the task as you want it to. You may want to change or adjust the options I'm using within the STEP translator sub routing first though.
Sub Main
If ThisApplication.ActiveDocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then
MsgBox("A Drawing Document must be active for this rule to work. Exiting.", vbCritical, "iLogic")
Exit Sub
End If
Dim oDDoc As DrawingDocument = ThisApplication.ActiveDocument
oRefParts = GetAllDrawingParts(oDDoc)
If oRefParts.Count = 0 Then
MsgBox("No referenced Parts found in drawing. Exiting rule.", vbInformation, "iLogic")
Exit Sub
End If
For Each oObj In oRefParts
Dim oRefPart As PartDocument = CType(oObj, PartDocument)
'specify file name for new STEP file
'first get path & file name, without file extension
oName = System.IO.Path.ChangeExtension(oRefPart.FullFileName, "")
'now get Rev from Part iProperties to use in name
Dim oRev As String = oRefPart.PropertySets.Item(1).Item("Revision Number").Value
If String.IsNullOrEmpty(oRev) Then oRev = ""
'now put them together
oSTEPFile = oName & oRev & ".stp"
'now run our sub routine defined below
ExportToSTEP(oRefPart, oSTEPFile)
Next
MsgBox("All Parts have been exported to STEP files.", vbInformation, "iLogic")
End Sub
Function GetAllDrawingParts(oDrawing As DrawingDocument) As ObjectCollection
Dim oDocColl As ObjectCollection = ThisApplication.TransientObjects.CreateObjectCollection
If oDrawing.AllReferencedDocuments.Count = 0 Then Return oDocColl
For Each oRefDoc As Document In oDrawing.AllReferencedDocuments
If oRefDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then
oDocColl.Add(oRefDoc)
End If
Next
Return oDocColl
End Function
Sub ExportToSTEP(oDoc As Document, oNewFileName As String)
Dim oSTEP As TranslatorAddIn
For Each oAddIn As ApplicationAddIn In ThisApplication.ApplicationAddIns
If oAddIn.DisplayName = "Translator: STEP" Then
oSTEP = oAddIn
End If
Next
If IsNothing(oSTEP) Then
MsgBox("STEP Translator Add-in not found. Exiting.", vbCritical, "iLogic")
Exit Sub
End If
'create needed variables for translator
oTO = ThisApplication.TransientObjects
oContext = oTO.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
oOptions = oTO.CreateNameValueMap
oDataMedium = oTO.CreateDataMedium
If System.IO.File.Exists(oNewFileName) Then
oAns = MsgBox("A STEP file with this name already exists." & vbCrLf &
"Do you want to overwrite it with this new one?",vbYesNo + vbQuestion + vbDefaultButton2, "STEP FILE EXISTS")
If oAnswer = vbNo Then Exit Sub
End If
oDataMedium.FileName = oNewFileName
If oSTEP.HasSaveCopyAsOptions(oDoc, oContext, oOptions) Then
' Set application protocol.
' 2 = AP 203 - Configuration Controlled Design
' 3 = AP 214 - Automotive Design
oOptions.Value("ApplicationProtocolType") = 3
oOptions.Value("IncludeSketches") = True
oOptions.Value("export_fit_tolerance") = .000393701 'minimum
oOptions.Value("Author") = ThisApplication.GeneralOptions.UserName
'oOptions.Value("Authorization") = ""
'oOptions.Value("Description") = oDoc.PropertySets.Item(3).Item("Description").Value
'oOptions.Value("Organization") = oDoc.PropertySets.Item(2).Item("Company").Value
Try
oSTEP.SaveCopyAs(oDoc, oContext, oOptions, oDataMedium)
Catch
MsgBox("Your attempt to export this document as a STEP file FAILED!", vbOKOnly + vbExclamation, "Export to STEP Error")
End Try
End If
End Sub
If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click (LIKE or KUDOS) 👍.
If you want and have time, I would appreciate your Vote(s) for My IDEAS 💡 or you can Explore My CONTRIBUTIONS
Wesley Crihfield
(Not an Autodesk Employee)
About the extra dot (.) in the file names...It seems like I have used that nearly identical line of code many times before without problems, but I just did another simple test of a line like that and found that it is leaving that dot at the end of the String now. Apparently when you leave the replacement string empty, it is leaving the dot, but when you specify something line ".stp" it does not add the extra dot in there. I may have been directly replacing one extension with another, instead of leaving it blank in my regularly used codes. It's no big deal, because there are lots of ways of manipulating strings the way we want. You could use "stp" instead of ".stp" when putting the file names together. Or you could replace that little block of code with this code to fix that problem.
'get path of oRefPart (does not include directory seperator character at end)
oRefPath = System.IO.Path.GetDirectoryName(oRefPart.FullFileName)
'get local directory seperator character
oDirChr = System.IO.Path.DirectorySeparatorChar
'get file name (without path or file extension)
oName = System.IO.Path.GetFileNameWithoutExtension(oRefPart.FullFileName)
If oRevNum = "-" Then
oSTEPFile = oRefPath & oDirChr & oName & ".stp"
Else
oSTEPFile = oRefPath & oDirChr & oName & oRevNum & ".stp"
End If
As for the oFolder variable and your STEP files not being saved into that folder...I can see why that is not happening. You are creating that variable and may be getting the right data, but then you are not putting that path data into the full file name of the STEP file that is to be created. In this case, we have the whole code set up to specify complete file name of STEP file outside of the Export sub routine, then passing that name to the Export sub routine. The specified name has already been assigned to the DataMedium.FileName, before you create and set the value of your oFolder variable, then it never gets put into the file path. To fix this, you could either move the whole naming convention part of the code either entirely outside of the Export sub routine, or move it all into the export sub routine instead. If you move it all into the sub routine, you will want to get rid of the extra input variable in the definition line of the sub routine, because it will no longer be needed. Then I guess the new code I just posted above may need to change further to incorporate the different path data, instead of the model's path.
I also noticed that your code is using several different document reference phrases (ThisDrawing.ModelDocument ; ThisApplication.ActiveDocument ; ThisDoc.Path), which I usually strongly suggest that folks avoid, because they can sometimes be representing different documents, especially when dealing with drawings and assemblies (Link). I generally choose the one most appropriate to the situation, then stick with it, or just use it once, then use the variable I stored it to throughout the rest of the code, to avoid potential problems. But if your code is working OK for you, that's all that really matters for now.
Wesley Crihfield
(Not an Autodesk Employee)
Hi @iogurt1. I do believe this is possible. First of all, if you may possibly have more than one 'model' document, then we must do away with using the iLogic only snippet 'ThisDrawing.ModelDocument', because that will always only return the document that is being referenced by the first drawing view that was placed in the drawing document. That may be the assembly, because we have not yet sorted through the referenced documents. Also, when there may be multiple parts being shown within the same drawing, then how do you decide which model document to copy the 'Revision Number' iProperty value to the drawing from? I changed the 'GetAllDrawingParts' function to use 'oDrawing.ReferencedDocuments' instead of 'oDrawing.AllReferencedDocuments', to eliminate potentially getting all the documents within all levels of the assembly. I also changed it to return a 'List(Of PartDocument)' object, because that is way more convenient, efficient, and to the point. I also chose to copy the Revision Number value from the first part document, for now, since that detail is still up in the air. I didn't bother messing with the Sub for export.
This is how I would edit the code, but that's just my opinion/style:
Sub Main
oDDoc = ThisDrawing.Document
oPath = System.IO.Path.GetDirectoryName(oDDoc.FullFileName)
oFolder = Left(oPath, InStrRev(oPath, "\")) & "7 STEP Dateien"
If Not System.IO.Directory.Exists(oFolder) Then
System.IO.Directory.CreateDirectory(oFolder)
End If
Dim oRefParts As List(Of PartDocument) = GetAllDrawingParts(oDDoc)
If oRefParts.Count = 0 Then
MsgBox("No parts found referenced by this drawing. Exiting rule.", vbCritical, "")
Exit Sub
Else
'copy 'Revision Number' iProperty value from 1st Part type 'model' document to this drawing
Dim oRevNum As String = oRefParts.Item(1).PropertySets.Item("Inventor Summary Information").Item("Revision Number").Value
oDDoc.PropertySets.Item("Inventor Summary Information").Item("Revision Number").Value = oRevNum
For Each oPDoc In oRefParts
oName = System.IO.Path.GetFileNameWithoutExtension(oPDoc.FullFileName)
Dim oSTEPFile As String = ""
If oRevNum = "-" Then
oSTEPFile = oFolder & "\" & oName & ".stp"
Else
oSTEPFile = oFolder & "\" & oName & oRevNum & ".stp"
End If
ExportToSTEP(oRefPart, oSTEPFile)
Next
End If
End Sub
Function GetAllDrawingParts(oDrawing As DrawingDocument) As List(Of PartDocument)
Dim oPartDocs As New List(Of PartDocument)
If oDrawing.ReferencedDocuments.Count = 0 Then Return oPartDocs
oPartDocs.AddRange(oDrawing.ReferencedDocuments.OfType(Of Inventor.Document).Where(Function(x) x.DocumentType = DocumentTypeEnum.kPartDocumentObject).Cast(Of PartDocument))
Return oPartDocs
End Function
Sub ExportToSTEP(oDoc As Document, oNewFileName As String)
End Sub
Wesley Crihfield
(Not an Autodesk Employee)
