CAD FÓRUM - TIPY A TRIKY | UTILITY | DISKUZE | BLOKY | PODPORA | POMOC A RADY
Již 10.000+ CAD tipů.
Přes 118.500 registrovaných u nás, celkem 1.095.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Inženýrský kalkulátor.
Kompletní příkazy AutoCADu a proměnné AutoCADu 2026.
AUTOCAD
INVENTOR
REVIT
CIVIL 3D
FUSION
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, 3ds Max, Vault a s dalšími CAD/BIM/PDM 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 (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
|
Chyba v pravidle rozvinu
Odpovědět 
|
archiv |
| Autor | ||
Lukáš Záruba 
TOP uživatel 
Přihlášen: 02.lis.2007 Lokalita: ČR (SČ) Používám: inventor 2015 Stav: Offline Bodů: 429 |
 Téma: Chyba v pravidle rozvinuZasláno: 24.čvc.2018 v 14:41 |
|
|
Ahoj,
mám pravidlo které funguje ale když uložím sestavu která obsahuje díl s tímto pravidlem, tak mi to vyhodí chybu: jinak pravidlo nezlobí. neví někdo co s tím? Dim FilePath As String FilePath = ThisDoc.Path & "\EXPORT\" 'Kam se ma export rozvinu ulozit? If ThisApplication.ActiveDocument.ComponentDefinition.HasFlatPattern = False Then 'Ma dil rozvin? ThisApplication.ActiveDocument.ComponentDefinition.Unfold 'Pokud ne, vytvor rozvin Else ThisApplication.ActiveDocument.ComponentDefinition.FlatPattern.Edit 'Pokud ano, skoc do editace End If Dim fSett As String fSett = "FLAT PATTERN DXF?AcadVersion=2000&InvisibleLayers=IV_UNCONSUMEND_SKETCHES;IV_TANGENT;IV_BEND;IV_BEND_DOWN;IV_TOOL_CENTER;IV_TOOL_CENTER_DOWN;IV_ARC_CENTERS;IV_FEATURE_PROFILES_DOWN;IV_ALTREP_FRONT;IV_ALTREP_BACK;IV_TE�NA_SVINUT�;IV_ROLL&SplineTolerance Double 0.01" 'Nastaveni exportu Dim fSname As String fSname = FilePath & ThisDoc.FileName(False) & ".dxf" 'Nastaveni ulozeni cesta+nazev ThisApplication.ActiveDocument.ComponentDefinition.DataIO.WriteDataToFile( fSett, fSname) 'Save s nastavenim fSett a do cesty fSname ThisApplication.ActiveDocument.ComponentDefinition.FlatPattern.ExitEdit |
||
|
Budu rád za radu i případně všelijaké postřehy.
|
||
 |
||
|
Navara
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
ARKANCE support 
Arkance Systems Přihlášen: 08.zář.2008 Lokalita: ČR (Pha) Používám: Inventor Stav: Offline Bodů: 1637 |
Zasláno: 24.čvc.2018 v 14:50 |
|
|
Rozhodně nedoporučuju používání lokálních pravidel pro generování rozvinů!
Chyba je v nesprávném použití
To odkazuje na aktuálně otevřený dokument místo toho, nad kterým je potřeba provádět pravidlo. Tam je potřeba použít
A i to doporučuju použít maximálně jednou a výsledek si uložit o proměnné
|
||
|
||
Možnosti tématuPro 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 0,156 sekund.
CADfórum
Tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill a další Autodesk aplikace (support firmy ARKANCE). Viz O portálu.
Copyright © 2025 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
