zzp-2000 发表于 2004-9-9 19:22:00

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

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

雪山飞狐_lzh 发表于 2004-9-9 19:32:00

SetXRecordData

zzp-2000 发表于 2004-9-10 07:40:00

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

雪山飞狐_lzh 发表于 2004-9-10 18:43:00

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

zzp-2000 发表于 2004-9-10 20:24:00

以下是在清华天河下，提取明细栏的数据的简短程序,图纸至少要初始化,有一个以上件号.



Public Sub main()<BR>Dim DName As String<BR>Dim I As Integer<BR>Dim mxb As AcadDictionary<BR>Dim mxbobj As AcadObject<BR>Dim mxbobj1 As AcadObject<BR>Dim AAA As Variant<BR>Dim BBB As Variant


Set mxb = ThisDrawing.Dictionaries(6)'''''''''''''取得字典对象："TH_BOM_DIC"<BR>Set mxbobj = mxb.Item(0)''''''''''''''''''''''''''''''''''''''''序号为1的数据


mxbobj.GetXData "", AAA, BBB'''''''''''''''''''''''''''''取得数据<BR>For I = 0 To UBound(BBB) <BR>DName = DName + "|" + CStr(BBB(I))<BR>Next I<BR>MsgBox DName''''''''''''''''''''''''''''''''''''''''显示全部数据


BBB(18) = "XiuGai"''''''''''''''''''''''''''''''''''''''''修改其中一个数据<BR>mxbobj.SetXData AAA, BBB''''''''''''''''''''''''写入数据


mxbobj.GetXData "", AAA, BBB'''''''''''''''''''''重复以上过程


For I = 0 To UBound(BBB)<BR>DName = DName + "|" + CStr(BBB(I))<BR>Next I<BR>MsgBox DName''''''''''''''''''''''这儿显示的数据就反映出是连续数据！！！！


End Sub<BR>'但重新运行后,第一次显示的数据好象又是改过的?不明白?


再深入下去,PCCAD的明细栏中的数据在重新生成明细表后,没有被改动过.


我的主要目的是能提出PCCAD明细表的数据,利用自己的数据库中常用的数据进行输入和编辑,从而能提高工作效率.

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

手边没有PCCAD，无法调试，哪位有的可以帮忙调试一下
页: [1]
查看完整版本: 得到字典中的数据后怎样修改呢?