Vytisknout stránku | Zavřít okno

Individuální uložení STP* souborů

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: iLogic a ETO
Popis fóra: Funkce a makra iLogic, Inventor Engineering to Order (ETO), automatizace a konfigurace výrobků
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=27892
Datum vytištění: 10.čer.2026 v 00:08


Téma: Individuální uložení STP* souborů
Odeslal: assaxio
Předmět: Individuální uložení STP* souborů
Datum odeslání: 24.říj.2018 v 10:31

Zdravím všechny odborníky přes Ilogic,

moje znalosti Ilogiku jsou na úrovni začátečníka, a tak vás chci touto cestou moc poprosit i pomoct.

jak všichni víme, tak v Inventoru jde sestava uložit do univerzálního souboru STP*.

Ale já bych ale potřeboval, když dám uložit kopii jako "Soubor STEP" aby se mi spustilo makro, které uloží nejen celkovou sestavu ale taky uloží všechny ipt* soubory do individuální souborů STP*.

Potřebuji to, jelikož jsme začali dávat jekly na Laser.

Děkuji moc.Smile 


Odpovědi:
Odeslal: Navara
Datum odeslání: 24.říj.2018 v 21:29
Tady je potřeba jenom zjistit všechny soubory součástí.
Tohle je maximálně oholené, ale funkční
 
Sub Main()
   ExportAllPartsToStep
End Sub
 

Sub ExportAllPartsToStep()
    Dim topAssembly As AssemblyDocument = ThisDoc.Document
    'Sem patri export sestavy do stepu
    topAssembly.SaveAs(System.IO.Path.ChangeExtension(topAssembly.FullFileName, ".stp"), True)
 
    'Export vsech odkazovanych soucasti
    For Each document As Document In topAssembly.AllReferencedDocuments
        If (document.DocumentType = DocumentTypeEnum.kPartDocumentObject) Then
            ExportPartToStep(document)
        End If
    Next
 
End Sub
Sub ExportPartToStep(part As PartDocument)
    'Sem patri export soucasti do stepu
    part.SaveAs(System.IO.Path.ChangeExtension(part.FullFileName, ".stp"), True)
End Sub


Vytisknout stránku | Zavřít okno