07-11-2018
02:40 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
07-11-2018
02:40 AM
Try below VBA code to determine values and tolerances of chamfer notes. Usually, tolerances will return in integer values which can mapped to respective LinearPrecisionEnum using below Inventor 2019 help documentation link.
http://help.autodesk.com/view/INVNTOR/2019/ENU/?guid=GUID-FBD80F0D-AF01-47AA-BC61-8DB782ACAE0D
Sub Main()
Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oSheet As Sheet
Set oSheet = oDoc.ActiveSheet
Dim oChamferNote As ChamferNote
Set oChamferNote = oSheet.DrawingNotes.ChamferNotes.Item(1)
Debug.Print oChamferNote.Text
Dim oStyle As DimensionStyle
Set oStyle = oChamferNote.DimensionStyle
Dim oLinear As LinearPrecisionEnum
oLinear = oStyle.LinearPrecision
Debug.Print "Linear precision : " & oLinear
Dim oAngular As LinearPrecisionEnum
oAngular = oStyle.AngularPrecision
Debug.Print "Angular precision : " & oAngular
End Sub
Thanks and regards,
CHANDRA SHEKAR G
Developer Advocate
Autodesk Developer Network
