Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy Arkance Systems [www.cadforum.cz]
CZ | SK | EN | DE
Přihlášení
či registrace
   právě nás čte: 11138 
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

 

NápovědaCAD diskuze, rady, výměna zkušeností

 
CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion 360, 3ds Max a s dalšími CAD aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy Arkance Systems (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.cadstudio.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenoIndividuální uložení STP* souborů

 Odpovědět Odpovědět archiv
Autor
Navara Zobrazit panel
Arkance Systems support
Arkance Systems support
Avatar
Arkance Systems

Přihlášen: 08.zář.2008
Lokalita: ČR (Pha)
Používám:
Inventor
Stav: Offline
Bodů: 1636
Přímý odkaz na tuto zprávu Téma: Individuální uložení STP* souborů
    Zasláno: 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
Zpět nahoru
assaxio Zobrazit panel
Diskutér
Diskutér
Avatar

Přihlášen: 30.dub.2009
Lokalita: ČR (Pha)
Používám:
Inventor 2O18
Stav: Offline
Bodů: 16
Přímý odkaz na tuto zprávu Zasláno: 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 


Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 12043:VIPExport jednotlivých součástí sestavy do samostatných STEP souborů.
Tip 7940:VIPSnadný export souborů Parasolid, Pro/E nebo STEP z AutoCADu 2012.
Tip 3395:VIPBezplatný prohlížeč mnoha 3D CAD formátů (Catia, Pro/E, SolidEdge, SolidWorks, NX4, IDeas, Cimatron, STEP, IGES, DXF...).
Tip 5410:VIPChyba: Tato operace translátoru není ještě podporována (import STEP)
Tip 2943:Jak zvětšit nebo natočit několik bloků okolo jejich individuálních vkládacích bodů?
Tip 728:Jak zjistit počet individuálních komponent v sestavě?


 Odpovědět Odpovědět

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,484 sekund.