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. © 2001- Menhirs NV - All rights reserved. |