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

Hi,

 

maybe we cant convert to fitted but we can replace with new text fitted, like this:

 

Dim oDwg As DrawingDocument
Set oDwg = ThisApplication.ActiveDocument

Dim oSheet As Sheet
Set oSheet = oDwg.ActiveSheet
Dim oGenNotes As GeneralNote
Dim oPoint As Point2d

For Each oGenNotes In oSheet.DrawingNotes
If oGenNotes.Fitted = False Then
X = oGenNotes.Position.X
Y = oGenNotes.Position.Y
Field = oGenNotes.Text
Set oPoint = ThisApplication.TransientGeometry.CreatePoint2d(X, Y)

oGenNotes.Delete
Call oSheet.DrawingNotes.GeneralNotes.AddFitted(oPoint, Field)
End If
Next

Please use the ACCEPT AS SOLUTION or KUDOS button if my Idea helped you to solve the problem.

Autodesk Inventor Professional Certified 2014