Outline Size ModelSpace

[mario.lung]

Hey,

i Canot find the Outline Size of the Model

this is also not the right solution

Public Sub test()

Dim tPageSizeX As Double
Dim tPageSizeY As Double

Call ThisDrawing.ActiveLayout.GetPaperSize(tPageSizeX, tPageSizeY)
    
    tPageSizeX = Math.Round(tPageSizeX, 0)
    tPageSizeY = Math.Round(tPageSizeY, 0)
    
Debug.Print tPageSizeX
Debug.Print tPageSizeY
' 841 
' 2000 
End Sub

In the Picture you see the bigest block

with this Information as Example

x = 290

y = 520

i want find the best papersize format for printing

and alos the paper rotation automaticaly

sry for my english but is not my favorite language

thx for help hints an tips

Mario

[SENL1362]

If there is nothing drawn outside your Sheet then you could use the Database Extents (db.UpdateExt(true); db.Extmin; db.Extmax).

Calculating the rotation may be possible when:
1. The Sheet is a Blockreference then use the rotation of the reference;
2. When every sheet has it's own width and height you can compare these sizes to an array filled with known sizes.

[mario.lung · Accepted solution]

Hi,

thx for help 

i take this solution and it works fine now

            Dim oMax As Object = oAutoCADEditdoc.GetVariable("extmax")
            Dim oMin As Object = oAutoCADEditdoc.GetVariable("extmin")

            Dim sScaleFactor As String = oAutoCADEditdoc.GetVariable("CANNOSCALE")
            Dim oScaleFactor As Object = sScaleFactor.Split(":")

            Dim wec_format_x As String = Math.Round((CDbl(oMax(0)) - CDbl(oMin(0))) / CInt(oScaleFactor(1))).ToString
            Dim wec_format_y As String = Math.Round((CDbl(oMax(1)) - CDbl(oMin(1))) / CInt(oScaleFactor(1))).ToString