CAD Fórum : Chyba v pravidle rozvinu https://www.cadforum.cz/forum/ Wed, 06 May 2026 19:27:41 +0000 Tue, 24 Jul 2018 14:50:31 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=26434 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Chyba v pravidle rozvinu : Rozhodně nedoporučuju používání...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26434&PID=112163&title=chyba-v-pravidle-rozvinu#112163 Autor: Navara
Předmět: 26434
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í 
ThisApplication.ActiveDocument
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
ThisDoc.Document
 
 A i to doporučuju použít maximálně jednou a výsledek si uložit o proměnné
]]> Tue, 24 Jul 2018 14:50:31 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26434&PID=112163&title=chyba-v-pravidle-rozvinu#112163 <![CDATA[Chyba v pravidle rozvinu : Ahoj,mám pravidlo které funguje...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=26434&PID=112162&title=chyba-v-pravidle-rozvinu#112162 Autor: Lukáš Záruba
Předmět: 26434
Zaslá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
]]> Tue, 24 Jul 2018 14:41:12 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=26434&PID=112162&title=chyba-v-pravidle-rozvinu#112162