Produkt: Inventor 9
Datum: 27.10.2004
Objekt DataIO v objektovém modelu Inventoru umožňuje snadno exportovat rozvinutý tvar plechové součásti do formátu DWG nebo DXF. Při tomto exportu lze navíc určit některé parametry formátů a hladiny. Můžete tak zapsat rozvinutý tvar součásti (.IPT) do formátu DXF nebo DWG pro zpracování např. v pálicím stroji.
Nejprve připravte samotný VBA kód funkce. Pomocí Alt-F11 spusťte editor VBA a zadejte tento kód - popř. načtěte předpřipravený projekt ExportDWG.ivb (viz výše):
Public Sub
ExportDWG()' Získat aktivní dokument, musí to být součást, rozvinutý tvar
Dim
invDocAs
Inventor.DocumentSet
invDoc = ThisApplication.ActiveDocument' Jméno dokumentu
Dim
sFileNameAs
String sFileName = invDoc.DisplayName sFileName = Left(sFileName, Len(sFileName) - 4)'bez .IPT
' Vytvořit objekt DataIO
Dim
oDataIOAs
DataIOSet
oDataIO = invDoc.ComponentDefinition.DataIO' Parametry definující formát výstupního souboru DWG nebo DXF
Dim
sParamAs
String sParam = "FLAT PATTERN DWG?AcadVersion=2000&BendLayer=OHYBY"'dostupné formáty: AcadVersion = "2005","2004","2002", "2000", "R14", "R13", "R12" (R12 jen pro DXF)
'možné parametry TangentLayer a BendLayer; příklady:
' "FLAT PATTERN DWG?AcadVersion=2000"
' "FLAT PATTERN DWG?AcadVersion=R14"
' "FLAT PATTERN DWG?AcadVersion=R13&TangentLayer=myTangLayer"
' "FLAT PATTERN DXF?AcadVersion=R14&BendLayer=myBendLayer"
' Vytvořit výstupní DWG nebo DXF soubor v adresáři C:\TEMP
Dim
sDWGFileNameAs
String sDWGFileName = "c:\temp\" & sFileName & ".dwg" oDataIO.WriteDataToFile sParam, sDWGFileNameEnd Sub
Proměnná sParam určuje výstupní formát pomocí řídícího řetezce podobného URL adrese. Při volbě formátu DXF je potřeba upravit i příponu výstupního souboru.
Tento kód si můžeme uložit např. do projektového souboru .IVB.
Nyní již jen musíme vyvolat nově vytvořenou funkci. Ve spuštěném Inventoru, v dokumentu rozvinuté součásti, stiskněte Alt-F8 a v seznamu maker zvolte ExportDWG.
Copyright © 2004 CAD Studio a.s.