Vytisknout stránku | Zavřít okno

iLogic převod do DXF

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: Inventor
Popis fóra: Otázky k programům Autodesk Inventor Professional, Product Design & Manufacturing Collection, Factory Design; digitální prototypy
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=18132
Datum vytištění: 27.čer.2026 v 15:31


Téma: iLogic převod do DXF
Odeslal: DolPa
Předmět: iLogic převod do DXF
Datum odeslání: 22.říj.2013 v 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=UU77cI0xSEDRTABz5N9Y9pag" rel="nofollow - http://www.youtube.com/watch?v=uwZ-1_YL_uY&feature=c4-overview&list=UU77cI0xSEDRTABz5N9Y9pag
2. jaký je kod pro převod součásti do dxf
3. 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ěkuju

Pavel


Odpovědi:
Odeslal: waldosinka
Datum odeslání: 31.říj.2013 v 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

-------------
zdraví waldosinka :)

Odeslal: kosulic
Datum odeslání: 11.lis.2013 v 13:42
Mohl by někdo poradit jak nastavit, aby se dxf ukládalo do stejné cesty jako je originální součást?

Odeslal: Vladimír Michl
Datum odeslání: 11.lis.2013 v 15:56
Třeba přes:
ThisDoc.Document.FullFileName & ".dxf"
 
Podobná problematika se řešila před rokem v:
http://www.cadforum.cz/forum/forum_posts.asp?TID=15848 - http://www.cadforum.cz/forum/forum_posts.asp?TID=15848


-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz emea.support.arkance.world)


Vytisknout stránku | Zavřít okno