Sub ScaleFactor_Example()
' This example creates text and adds it to the drawing using the
' AddText method. It then obtains and resets the ScaleFactor property.
Dim sText As String: sText = "Test string for ScaleFactor property"
Dim insPt(0 To 2) As Double: insPt(0) = 0: insPt(1) = 9
Dim dHeight As Double: dHeight = 5
Dim textObj As AcadText
Set textObj = ThisDrawing.ModelSpace.AddText(sText, insPt, dHeight)
textObj.Update
ThisDrawing.Application.ZoomExtents
MsgBox "The ScaleFactor is " & textObj.ScaleFactor
Dim dNewScaleFac As Double
dNewScaleFac = InputBox("Type a new scale factor:")
textObj.ScaleFactor = dNewScaleFac
textObj.Update
ThisDrawing.Application.ZoomExtents
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. |