Inventor ilogic указать путь сохранения dxf

[Valera32 0]

Может кто-нибудь знает как указать путь сохранения dxf в папку где лежит деталь, правило выполняется из сборки.

Указать путь сохранения dxf в папку со сборкой можно, но хотелось бы, чтобы каждый dxf сохранялся в папку с деталью

[Valera32 0]

15 hours ago, Valera32 said:

Может кто-нибудь знает как указать путь сохранения dxf в папку где лежит деталь, правило выполняется из сборки.

Указать путь сохранения dxf в папку со сборкой можно, но хотелось бы, чтобы каждый dxf сохранялся в папку с деталью

'определить активный документ как файл сборки
Dim oAsmDoc As AssemblyDocument
oAsmDoc = ThisApplication.ActiveDocument
oAsmName = Left(oAsmDoc.DisplayName, Len(oAsmDoc.DisplayName) -4)
'Проверить, что активный документ является файлом сборки
If ThisApplication.ActiveDocument.DocumentType <> kAssemblyDocumentObject Then
MessageBox.Show("Please run this rule from the assembly file.", "iLogic")
Exit Sub
End If
'Ввод данных пользователем (да или нет)
window = MessageBox.Show ( _
"Будут созданы DXF файлы всех компонентов сборки типа sheet metal." _
& vbLf & " " _
& vbLf & "Вы уверены что хотите создать DXF файлы для всех компонентов сборки?" _
& vbLf & "Это займет некоторое время.", "Пакетный вывод DXF файлов ",MessageBoxButtons.YesNo)
If window = vbNo Then
Return
Else
End If
'Получение пути к документу, который содержит данное правило

'Создание переходных объектов
oPath = ThisDoc.Path
oDataMedium = ThisApplication.TransientObjects.CreateDataMedium
oContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
oOptions = ThisApplication.TransientObjects.CreateNameValueMap

' - - - - - - - -Компоненты сборки - - - - - - - -
'Доступ к компонентам входящим в сборку
Dim oRefDocs As DocumentsEnumerator
oRefDocs = oAsmDoc.AllReferencedDocuments
Dim oRefDoc As Document
oPaths = oRefDoc.Path

'oFolder = oPaths & "\" & oRefDoc
'If Not System.IO.Directory.Exists(oFolder) Then
'System.IO.Directory.CreateDirectory(oFolder)
'End If
For Each oRefDoc In oRefDocs
iptPathName = Left(oRefDoc.FullDocumentName, Len(oRefDoc.FullDocumentName) -3) & "ipt"
If(System.IO.File.Exists(iptPathName)) Then
Dim oDrawDoc As PartDocument
oDrawDoc = ThisApplication.Documents.Open(iptPathName, True)
oFileName = Left(oRefDoc.DisplayName, Len(oRefDoc.DisplayName) -4)

Try
Try


Catch

End Try
oDataMedium.FileName = oPaths & "\" & oFileName & ".dxf"
'Процесс определения компонента и создания развертки
Dim oCompDef As SheetMetalComponentDefinition
oCompDef = oDrawDoc.ComponentDefinition
If oCompDef.HasFlatPattern = False Then
oCompDef.Unfold
Else
oCompDef.FlatPattern.Edit
End If
'Задаем параметры конфигурации сохранения файла развертки (расширение dxf , версия файла, вывод наружного контура )
Dim sOut As String

sOut = "FLAT PATTERN DXF?AcadVersion=2018&MergeOuterContour=True&MergeProfilesIntoPolyline=True&RebaseGeometry=True&Feature" _
           + "&FeatureProfilesLayer=IV_FEATURE_PROFILES&FeatureProfilesLayerColor=0;255;255&FeatureProfilesDownLayer=IV_FEATURE_PROFILES_DOWN&FeatureProfilesDownLayerColor=0;255;255" _
		   + "&InvisibleLayers=IV_TANGENT;IV_BEND;IV_BEND_DOWN;IV_TOOL_CENTER;IV_TOOL_CENTER_DOWN;IV_ARC_CENTERS;IV_ALTREP_FRONT;IV_ALTREP_BACK;IV_UNCONSUMED_SKETCHES;IV_ROLL_TANGENT;IV_ROLL" 
		  
oCompDef.DataIO.WriteDataToFile( sOut, oDataMedium.FileName)
oCompDef.FlatPattern.ExitEdit
Catch
End Try
oDrawDoc.Close
Else
End If
Next