11-27-2017
06:29 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-27-2017
06:29 AM
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
Autodesk Inventor Professional Certified 2014