Diskuzní fórum, poradna
CAD diskuze, rady, výměna zkušeností |
Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion 360, 3ds Max a s dalšími CAD aplikacemi.
Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy Arkance Systems (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.cadstudio.cz
Hromadná konverze do DGN |
Odpovědět | archiv |
Autor | |
Juri_
Nováček Přihlášen: 05.srp.2009 Lokalita: Czech Republic Používám: Spac Stav: Offline Bodů: 2 |
Téma: Hromadná konverze do DGN Zasláno: 05.srp.2009 v 09:40 |
Zdravím,
dostal jsem za úkol převést několik set výkresů z DWG do DGN. K dispozici mám Autocad 2005 nebo Aucotad 2010. Převod ručně je v pořádku. Ale chtěl jsem to provést nějak automaticky. Lispem nevládnu, tak jsem si zde našel makro VBA z inventoru, které jsem upravil. Ale skončil jsem na části uložení. Tam mi vždy makro spadne s chybou -2... a v Autocad zatuhne výkres. Zkoušel jsem export i saveas a nic. Pokud by někdo dokázal napsat rutinu i v lispu bych bych moc vděčný. Děkuji předem za pomoc Michal Juřica Makro: Sub AllConvert() Dim sFile As String, sInDir As String, sOutDir As String Dim oDocs As AcadDocuments, oDoc As AcadDocument Dim aktSelDoc As AcadSelectionSet 'Set oDocs = ThisDrawing.Application Set oDocs = Application.Documents 'Define your source and target directories sInDir = "D:\Práce\Projekty\20090805 ABB DE Převod DGN\" sOutDir = "D:\Práce\Projekty\20090805 ABB DE Převod DGN\" sFile = Dir(sInDir) While (sFile <> "") 'Define the SOURCE format extension (IPT, IAM, IDW...) If (Right(sFile, 3) = "dwg") Then Debug.Print sFile Set oDoc = oDocs.Open(sInDir & sFile, False) Set aktSelDoc = oDoc.ActiveSelectionSet 'Define the TARGET format extension (IGS, DXF, WRL...) 'Call oDoc.Export(sOutDir & Left(sFile, Len(sFile) - 3), "dgn", aktSelDoc) 'Call oDoc.SaveAs(sOutDir & Left(sFile, Len(sFile) - 3), "dxf") Call oDoc.Close End If sFile = Dir Wend End Sub |
|
Vladimír Michl
Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
Moderátor Arkance Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Dodáváme produkty Autodesk Stav: Offline Bodů: 21493 |
Zasláno: 05.srp.2009 v 09:44 |
Na to nemusíte nic programovat. Stačí spustit dávkový skript, kde bude jen otevření výkresu a jediný příkaz:
-DGNEXPORT.
|
|
Seiner
CAD/BIM manager Přihlášen: 01.říj.2004 Lokalita: ČR (PA) Používám: Mechanical 2017, Inventor 2017 a starší Stav: Offline Bodů: 1662 |
Zasláno: 05.srp.2009 v 09:52 |
A pokud se Vám nechce ten script tvořit ručně, použijte nejaký generátor scriptů. (Nic nevnucuji - taky z toho nic nemám, ale ten můj umí i podadresáře :-)
|
|
Vítězslav Seiner
Chrudim |
|
Juri_
Nováček Přihlášen: 05.srp.2009 Lokalita: Czech Republic Používám: Spac Stav: Offline Bodů: 2 |
Zasláno: 05.srp.2009 v 10:49 |
Děkuji tipy a pomoc.
Problém úspěšně vyřešen a převod pěkně chodí. P.S. Už jsem myslel, že to nedám, ale stačilo si přečíst ctimne.txt a středník vše vyřešil. Ještě jednou děkuji Michal |
|
Pro technickou podporu CAD
kontaktujte Helpdesk
Odpovědět | |
Přejít na fórum | Oprávnění fóra Nemůžete vytvářet nová témata v tomto fóru Nemůžete odpovídat na témata v tomto fóru Nemůžete vymazávat vaše příspěvky v tomto fóru Nemůžete upravovat vaše příspěvky v tomto fóru Nemůžete vytvářet ankety v tomto fóru Nemůžete hlasovat v anketách v tomto fóru |
Stránka byla vygenerována za 1,020 sekund.