Zobrazit plnou verzi příspěvku: iLogic převod do DXF
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
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