cgd_60802 发表于 2004-10-25 16:47:00

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

For Each bEntry In ssetObj<BR>                        bEntry.GetXData "", xtypeOut1, xdataOut1<BR>                               If StrComp(bEntry.ObjectName, "AcDbBlockReference", 1) = 0 Then


                                                                        If StrComp(sPT, xdataOut1(1), 1) = 0 Then<BR>                                                                                                                               StartSuf = xdataOut1(6)<BR>                                                                        End If<BR>                                              If StrComp(ePT, xdataOut1(1), 1) = 0 Then<BR>                                                                                                                                        EndSuf = xdataOut1(6)<BR>                                                               End If


        End If


Next bEntry


我想再一次for循环中取得两个对象的两个扩展数据，可每次只能得到第二次去的那个（        EndSuf ）的扩展数据，我不知该怎么办才能同时得到StartSuf、EndSuf德扩展数据，那位高手能指点一二。

雪山飞狐_lzh 发表于 2004-10-25 21:25:00

用数组处理
页: [1]
查看完整版本: [求助]扩展数据读取时的问题（急）