[求助]扩展数据读取时的问题（急）

cgd_60802

For Each bEntry In ssetObj
bEntry.GetXData "", xtypeOut1, xdataOut1
If StrComp(bEntry.ObjectName, "AcDbBlockReference", 1) = 0 Then If StrComp(sPT, xdataOut1(1), 1) = 0 Then
StartSuf = xdataOut1(6)
End If
If StrComp(ePT, xdataOut1(1), 1) = 0 Then
EndSuf = xdataOut1(6)
End If End If Next bEntry 我想再一次for循环中取得两个对象的两个扩展数据，可每次只能得到第二次去的那个（ EndSuf ）的扩展数据，我不知该怎么办才能同时得到StartSuf、EndSuf德扩展数据，那位高手能指点一二。

雪山飞狐_lzh

用数组处理