topic Re: setting drawing sheet properties in Inventor Programming Forum

setting drawing sheet properties

Miguel.CarvajalS34Q6 — Tue, 18 Apr 2023 14:31:50 GMT

Hello, I am trying to configure the change in the size of the drawing sheets through a form, but the property where the size (A4, A3, A2. etc) of the sheet is entered is not reflected in the label.
How can I incorporate it into the code so that it changes with each new sheet, generally on all sheets of the drawing. thanks This is the code I'm using for the configuration

InventorVb.DocumentUpdate(True)

iLogicForm.Show("FORMATO_DE_HOJA")

'FORMATOS

If FORMATO_HOJA = "FORMATO_A4" Then

ThisApplication.ActiveDocument.ActiveSheet.Orientation = kPortraitPageOrientation

ActiveSheet.ChangeSize("307", "225" , moveBorderItems := True)

ActiveSheet.TitleBlock = "FORMATO UTILLAJE"

ActiveSheet.Border = "FORMATO A4"

End If

If FORMATO_HOJA = "FORMATO_A4" Then

ActiveSheet.ChangeSize("307", "225" , moveBorderItems := True)

End If

'] FORMATO_A4

If FORMATO_HOJA = "FORMATO_A3" Then

ThisApplication.ActiveDocument.ActiveSheet.Orientation = kLandscapePageOrientation

ActiveSheet.ChangeSize("307", "430", moveBorderItems := True)

ActiveSheet.TitleBlock = "FORMATO UTILLAJE"

ActiveSheet.Border = "FORMATO A3"

End If

If FORMATO_HOJA = "FORMATO_A3" Then

ActiveSheet.ChangeSize("307", "430", moveBorderItems := True)

End If

'] FORMATO_A3

If FORMATO_HOJA = "FORMATO_A2" Then

ThisApplication.ActiveDocument.ActiveSheet.Orientation = kLandscapePageOrientation

ActiveSheet.ChangeSize("430,5", "604", moveBorderItems := True)

ActiveSheet.TitleBlock = "FORMATO UTILLAJE"

ActiveSheet.Border = "FORMATO A2"

End If

If FORMATO_HOJA = "FORMATO_A2" Then

ActiveSheet.ChangeSize("430,5", "604", moveBorderItems := True)

End If

'] FORMATO_A2

If FORMATO_HOJA = "FORMATO_A1" Then

ThisApplication.ActiveDocument.ActiveSheet.Orientation = kLandscapePageOrientation

ActiveSheet.ChangeSize("605", "851", moveBorderItems := True)

ActiveSheet.TitleBlock = "FORMATO UTILLAJE"

ActiveSheet.Border = "FORMATO A1"

End If

If FORMATO_HOJA = "FORMATO_A1" Then

ActiveSheet.ChangeSize("605", "851", moveBorderItems := True)

End If

'] FOTMATO_A1

If FORMATO_HOJA = "FORMATO_A0" Then

ThisApplication.ActiveDocument.ActiveSheet.Orientation = kLandscapePageOrientation

ActiveSheet.ChangeSize("851", "1199", moveBorderItems := True)

ActiveSheet.TitleBlock = "FORMATO UTILLAJE"

ActiveSheet.Border = "FORMATO A0"

End If

If FORMATO_HOJA = "FORMATO_A0" Then

ActiveSheet.ChangeSize("851", "1199", moveBorderItems := True)

End If

']FOTMATO_A0

Re: setting drawing sheet properties

Cadkunde.nl — Tue, 18 Apr 2023 15:00:07 GMT

Made those buttons a few times for customers.

Converted my code to ilogic:

Sub Main()
	DrawingDown()
	'DrawingUp()
End Sub

