关于VBA中读取XDATA的问题

banni_za

各位高手，请教一下！下面这段程序是读取图中所有多段线的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

zzyong00

貌似没有问题

mycad

使用选择集试试看

wuyunpeng888

谁知道你的变量是怎么定义的

wwswwswws

从程序上看你是找的MyLayer图层上的多段线，可能这个图层上的多段线就只有一条。你可以用选择集试试，可能更好。