[求助]：急求高手帮忙!

laoxie_1983

下面是我根据数据库图元信息在cad里绘制图形时根据表里字段添加扩展数据的vba代码.发现一个很奇怪的问题:如果我按f8一步一步的执行的话就能达到我的要求,如果我按f5执行的话扩展数据就好象没写进去,请大家帮我看看问题出在哪!
Private Sub tjkzsj(cadid, dwname, tc) '将新增的图元添加上扩展数据
wj = "d:\a.txt"
Open wj For Append As #1
Dim ty As AcadEntity
Dim layer As AcadLayer
Set layer = ThisDrawing.Layers.Add(tc)

Dim ssget As AcadSelectionSet

'If Not IsNull(ThisDrawing.SelectionSets.Item("xzj")) Then
'Set ssget = ThisDrawing.SelectionSets.Item("xzj")
'ssget.Delete
上面这段总是提示找不到主键!!!!
'End If
Set ssget = ThisDrawing.SelectionSets.Add("xzj")
ssget.Select acSelectionSetLast
For Each ty In ssget
ty.layer = tc
ty.Update
Dim datatype(0 To 7) As Integer
Dim data(0 To 7) As Variant
datatype(0) = 1001: data(0) = "xdata"
datatype(1) = 1000: data(1) = dwname
datatype(2) = 1003: data(2) = "0"
datatype(3) = 1040: data(3) = 1.232
datatype(4) = 1041: data(4) = cadid
datatype(5) = 1070: data(5) = 5656
datatype(6) = 1071: data(6) = 32332
datatype(7) = 1042: data(7) = 10
ty.SetXData datatype, data
Dim xtype As Variant
Dim xdata As Variant
ty.GetXData "", xtpye, xdata
Write #1, tc, xdata(4);从这里生成的数据不对.
Next ty
'Write #1, tc, xdata(4)
Close #1
'kckzsj ty
ssget.Delete
End Sub