Sub DrawingDown()
	Dim odoc As DrawingDocument = ThisApplication.ActiveDocument
	Dim oSheet As Sheet = odoc.ActiveSheet

	Select Case oSheet.Size
		Case DrawingSheetSizeEnum.kA3DrawingSheetSize
			oSheet.Size = DrawingSheetSizeEnum.kA4DrawingSheetSize
			oSheet.Orientation = PageOrientationTypeEnum.kPortraitPageOrientation
		Case DrawingSheetSizeEnum.kA2DrawingSheetSize
			oSheet.Size = DrawingSheetSizeEnum.kA3DrawingSheetSize
			oSheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
		Case DrawingSheetSizeEnum.kA1DrawingSheetSize
			oSheet.Size = DrawingSheetSizeEnum.kA2DrawingSheetSize
			oSheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
		Case DrawingSheetSizeEnum.kA0DrawingSheetSize
			oSheet.Size = DrawingSheetSizeEnum.kA1DrawingSheetSize
			oSheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
	End Select

	InsertDefaultBorder(odoc, oSheet)

End Sub

Sub DrawingUp()
	Dim odoc As DrawingDocument = ThisApplication.ActiveDocument
	Dim oSheet As Sheet = odoc.ActiveSheet
	Select Case oSheet.Size
		Case DrawingSheetSizeEnum.kA4DrawingSheetSize
			oSheet.Size = DrawingSheetSizeEnum.kA3DrawingSheetSize
			oSheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
		Case DrawingSheetSizeEnum.kA3DrawingSheetSize
			oSheet.Size = DrawingSheetSizeEnum.kA2DrawingSheetSize
			oSheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
		Case DrawingSheetSizeEnum.kA2DrawingSheetSize
			oSheet.Size = DrawingSheetSizeEnum.kA1DrawingSheetSize
			oSheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
		Case DrawingSheetSizeEnum.kA1DrawingSheetSize
			oSheet.Size = DrawingSheetSizeEnum.kA0DrawingSheetSize
			oSheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation
	End Select

	InsertDefaultBorder(odoc, oSheet)
End Sub

Sub InsertDefaultBorder(oDrawDoc As DrawingDocument, oSheet As Sheet)

        ' Check to see if the sheet already has a border and delete it if it does.
        If Not oSheet.Border Is Nothing Then
            oSheet.Border.Delete()
        End If

        ' Define the values to use as input for the border creation.
        Dim HorizontalZoneCount As Long
        HorizontalZoneCount = 0

        Dim HorizontalZoneLabelMode As BorderLabelModeEnum
        HorizontalZoneLabelMode = BorderLabelModeEnum.kBorderLabelModeNumeric

        Dim VerticalZoneCount As Long
        VerticalZoneCount = 0

        Dim VerticalZoneLabelMode As BorderLabelModeEnum
        VerticalZoneLabelMode = BorderLabelModeEnum.kBorderLabelModeAlphabetical

        Dim LabelFromBottomRight As Boolean
        LabelFromBottomRight = False

        Dim DelimitByLines As Boolean
        DelimitByLines = False

        Dim CenterMarks As Boolean
        CenterMarks = False

        Dim TopMargin As Double
        TopMargin = 0.5

        Dim BottomMargin As Double
        BottomMargin = 0.5

        Dim LeftMargin As Double
        LeftMargin = 0.5

        Dim RightMargin As Double
        RightMargin = 0.5

        'Dim BorderLineWidth As Double
        'BorderLineWidth = 0.35

        'Dim TextLabelHeight As Double
        'TextLabelHeight = 1.5

        'Dim Font As String
        'Font = "Courier New"

        ' Add the border to the sheet.  This sets all of the values, but any of them
        ' can be left out and it will default to an appropriate value.
        Dim oBorder As DefaultBorder = oSheet.AddDefaultBorder(HorizontalZoneCount, HorizontalZoneLabelMode,
                                          VerticalZoneCount, VerticalZoneLabelMode,
                                          LabelFromBottomRight, DelimitByLines,
                                          CenterMarks, TopMargin, BottomMargin,
                                          LeftMargin, RightMargin,,
                                          ,)
    End Sub

Re: setting drawing sheet properties

Miguel.CarvajalS34Q6 — Tue, 18 Apr 2023 15:06:50 GMT

I think I did not make myself understood, the only thing I need is that regardless of the size of the sheet, it is inserted if it is A4, A3 or A2 as the case may be, since I put the sheet size property on it and I get another value on the label

