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

Ďakujem. To čo znamená nastaviť správnu hodnotu?Akú? tomu som nepochopil.

Ďakujem za vysvetlenie.

Z vašeho příspěvku není jasné, jak se dostanete k proměnné Format_vykresu
Použité pro nastavování formátu

If Format_vykresu = "CEP A4" Then

a volby rámečku

Dim node node = FindBorderNode(Format_vykresu, bp.TopNode.BrowserNodes)

Ten kód taky předpokládá, že rámeček se jmenuje stejně jako je hodnota té proměnné.
Pokud máte jinak pojmenované rámečky, je potřeba upravit 4. řádek odspodu mého kódu tak, aby to odpovídalo vašim pojmenovaným rámečkům.

Dim borderDef As BorderDefinition = oSheet.Parent.BorderDefinitions(Format_vykresu)