Seznam příspěvků uživatele
V tabulce jsou všechny příspěvky uživatele Tomáš Horáček (THing) řazené podle témat. Kliknutím na název téma se zobrazíte celou diskusi.
| Téma | Založeno | Odpověď | ||
| ViewmakeUp - Scale | 11.4. 2016 | Nevim jak v R21-R24 ale v R19 fungoval postup
viz http://catia-forum.cz/forum/topic.php?topic_id=583 | ||
| Hromadné ukládání výkresů do *.pdf, *.dwg, *.stp | 30.1. 2014 | zdravim makro na prevod vykresu do pdf a dwg bych mel...na stp to asi fungovat nebude
vykresy *.CATDrawing ulozit do C:\temp\*.* a potom spustit Sub CATMain() 'export souboru do PDF a DWG Set documents1 = CATIA.Documents nume = "C:\temp\*.*" MyFile = Dir(nume) MyFile1 = "C:\temp\" & MyFile While MyFile <> "" documents1.Open (MyFile1) Dim specsAndGeomWindow1 As SpecsAndGeomWindow Set specsAndGeomWindow1 = CATIA.ActiveWindow MyFile = Dir Dim drawingDocument1 As DrawingDocument Set drawingDocument1 = CATIA.ActiveDocument Dim win1 As String Dim win_pdf As String Dim win_dwg As String Dim product1 As Product win1 = CATIA.ActiveWindow.Name win2 = Split(win1, ".") win1 = win2(0) win_pdf = "C:\temp\vykresy\" & win1 & ".pdf" win_dwg = "C:\temp\vykresy\" & win1 & ".dwg" drawingDocument1.ExportData win_pdf, "pdf" drawingDocument1.ExportData win_dwg, "dwg" CATIA.ActiveDocument.Close MyFile1 = "C:\temp\" & MyFile Wend End Sub snad bude fungovat | ||
