@guilloryt,
Try below VBA code to set deviation to 3D model annotation.
Sub Main()
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument
Dim compDef As PartComponentDefinition
Set compDef = oDoc.ComponentDefinition
Dim oLinear As LinearModelDimension
Set oLinear = compDef.ModelAnnotations.ModelDimensions.LinearModelDimensions.Item(1)
Dim oDef As LinearModelDimensionDefinition
Set oDef = oLinear.Definition
'If unit is not specified after tolerance value, then default unit 'cm' is considered.
Call oDef.Tolerance.SetToDeviation("0.05 in", "0.05 in")
End Sub
Thanks and regards,
CHANDRA SHEKAR G
Developer Advocate
Autodesk Developer Network