Community
Reposting your code in a readable format:
'Show message box and get user input - bolean yes/no
question = MessageBox.Show("Would you like to Check the Drawing In?", "iLogic Question",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
'set condition based on answer
If question = vbYes Then
'define and execute Vault Check in active document command synchronously (this method waits for user to complete command)
Dim oDef As ControlDefinition
oDef = ThisApplication.CommandManager.ControlDefinitions.Item("VaultCheckInTop")
Call odef.execute2 (True)
'get the drawing filepath
Dim Dfilepath As String
Dfilepath = ThisDoc.Path
'MessageBox.Show(Dfilepath, "Debug")
'Define the open document
Dim openDoc As Document
openDoc = ThisDoc.Document
'Make sure there is model file referenced in the open document
Dim docFile As Document
If ThisDoc.ModelDocument IsNot Nothing Then
docFile = ThisDoc.ModelDocument
Else
MessageBox.Show("This drawing has no model reference", "iLogic")
Return
End If
'format model file name
Dim FNamePos As Long
FNamePos = InStrRev(docFile.FullFileName, "\", -1)
Dim docFName As String
docFName = Right(docFile.FullFileName, Len(docFile.FullFileName) - FNamePos)
'MessageBox.Show(docFName, "Debug")
'get the current drawing rev level and assign it to Rev
Dim Rev As String
Rev = "Rev" + iProperties.Value("Project", "Revision Number")
'MessageBox.Show(Rev, "Debug")
'strip C:\VaultWorkingFolder and insert V:\ the append Rev to create step file name and path
Dim NFName As String
Dim FNameLong = Len(Dfilepath)-22
Dim docFNameLong = Len(docFName)-4
docFName = Left(docFName,docFNameLong)
NFName = "V:\" + Right(Dfilepath,FNameLong)+"\" + docFName + " " + Rev
'MessageBox.Show(NFName, "Debug")
'get model name and path and launch document
modelFullFileName = ThisDrawing.ModelDocument.FullFileName
modelDirectoryName = IO.Path.GetDirectoryName(modelFullFileName)
modelFileName = IO.Path.GetFileName(modelFullFileName)
'MessageBox.Show(modelFullFileName, "modelFullFileName")
'MessageBox.Show(modelDirectoryName, "modelDirectoryName")
'MessageBox.Show(modelFileName, "modelFileName")
ThisDoc.Launch(modelFullFileName)
'define active document (.ipt file)
Dim oPartDoc As PartDocument
oPartDoc = ThisApplication.ActiveDocument
'define and execute "convert to sheet metal" command
oDef = ThisApplication.CommandManager.ControlDefinitions.Item("PartConvertToSheetMetalCmd")
oDef.Execute
'check to see if flat pattern exists
Dim oCompDef As SheetMetalComponentDefinition
oCompDef = oPartDoc.ComponentDefinition
'if flat pattern exists then....
If oCompDef.HasFlatPattern = False Then
'check for preliminary rev status and alert user that step files are not exported for rev ? or *
If Rev = "Rev?" Then
MessageBox.Show(".stp Files Are Not Created For Prelimary Drawings", "iLogic")
'define and execute close .ipt
oDef = ThisApplication.CommandManager.ControlDefinitions.Item("AppFileCloseCmd")
odef.execute
ElseIf Rev = "Rev*" Then
MessageBox.Show(".stp Files Are Not Created For Drawings With Pending ECR's", "iLogic")
'define and execute close .ipt
oDef = ThisApplication.CommandManager.ControlDefinitions.Item("AppFileCloseCmd")
odef.execute
Else
' dispalay new .stp filepath and name
MessageBox.Show("File Name & Path " +NFName, "iLogic")
' Get the STEP translator Add-In. and create STEP file
Dim oSTEPTranslator As TranslatorAddIn
oSTEPTranslator = ThisApplication.ApplicationAddIns.ItemById("{90AF7F40-0C01-11D5-8E83-0010B541CD80}")
Dim oContext As TranslationContext
oContext = ThisApplication.TransientObjects.CreateTranslationContext
Dim oOptions As NameValueMap
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
If oSTEPTranslator.HasSaveCopyAsOptions(ThisApplication.ActiveDocument, oContext, oOptions) Then
' Set application protocol.
' 2 = AP 203 - Configuration Controlled Design
' 3 = AP 214 - Automotive Design
oOptions.Value("ApplicationProtocolType") = 3
' Other options...
'oOptions.Value("Author") = ""
'oOptions.Value("Authorization") = ""
'oOptions.Value("Description") = ""
'oOptions.Value("Organization") = ""
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
Dim oData As DataMedium
oData = ThisApplication.TransientObjects.CreateDataMedium
oData.FileName = NFName & ".stp"
oSTEPTranslator.SaveCopyAs(ThisApplication.ActiveDocument, oContext, oOptions, oData)
'define and execute close .ipt file
oDef = ThisApplication.CommandManager.ControlDefinitions.Item("AppFileCloseCmd")
odef.execute
'Open new STEP File
ThisDoc.Launch(NFName & ".stp")
End If
End If
Else
'check for preliminary rev status and alert user that step files are not exported for rev ? or *
If Rev = "Rev?" Then
MessageBox.Show(".stp Files Are Not Created For Prelimary Drawings", "iLogic")
'define and execute close .ipt
oDef = ThisApplication.CommandManager.ControlDefinitions.Item("AppFileCloseCmd")
odef.execute
ElseIf Rev = "Rev*" Then
MessageBox.Show(".stp Files Are Not Created For Drawings With Pending ECR's", "iLogic")
'define and execute close .ipt
oDef = ThisApplication.CommandManager.ControlDefinitions.Item("AppFileCloseCmd")
odef.execute
Else
'define and execute Unfold command synchronously (this method waits for user to complete command)
oDef = ThisApplication.CommandManager.ControlDefinitions.Item("SheetMetalUnfoldCmd")
Call odef.execute2 (True)
'dispalay new .stp filepath and name
MessageBox.Show("File Name & Path " +NFName, "iLogic")
' Get the STEP translator Add-In. and create STEP file
Dim oSTEPTranslator As TranslatorAddIn
oSTEPTranslator = ThisApplication.ApplicationAddIns.ItemById("{90AF7F40-0C01-11D5-8E83-0010B541CD80}")
Dim oContext As TranslationContext
oContext = ThisApplication.TransientObjects.CreateTranslationContext
Dim oOptions As NameValueMap
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
If oSTEPTranslator.HasSaveCopyAsOptions(ThisApplication.ActiveDocument, oContext, oOptions) Then
' Set application protocol.
' 2 = AP 203 - Configuration Controlled Design
' 3 = AP 214 - Automotive Design
oOptions.Value("ApplicationProtocolType") = 3
' Other options...
'oOptions.Value("Author") = ""
'oOptions.Value("Authorization") = ""
'oOptions.Value("Description") = ""
'oOptions.Value("Organization") = ""
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
Dim oData As DataMedium
oData = ThisApplication.TransientObjects.CreateDataMedium
oData.FileName = NFName & ".stp"
oSTEPTranslator.SaveCopyAs(ThisApplication.ActiveDocument, oContext, oOptions, oData)
'defines and executes the Undo command to remove the unfold feature
oDef = ThisApplication.CommandManager.ControlDefinitions.Item("AppUndoCmd")
odef.execute
'define and execute close .ipt file
oDef = ThisApplication.CommandManager.ControlDefinitions.Item("AppFileCloseCmd")
odef.execute
'Open new STEP File
ThisDoc.Launch(NFName & ".stp")
End If
End If
End If
Else If question = vbNo Then
Return
End If
Jonathan D. Kriek
MFG Solutions Engineer
KETIV Technologies, Inc.
MFG Solutions Engineer
KETIV Technologies, Inc.
Hi,
So as I understand the issue is with: ThisDoc.Launch(NFName&".stp")
I suspect you have similar issues if you simply double-click on a step file in Windows Explorer, right?
1) I ran into this article about having a similar behaviour with Inventor files, like *.ipt: http://beinginventive.typepad.com/being-inventive/2012/04/opening-inventor-file-opens-new-instance-o...
Based on that I think I found what needs to be modified in the registry in order to make things work - at least it works for me:
Added the following entries in the registry:
Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Classes\stp_auto_file] @="" [HKEY_CURRENT_USER\Software\Classes\stp_auto_file\shell] [HKEY_CURRENT_USER\Software\Classes\stp_auto_file\shell\open] [HKEY_CURRENT_USER\Software\Classes\stp_auto_file\shell\open\command] @="\"C:\\Program Files\\Autodesk\\Inventor 2014\\Bin\\Inventor.exe\" /dde" [HKEY_CURRENT_USER\Software\Classes\stp_auto_file\shell\open\ddeexec] @="[open(\"%1\")]"
2) A much simpler solution would be to use the Inventor API to open the file:
ThisApplication.Documents.Open(NFName & ".stp")
I hope this helps.
Cheers
Adam Nagy
Autodesk Platform Services
Can't find what you're looking for? Ask the community or share your knowledge.
Post to forums
![Autodesk Design & Make Report](https://forums.autodesk.com/t5/image/serverpage/image-id/1350519iCB55845EBFC43016/image-size/large?v=v2&px=999" "Autodesk Design & Make Report")