得到字典中的数据后怎样修改呢?

zzp-2000

得到字典中的数据后怎样修改呢?

雪山飞狐_lzh

SetXRecordData

zzp-2000

假设我用OBJDIC.GetXRecorData xxx，yyy得到了数据：XXX（）和YYY（）；我把其中的一个数据进行修改，如：YYY（3）=“ZZZ”，那么怎么写回去呢，如果接着用OBJDIC.SetXRecorData xxx，yyy,好象是接着原先的数据往下写入的,不能替换原先的数据,怎么办呢?

雪山飞狐_lzh

据我调试是没有接着原先的数据往下写入，把你的代码贴上来看看

zzp-2000

以下是在清华天河下，提取明细栏的数据的简短程序,图纸至少要初始化,有一个以上件号. Public Sub main()
Dim DName As String
Dim I As Integer
Dim mxb As AcadDictionary
Dim mxbobj As AcadObject
Dim mxbobj1 As AcadObject
Dim AAA As Variant
Dim BBB As Variant Set mxb = ThisDrawing.Dictionaries(6)'''''''''''''取得字典对象："TH_BOM_DIC"
Set mxbobj = mxb.Item(0)''''''''''''''''''''''''''''''''''''''''序号为1的数据 mxbobj.GetXData "", AAA, BBB'''''''''''''''''''''''''''''取得数据
For I = 0 To UBound(BBB)
DName = DName + "|" + CStr(BBB(I))
Next I
MsgBox DName''''''''''''''''''''''''''''''''''''''''显示全部数据 BBB(18) = "XiuGai"''''''''''''''''''''''''''''''''''''''''修改其中一个数据
mxbobj.SetXData AAA, BBB''''''''''''''''''''''''写入数据 mxbobj.GetXData "", AAA, BBB'''''''''''''''''''''重复以上过程 For I = 0 To UBound(BBB)
DName = DName + "|" + CStr(BBB(I))
Next I
MsgBox DName''''''''''''''''''''''这儿显示的数据就反映出是连续数据！！！！ End Sub
'但重新运行后,第一次显示的数据好象又是改过的?不明白? 再深入下去,PCCAD的明细栏中的数据在重新生成明细表后,没有被改动过. 我的主要目的是能提出PCCAD明细表的数据,利用自己的数据库中常用的数据进行输入和编辑,从而能提高工作效率.

雪山飞狐_lzh

手边没有PCCAD，无法调试，哪位有的可以帮忙调试一下