TextFrameDisplay property example

Sub TextFrame_Example()
' This example returns the current setting of TextFrameDisplay.
    Dim bShowTextFrame As Boolean
    bShowTextFrame = ThisDrawing.preferences.TextFrameDisplay
    MsgBox "The TextFrameDisplay property is: " & bShowTextFrame
    'toggle the TextFrameDisplay
    MsgBox "Changing TextFrameDisplay to: " & Not bShowTextFrame
    ThisDrawing.preferences.TextFrameDisplay = Not bShowTextFrame
    ThisDrawing.Regen acAllViewports
    'toggle the TextFrameDisplay again
    MsgBox "Changing TextFrameDisplay to: " & bShowTextFrame
    ThisDrawing.preferences.TextFrameDisplay = bShowTextFrame
    ThisDrawing.Regen acAllViewports
End Sub
Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. Copyright © 2001- Menhirs NV - All rights reserved.