iLogic Change Arrow Size in Drawing

[Anonymous]

Hello
Anyone have the code, logic, resize arrowheads? Now there is a font that adjusts the font size but the arrow size doesn't change accordingly. this is the code i have

'set active document as drawing document
Dim oDoc As DrawingDocument
oDoc = ThisApplication.ActiveDocument

'get the active dim style
Dim oDStyle As DimensionStyle
oDStyle = oDoc.StylesManager.ActiveStandardStyle. _
ActiveObjectDefaults.LinearDimensionStyle

'get current font size
Dim sFontSize As String
sFontSize = oDStyle.TextStyle.FontSize

'get user input
oInput = InputBox("Active Dimesnion Style = " &  oDStyle.Name _
& vbLf & vbLf &  "Enter a new font size in mm." , "Text height", _
Round(sFontSize / 0.1,3))

'set font size for dim style
oDStyle.TextStyle.FontSize = oInput * 0.1

[theo.bot · Accepted solution]

The ArrowheadHeigth and ArrowheadSize are properties of the Dimension Style. So in your rule you could add the following. Be aware of the Unit type that you enter, in this case it's the default unit (cm):

oDStyle.ArrowheadSize = 0.5
oDStyle.ArrowheadHeight = 1

[Anonymous]

thanks it works

[marko.uzarevicFWG4G]

Hello Anonymous 386, by me this not work. Can you send me the whole code please? Thank you