Zobrazit plnou verzi příspěvku: iLogic převod do DXF

DolPa
22.10.2013, 09:10
Dobrý den,mohl by mi prosím někdo poradit?1. jakým způsobem byl vytvořen tento globální formulář (není jen jedno tlačítko které otevře formulář, ale formulář je stále viditelný)http://www.youtube.com/watch?v=uwZ-1_YL_uY&feature=c4-overview&list=UU77cI0xSEDRTABz5N9Y9pag2. jaký je kod pro převod součásti do dxf3. znám kód pro změnu velikosti výkresu A4, A3,atd, ale nevím jak změnit převod na A4 aby se výkres otočil navýšku a změnil se okraj výkresu aby se mi tam vešlo razítko.DěkujuPavel

waldosinka
31.10.2013, 11:16

Public Sub Main()    ' Získat aktivní dokument, musí to být součást, rozvinutý tvar    Dim invDoc As Inventor.Document    invDoc = ThisApplication.ActiveDocument        ' Jméno dokumentu    Dim sFileName As String    sFileName = invDoc.DisplayName    sFileName = Left(sFileName, Len(sFileName) - 1) 'bez .IPT    ' Vytvořit objekt DataIO    Dim oDataIO As DataIO    oDataIO = invDoc.ComponentDefinition.DataIO     ' Parametry definující formát výstupního souboru DWG nebo DXF    Dim sParam As String    sParam = "FLAT PATTERN DXF?AcadVersion=2000"'dostupné formáty: AcadVersion = "2005","2004","2002", "2000", "R14", "R13", "R12" (R12 jen pro DXF)     ' Vytvořit výstupní DWG nebo DXF soubor v adresáři C:\TEMP    Dim sDXFFileName As String    sDXFFileName = "c:\temp\" & sFileName & ".dxf"    oDataIO.WriteDataToFile (sParam, sDXFFileName)End Sub

kosulic
11.11.2013, 13:42
Mohl by někdo poradit jak nastavit, aby se dxf ukládalo do stejné cesty jako je originální součást?

Vladimír Michl
11.11.2013, 15:56

Třeba přes:[CODE]ThisDoc.Document.FullFileName & ".dxf"[/CODE] Podobná problematika se řešila před rokem v:http://www.cadforum.cz/forum/forum_posts.asp?TID=15848