Initial Scale View = scale factor ilogic help

[Anonymous]

Hi,

I've have my Initial Scale View setup in my border and it works great but I would like to add the scale factor.  How would I go about doing this?

So if my scale is 1/16 = 1'-0" then I want my Scale Factor to say 192 

I tried select case but whenever I put 1'-0" (as soon as I put ' it greys it out)

Thanks in advance!

1/16" = 1'-0"	192
3/32" = 1'-0"	128
1/8" = 1'-0"	96
3/16" = 1'-0"	64
1/4" = 1'-0"	48
3/8" = 1'-0"	32
1/2" = 1'-0"	24
3/4" = 1'-0"	16
1" = 1'-0"	12
1 1/2" = 1'-0"	8
3" = 1'-0"	4

[Anonymous · Accepted solution]

yey got it to work! took me a while to find how to write 1 1/2" = 1'-0" in the rule

Dim oDoc As DrawingDocument: oDoc = oApp.ActiveDocument

Dim oSheets As Sheets
Dim oSheet As Sheet
Dim oViews As DrawingViews
Dim oView As DrawingView

oSheets = oDoc.Sheets

For Each oSheet In oSheets
oViews = oSheet.DrawingViews
    For Each oView In oViews
        Select Case ActiveSheet.View(oView.Name).ScaleString
            Case "1.5 = 12-0"
                  oSF = "8"
            Case "1 : 1"
                  oSF = "1"
            Case "1 1/2"" = 1'-0""" '(this works!!)
                  oSF = "xx"
            Case "3 = 1'-0"
               oSF = "16"
            Case Else
            oSF = "???"
        End Select
    Next
Next