With the help of the internet and this forum I've "constructed" a macro that moves existing dimensions, center lines, balloons and annotations to the right layers.
This works fine except for one thing;
The piece of code that moves all notes on the drawing to the "notes" layer, also moves all title block text to that layer.
I understand that it does that, because the title block texts are also notes, but is there a way to to set them to a different layer?
This is what i use to change the layer;
Set swView = swDoc.GetFirstView
While Not (swView Is Nothing)
Set swAnnot = swView.GetFirstAnnotation3
While Not swAnnot Is Nothing
If swAnnot.GetType = swDisplayDimension Then
swAnnot.Layer = "Dimensions"
ElseIf swAnnot.GetType = swNote Then
swAnnot.Layer = "notes"
Set swAnnot = swAnnot.GetNext3
Set swView = swView.GetNextView
Any help is appreciated