nxy_918
发表于 2004-2-12 20:30:00
Private Function DjWriteNo(en As AcadEntity) As Boolean '图幅号写入索引图框的对象数据库<BR> Dim objAcadMap As AcadMap<BR> Dim objProj As Project<BR> Dim ODtb As ODTable<BR> Dim ODRecord As ODRecord,<BR> Dim ODrcs As ODRecords<BR> Dim ret As Boolean<BR> DjWriteNo = True<BR> Set objAcadMap = ThisDrawing.Application.GetInterfaceObject("AutocadMap.Application")<BR> Set objProj = objAcadMap.Projects(ThisDrawing)<BR> objProj.ProjectOptions.DontAddObjectsToSaveSet = True <BR> Set ODtb = objProj.ODTables.Item("cc")<BR> Set ODrcs = ODtb.GetODRecords<BR> ret = ODrcs.Init(en, True, True)<BR> If ret = True Then<BR> If ODrcs.IsDone = ture Then <BR> Set ODrcs = Nothing '该句不可剩<BR> Set ODRecord = ODtb.CreateRecord<BR> ODRecord.Item(0).Value = "dfdf"<BR> ODtb.GetODRecords.Update ODRecord '此处通不过<BR> End If <BR> End If<BR>End Function
efan2000
发表于 2004-2-12 20:57:00
没有环境，无法测试。
看帮助是说只能更新当前记录，那么可能是这样的：
Set ODRecord = ODtb.GetODRecords.Record<BR>ODRecord.Item(0).Value = "dfdf"<BR>ODtb.GetODRecords.Update ODRecord
自己试试对不对，多看看帮助吧。
nxy_918
发表于 2004-2-12 21:01:00
efan2000 其实这些帮助我都看了n遍了
在不行的话我只能把原有纪录上删除，在重新赋新值了