AnsweredAssumed Answered

Changing note layer also changes title block note :(

Question asked by Willem Nagels on Mar 19, 2020
Latest reply on Mar 21, 2020 by Willem Nagels

Hi all,

 

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"
           
        End If
        Set swAnnot = swAnnot.GetNext3
    Wend
    Set swView = swView.GetNextView
Wend

 

 

Any help is appreciated

Outcomes