I've written an application to reset drawing scales to what our different disciplines want (which is not what Autodesk provides). I have no problem creating and adding the scales but can't reorder them.
The scales currently in use in the drawing appear at the bottom of the list, then the scales I've added appear at the top (and thus possibly out of order). Is there a way to insert the scale in the correct location in the scale list?
Dim occ As ObjectContextCollection = ocm.GetContextCollection("ACDB_ANNOTATIONSCALES")
I loop through the list of desired scales adding each as follows: (name and scale setting will differ)
Dim asc As New AnnotationScale()
asc.Name = "1in = 2 miles"
asc.PaperUnits = 1
asc.DrawingUnits = 10560
If Not occ.HasContext(asc.Name) Then
occ.AddContext(asc)
End If
