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
Formaty vykresu |
Odpovědět | archiv |
Autor | |||
CADCAPONE
Diskutér Přihlášen: 13.lis.2012 Lokalita: Slovensko Používám: Inventor 2016 Stav: Offline Bodů: 72 |
Téma: Formaty vykresu Zasláno: 20.kvě.2014 v 09:47 |
||
Dobrý den.
Potreboval by som poradiť s Ilogic na zmenu velkosti výkresu. Problém je v tom že ked zmením výkes z A4 na A2 tak ho zmení ale nepridelí mi tam rámik. Titulný blok pridelí v poriadku aj velkosť listu aj orientáciu. Ďakujem za pomoc Tu je iLogic: ____ Sub Main() Dim cd cd = ThisApplication.CommandManager.ControlDefinitions("DrawingBorderInsertNoDlgCtxCmd") Dim bp bp = ThisApplication.ActiveDocument.BrowserPanes.Item("Model") ChangeList() Dim node node = FindBorderNode(Format_vykresu, bp.TopNode.BrowserNodes) If Not ThisDoc.Document.ActiveSheet.Border Is Nothing Then ThisDoc.Document.ActiveSheet.Border.Delete End If node.DoSelect cd.Execute2 (True) InventorVb.DocumentUpdate iLogicVb.UpdateWhenDone = True ThisApplication.ActiveView.Fit End Sub Function FindBorderNode(name, nodes) Dim node For Each node In nodes If name = node.BrowserNodeDefinition.Label Then FindBorderNode = node Exit Function End If FindBorderNode = FindBorderNode(name, node.BrowserNodes) If Not FindBorderNode Is Nothing Then Exit Function End If Next End Function Function ChangeList() kLandscapePageOrientation = 10242 kPortraitPageOrientation = 10243 If Format_vykresu = "CEP A4" Then ActiveSheet.ChangeSize("A4", MoveBorderItems := True) ThisApplication.ActiveDocument.ActiveSheet.Orientation = kPortraitPageOrientation Else If Format_vykresu = "CEP A3" Then ActiveSheet.ChangeSize("A3", MoveBorderItems := True) ThisApplication.ActiveDocument.ActiveSheet.Orientation = kLandscapePageOrientation Else If Format_vykresu = "CEP A2" Then ActiveSheet.ChangeSize("A2", MoveBorderItems := True) ThisApplication.ActiveDocument.ActiveSheet.Orientation = kLandscapePageOrientation Else If Format_vykresu = "CEP A1" Then ActiveSheet.ChangeSize("A1", MoveBorderItems := True) ThisApplication.ActiveDocument.ActiveSheet.Orientation = kLandscapePageOrientation Else If Format_vykresu = "CEP A0" Then ActiveSheet.ChangeSize("A0", MoveBorderItems := True) ThisApplication.ActiveDocument.ActiveSheet.Orientation = kLandscapePageOrientation End If End Function |
|||
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 Systems support Arkance Systems Přihlášen: 08.zář.2008 Lokalita: ČR (Pha) Používám: Inventor Stav: Offline Bodů: 1637 |
Zasláno: 20.kvě.2014 v 15:28 | ||
Kdo vám tuhle hrůzu napsal?
Zkuste tohle
|
|||
CADCAPONE
Diskutér Přihlášen: 13.lis.2012 Lokalita: Slovensko Používám: Inventor 2016 Stav: Offline Bodů: 72 |
Zasláno: 20.kvě.2014 v 21:43 | ||
Ďakujem. To čo znamená nastaviť správnu hodnotu?Akú? tomu som nepochopil.
Ďakujem za vysvetlenie. |
|||
CADCAPONE
Diskutér Přihlášen: 13.lis.2012 Lokalita: Slovensko Používám: Inventor 2016 Stav: Offline Bodů: 72 |
Zasláno: 21.kvě.2014 v 07:04 | ||
Nefunguje to.Rámček mi uplne vymaže. ja mám nadefinované rámčeky svoje.
|
|||
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 Systems support Arkance Systems Přihlášen: 08.zář.2008 Lokalita: ČR (Pha) Používám: Inventor Stav: Offline Bodů: 1637 |
Zasláno: 21.kvě.2014 v 08:28 | ||
Z vašeho příspěvku není jasné, jak se dostanete k proměnné Format_vykresu
a volby rámečku
Ten kód taky předpokládá, že rámeček se jmenuje stejně jako je hodnota té proměnné.
|
|||
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 Systems support Arkance Systems Přihlášen: 08.zář.2008 Lokalita: ČR (Pha) Používám: Inventor Stav: Offline Bodů: 1637 |
Zasláno: 22.kvě.2014 v 11:27 | ||
Tady je funkční prototyp. Pro změnu formátu použijte Formulář1 |
|||
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 0,691 sekund.