Jump to content

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


Valera32

Recommended Posts

Valera32

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

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

Link to post
Share on other sites


UnPinned posts
Valera32
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
Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    No registered users viewing this page.




  • Сообщения

    • fantom.ul
    • GS
      === А некоторые себе и такого не могут позволить! ===  
    • Saad_Winner
      Ну до этого сохранялось через сохранить как и в 1 файл. может кто-то сталкивался и может подсказать в чем дело. И зачем эти трудности эли можно делать нормально. 
    • Krusnik
      А сделать кучу файлов и потом сшить всё в один общий не судьба?
    • Saad_Winner
      Пробовал и 1 файл (просто пустой лист) ноль на массу.    Поставил все галочки ничего не всплывает.   OneClickPDF - выводит не удалось сохранить и закрывает файл. SaveAsPDF - крашит макрос и открывает эго редактор. Save Drawing As PDF - ничего не делает.  Антивирус отключил тоже ничего. Права навряд ли, с предыдущей версией в этих папках работал и норма было, и поставил галочку запуска солида с правами админа. Нужно попробовать. Просто я сохранял через него, но он разбивал на разные файлы (мне бы хотелось что бы все было в 1 пдф).
    • GS
    • ANT0N1DZE
      да это обмазка запеклась по идее...
    • BSV1
      Довести мясо до состояния угля ...    
    • Saad_Winner
      Ну сборка, спецификация и чертежи на все изделия. Что пипец? так гораздо удобней чем иметь кучу файлов.
    • Станислав733
      Здравствуйте, можно и мне мануал    german.stanislaw2018@yandex.ru
×
×
  • Create New...