Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

Hi @ngnam1988,

With this code it should work, but since it is not updated I think we have found a bug in the API here.

Dim p As PartDocument = ThisDoc.Document
Dim td As Inventor.ModelAnnotation

For Each td In p.ComponentDefinition.ModelAnnotations
	
	If td.Type = ObjectTypeEnum.kModelLeaderNoteObject Then

	Dim ml As ModelLeaderNote
	ml = td
	MsgBox(ml.Definition.Text.WidthScale)
	
	Dim mld As ModelLeaderNoteDefinition = ml.Definition
	mld.Text.WidthScale = 2
	MsgBox(mld.Text.WidthScale)
	mld.Text.WidthScale = 3
	MsgBox(mld.Text.WidthScale)
	mld.Text.WidthScale = 4
	MsgBox (mld.Text.WidthScale)
End If
	Next

@johnsonshiue could you and your team take a look at this and maybe confirm that the above is the case.

Please see the attached video where I change the WidthScale from 1 to 2 to 3 to 4 and it does not update.

bradeneuropeArthur_0-1701727114709.png

Regards,

 

 

Regards,

Arthur Knoors

Autodesk Affiliations:

Autodesk Software:Inventor Professional 2025 | Vault Professional 2024 | Autocad Mechanical 2024
Programming Skills:Vba | Vb.net (Add ins Vault / Inventor, Applications) | I-logic
Programming Examples:Drawing List!|Toggle Drawing Sheet!|Workplane Resize!|Drawing View Locker!|Multi Sheet to Mono Sheet!|Drawing Weld Symbols!|Drawing View Label Align!|Open From Balloon!|Model State Lock!
Posts and Ideas:Dimension Component!|Partlist Export!|Derive I-properties!|Vault Prompts Via API!|Vault Handbook/Manual!|Drawing Toggle Sheets!|Vault Defer Update!


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