关于VBA中读取XDATA的问题

banni_za · 发表于 2010-7-5 20:36:00

各位高手，请教一下！下面这段程序是读取图中所有多段线的XDATA的数据，为什么我只能读到第一条多段线的XDATA的数据，后面的多段线的XDATA的数据读取不到！

For Each elem In AcadAppObj.Application.ActiveDocument.ModelSpace

      If StrComp(elem.Layer, "MyLayer", 1) = 0 Then

      If StrComp(elem.EntityName, "AcDbPolyline", 1) = 0 Then

            elem.GetXData "", xtypeOut, xdataOut

            For count = LBound(xdataOut) To UBound(xdataOut)

                  msgbox trim(xdataOut(count))

            next count

      End If
      End If

Next