CAD Fórum : Formaty vykresu

Formaty vykresu : Tady je funkční prototyp....

Thu, 22 May 2014 11:27:31 +0000

Autor: Navara
P�edm�t: 19322
Zasl�no: 22.kv�.2014 v 11:27

Tady je funk�n� prototyp. Pro zm�nu form�tu pou�ijte Formul��1

uploads/9996/ZmenaFormatu.zip

Formaty vykresu : Z vašeho příspěvku není jasné,...

Wed, 21 May 2014 08:28:25 +0000

Autor: Navara
P�edm�t: 19322
Zasl�no: 21.kv�.2014 v 08:28

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)

Formaty vykresu : Nefunguje to.Rámček mi uplne vymaže....

Wed, 21 May 2014 07:04:48 +0000

Autor: CADCAPONE
P�edm�t: 19322
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.

Formaty vykresu : Ďakujem. To čo znamená nastaviť...

Tue, 20 May 2014 21:43:44 +0000

Autor: CADCAPONE
P�edm�t: 19322
Zasl�no: 20.kv�.2014 v 21:43

�akujem. To �o znamen� nastavi� spr�vnu hodnotu?Ak�? tomu som nepochopil.

�akujem za vysvetlenie.

Formaty vykresu : Kdo vám tuhle hrůzu napsal?Zkuste...

Tue, 20 May 2014 15:28:56 +0000

Autor: Navara
P�edm�t: 19322
Zasl�no: 20.kv�.2014 v 15:28

Kdo v�m tuhle hr�zu napsal?

Zkuste tohle

  Sub Main()
      Dim Format_vykresu As String = "CEP A2" 'TODO: Nastavit spravnou hodnotu
      Dim oSheet As Sheet = ThisDrawing.ActiveSheet.Sheet
      ChangeSheetSize(Format_vykresu, oSheet)
  End Sub
  Sub ChangeSheetSize(Format_vykresu As String, oSheet As Sheet)
      Select Case Format_vykresu
          Case "CEP A1"
              oSheet.Size = DrawingSheetSizeEnum.kA1DrawingSheetSize
              oSheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
          Case "CEP A2"
              oSheet.Size = DrawingSheetSizeEnum.kA2DrawingSheetSize
              oSheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
          Case "CEP A3"
              oSheet.Size = DrawingSheetSizeEnum.kA3DrawingSheetSize
              oSheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
          Case "CEP A4"
              oSheet.Size = DrawingSheetSizeEnum.kA4DrawingSheetSize
              oSheet.Orientation = PageOrientationTypeEnum.kPortraitPageOrientation
      End Select
      Dim borderDef As BorderDefinition = oSheet.Parent.BorderDefinitions(Format_vykresu)
      oSheet.Border.Delete()
      oSheet.AddBorder(borderDef)
  End Sub

Formaty vykresu : Dobrý den.Potreboval by som poradiť...

Tue, 20 May 2014 09:47:34 +0000

Autor: CADCAPONE
P�edm�t: 19322
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