CADForums.net

matt_1ca · Guest

I am trying to write a program to change actual size properties of text depending on magnification of a dynamic zoom .

In the old days when AutoCAD was still DOS based people made use of zoom say .5x or .2x or whatever factor they have in mind to change how everything appears. And if this were the case the program I am asked to write would be simple to me.

But now with the advent of dynamic zoom and wheel mouse those .5x and .2x have seemed to have become obsolete.
And worse -- I have no idea how to extract them because the dynamic zoom does not show anything from the command line.

I imagine that the solution is pretty straight forward -- but I am stumped and in the middle of nowhere anyway because of it.

I would greatly appreciate all the kind help you can extend in this regard

Gratefully,
Matt

juno · Guest

You can use ViewSize variable

The following code will place a text at the center of your screen at 1/20 the side of the screen.

Hope this helps
------
Sub test()
Dim CentText As AcadText
Dim TextString As String
Dim WindowHight As Double
Dim WindowCenter() As Double
'get screen hight
WindowHight = ThisDrawing.GetVariable("viewsize")
'get center of screen for text insertion
WindowCenter = ThisDrawing.GetVariable("viewctr")
'insert text at 1/4 the screen size in the center
TextString = "I am " & WindowHight / 20 & " Tall"
Set CentText = ThisDrawing.ModelSpace.AddText(TextString, WindowCenter, WindowHight / 20)
End Sub
------

juno · Guest

U can also use the SCREENSIZE varible to get the size of CAD window size.

matt_1ca · Guest

Thanks Juno I will go and try it.

Matt

	CADForums.net Forum Index -> VBA	All times are GMT
Page 1 of 1