Topic: Match orientation to layout

[UWPMVG]

Is it possible to change the "match orientation to layout" to TRUE for existing blocks in AutoCAD using VB.NET?

I have managed to change existing blocks to annotative using: btr.Annotative = AnnotativeStates.True

I've searched everywhere for an answer. Please help!

[huiz]

Isn't it a property of a block definition? Not a block property but from the definition.

[UWPMVG]

Does that mean that I can't change it afterwards and therefore need to redefine the block?

[huiz]

It is not a property which you can change per block. So yes, change it in the definition.

[UWPMVG]

Do you have any idea how that is done? I want all blocks with a specific name in the drawing to match the layout orientation.

[Jeff H]

You can check the block's PaperOrientation enum value which is read-only but use  the DBObject.SetPaperOrientation Method which a BlockTableRecord is a DBObject
 
Here is a example showing both members for changing  "match orientation to layout" to TRUE for a block named 'C'
 
You might need to Regen for changes to show up
 

Code: [Select]

        <CommandMethod("ChangePaperOreintation")> _
        Public Sub ChangePaperOreintation()

            Dim doc As Document = Application.DocumentManager.MdiActiveDocument
            Dim db As Database = doc.Database
            Dim ed As Editor = doc.Editor
 
            Using trx As Transaction = db.TransactionManager.StartTransaction()

                Dim bt As BlockTable = trx.GetObject(db.BlockTableId, OpenMode.ForRead)
 
                If bt.Has("C") Then
                    Dim btr As BlockTableRecord = trx.GetObject(bt("C"), OpenMode.ForRead)
 
                    If btr.PaperOrientation = PaperOrientationStates.False Then
                        btr.UpgradeOpen()
                        btr.SetPaperOrientation(True)
                    End If
 
                End If
 
                trx.Commit()
            End Using
        End Sub

 

[UWPMVG]

Thank you very much!!!! My application now works as I wanted to.