Re: setting drawing sheet properties

JelteDeJong — Tue, 18 Apr 2023 20:13:31 GMT

I think you can shorten your rule like this:

This is shorter and uses the Inventor API instead of the iLogic API with the advantage that you can use default Inventor features. In your title block you can use a text block with the parameter <Sheet Size>

Re: setting drawing sheet properties

Cadkunde.nl — Wed, 19 Apr 2023 07:21:08 GMT

Oops was a bit too short in my explanation.

In your code you change the size of the current sheet by length and width.

In my code I use:

DrawingSheetSizeEnum.kA3DrawingSheetSize

So i change it to a formatted style A4, A3 etc.

And you can call this in your titleblock with Drawing--> Sheetsize.

JelteDeJong already made screenshot of that

Re: setting drawing sheet properties

Juan_Baron6NFHE — Wed, 19 Apr 2023 12:05:20 GMT

The code works perfectly, but it only works with standard sheet sizes. For administrative reasons, the labels we use in the company are a little larger, so when executing the code, the sheet is adjusted, leaving the frames outside the sheet.

How can this event be resolved?

Re: setting drawing sheet properties

Miguel.CarvajalS34Q6 — Wed, 19 Apr 2023 13:48:28 GMT

In conclusion I need to change the value of <sheet size> for the title of the sheet, that if the sheet has the title "A4", then the sheet size is A4

Re: setting drawing sheet properties

JelteDeJong — Wed, 19 Apr 2023 21:09:15 GMT

If I understand correctly you have custom pare sizes. (A4 is not really A4.) That complicates the question a bit. Because then you can't use the default paper sizes and default <Sheet Size> property. <Sheet Size> will show "Custom size". But You could create a prompted entry, called "Custom sheet size", in your title block.

Then you could fill in that prompted entry with iLogic. Your code would look something like this:

InventorVb.DocumentUpdate(True) iLogicForm.Show("FORMATO_DE_HOJA") Dim doc As DrawingDocument = ThisDoc.Document Dim sheet As Sheet = doc.ActiveSheet ActiveSheet.TitleBlock = "FORMATO UTILLAJE" sheet.Orientation = PageOrientationTypeEnum.kLandscapePageOrientation Dim format = "A4" Select Case FORMATO_HOJA Case "FORMATO_A4" sheet.Orientation = PageOrientationTypeEnum.kPortraitPageOrientation ActiveSheet.ChangeSize("307", "225", moveBorderItems:=True) ActiveSheet.Border = "FORMATO A4" format = "A4" Case "FORMATO_A3" ActiveSheet.ChangeSize("307", "430", moveBorderItems:=True) ActiveSheet.Border = "FORMATO A3" format = "A3" Case "FORMATO_A2" ActiveSheet.ChangeSize("430,5", "604", moveBorderItems:=True) ActiveSheet.Border = "FORMATO A2" format = "A2" Case "FORMATO_A1" ActiveSheet.ChangeSize("605", "851", moveBorderItems:=True) ActiveSheet.Border = "FORMATO A1" format = "A1" Case "FORMATO_A0" ActiveSheet.ChangeSize("851", "1199", moveBorderItems:=True) ActiveSheet.Border = "FORMATO A0" format = "A0" End Select ' Set the prompted entry Dim titleBlock As TitleBlock = sheet.TitleBlock For Each textBox As TextBox In titleBlock.Definition.Sketch.TextBoxes If (textBox.Text = "Custom sheet size") Then Dim uom = doc.UnitsOfMeasure Dim x = Math.Round(uom.ConvertUnits(sheet.Width, UnitsTypeEnum.kDatabaseLengthUnits, UnitsTypeEnum.kDefaultDisplayLengthUnits), 1) Dim y = Math.Round(uom.ConvertUnits(sheet.Height, UnitsTypeEnum.kDatabaseLengthUnits, UnitsTypeEnum.kDefaultDisplayLengthUnits), 1) Dim sheetSize = String.Format("{0} ({1}x{2})", format, x, y) titleBlock.SetPromptResultText(textBox, sheetSize) End If Next