Rule or VBA Macro to change a dimension style for radii

[torben_schroederXDK86]

Hey. 

I have tried my hand at ilogic and VBA a bit. After asking Chat GPT alot and googling alot i came to the conclusion to ask the experts here, as i was not able to find a solution. 

what i want to achieve with this code is to change the dimension for radii from "horizontal" to "aligned". Not more. But i can not seem to get it done. 

i only have a code generated from ChatGPT which doesnt work. 

can someone help me out here? 

[Michael.Navara]

Please follow the guidelines described HERE and DON'T post code from ChatGPT with syntax errors.

For example object RadiusTextOrientation doesn't exist. 

[torben_schroederXDK86]

Okay, my bad. I just wanted to give some kind of "base" trhat can be worked on. I can delete it, if thats whats needed.

I just dont know what exists and what doesnt. Is there some kind of API Database for Inventor that i can look at?

[Michael.Navara]

Here is on-line version of API help.

Or off-line version is available from Inventor Help menu

 

[nstevelmans · Accepted solution]

Hi,

try this

 'set active document as drawing document
	Dim oDoc As DrawingDocument = ThisApplication.ActiveDocument
	'get the active dim style
	Dim oDStyle As DimensionStyle = oDoc.StylesManager.ActiveStandardStyle.ActiveObjectDefaults.LinearDimensionStyle
	oDStyle.RadialTextOrientation = DimensionTextOrientationEnum.kInlineAlignedDimensionText

! For administrative reasons, please mark a "Solution as solved" when the issue is solved !