AnsweredAssumed Answered

How to traverse line in dawingdoc

Question asked by Yong Ning on Jan 30, 2017
Latest reply on Jan 30, 2017 by Yong Ning

Traverse Delete Line.jpg


follow code, can be delete text with traverse method.


Function delTxtLayer(SwDraw As DrawingDoc, Layer)

    Dim SwView As View

        Set SwView = SwDraw.GetFirstView

    Dim SwNote As Note, SwAnn As Annotation

        Set SwNote = SwView.GetFirstNote

        Do While Not SwNote Is Nothing

            Set SwAnn = SwNote.GetAnnotation

            ''Debug.Print SwNote.GetText, SwAnn.Layer

            If SwAnn.Layer = Layer Then

                SwAnn.Select True

            End If

            Set SwNote = SwNote.GetNext



End Function



Help me.

  How to traverse line in drawingdoc. delte line in drawingdoc.