How to add more Scale to inventor 2020

[Darkforce_the_ilogic_guy]

how to I add more Scale (On Drawings idw)to inventor 2020? I did find some version of this online .. But could not find it in the Style Editor.

I would like to know where this is save as well. sind I need to get this out on multi computers hope you can help with one or both of my problem

[JhoelForshav · Accepted solution]

It's in the style editor. Select your standard. Under general tab you have a group called Preset Values. Select Scale from the dropdown there and click new 🙂

[Darkforce_the_ilogic_guy]

I can´t see that grounp 

oh wait hehe... I miss the point of change the dropdown menu thankt

[JhoelForshav]

In the drop down that says Line Weights...

[WCrihfield]

Here is a couple of iLogic rules I wrote about a year ago for this scenario.

It sets up all the scales I want to be available (similarly to the manual process mentioned in this post).

If ThisApplication.ActiveDocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then
	MsgBox("This rule '" & iLogicVb.RuleName & "' only works for Drawing Documents.",vbOK, "WRONG DOCUMENT TYPE")
	Return
End If

Dim oDDoc As DrawingDocument = ThisDrawing.Document
Dim oScalesList As New List(Of String)
oScalesList.Add("1 / 30")
oScalesList.Add("1 / 29")
oScalesList.Add("1 / 28")
oScalesList.Add("1 / 27")
oScalesList.Add("1 / 26")
oScalesList.Add("1 / 25")
oScalesList.Add("1 / 24")
oScalesList.Add("1 / 23")
oScalesList.Add("1 / 22")
oScalesList.Add("1 / 21")
oScalesList.Add("1 / 20")
oScalesList.Add("1 / 19")
oScalesList.Add("1 / 18")
oScalesList.Add("1 / 17")
oScalesList.Add("1 / 16")
oScalesList.Add("1 / 15")
oScalesList.Add("1 / 14")
oScalesList.Add("1 / 13")
oScalesList.Add("1 / 12")
oScalesList.Add("1 / 11")
oScalesList.Add("1 / 10")
oScalesList.Add("1 / 9")
oScalesList.Add("1 / 8")
oScalesList.Add("1 / 7")
oScalesList.Add("1 / 6")
oScalesList.Add("1 / 5")
oScalesList.Add("1 / 4")
oScalesList.Add("1 / 3")
oScalesList.Add("1 / 2")
oScalesList.Add("1 : 1")
oScalesList.Add("2 : 1")
oScalesList.Add("3 : 1")
oScalesList.Add("4 : 1")
oScalesList.Add("5 : 1")
oScalesList.Add("6 : 1")
oScalesList.Add("7 : 1")
oScalesList.Add("8 : 1")
oScalesList.Add("9 : 1")
oScalesList.Add("10 : 1")
Dim oScales As String() = oScalesList.ToArray()
oDDoc.StylesManager.ActiveStandardStyle.PresetScales = oScales

And also a rule to set all the Text Heights that I want to be available within the Text Height drop-down.

If ThisApplication.ActiveDocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then
	MsgBox("This rule '" & iLogicVb.RuleName & "' only works for Drawing Documents.",vbOK, "WRONG DOCUMENT TYPE")
	Return
End If

Dim oDDoc As DrawingDocument = ThisDrawing.Document
Dim oPTextHeights As New List(Of Double)
oPTextHeights.Add(0.080*2.54)
oPTextHeights.Add(0.100*2.54)
oPTextHeights.Add(0.125*2.54)
oPTextHeights.Add(0.150*2.54)
oPTextHeights.Add(0.1875*2.54)
oPTextHeights.Add(0.250*2.54)
oDDoc.StylesManager.ActiveStandardStyle.PresetTextHeights = oPTextHeights.ToArray

If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click 'LIKE' 👍.

If you have time, please... Vote For My IDEAS 💡and Explore My CONTRIBUTIONS

Inventor 2021 Help | Inventor Forum | Inventor Customization Forum | Inventor Ideas Forum