Записать объектные данные

[Александр Ривилис]

Мне кажется, что этот пример актуальнее и точнее: http://jprdintprev.autodesk.com/adn/servlet/devnote?siteID=4814862&id=17435757&linkID=4900588

[Захаров Максим]

Исключил вообще строку с вызовом ObjectData.Records. Не помогло. Попробую другой пример (http://jprdintprev.autodesk.com/adn/servlet/devnote?siteID=4814862&id=17435757&linkID=4900588)

[Захаров Максим]

Немного переработал функцию, но только в части обработки массива, все остальное взял от ADN.

Код - vb.net [Выбрать]

1. Public Shared Function FuncAddOD2(ByVal DataArray(,) As String, ByVal tableOBJ As ObjectData.Table, ByVal objID As ObjectId) As Boolean
2.         FuncAddOD2 = False
3.         If IsArray(DataArray) = False Then Exit Function
4.         Using lk As DocumentLock = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.LockDocument()
5.             Try
6.                 For k As Integer = 0 To DataArray.GetUpperBound(1)
7.                     Dim NameFl As String = DataArray(0, k) 'имя поля из массива
8.                     Dim NewVAl As String = DataArray(1, k) 'значение которое необходимо записать
9.                     Using odRecords As ObjectData.Records = tableOBJ.GetObjectTableRecords(0, objID, Constants.OpenMode.OpenForWrite, True)
10.                         'Dim odRecord As ObjectData.Record = odRecords.Item(0)
11.                         Dim odRecord As ObjectData.Record = Autodesk.Gis.Map.ObjectData.Record.Create()
12.                         tableOBJ.InitRecord(odRecord)
13.                         tableOBJ.AddRecord(odRecord, objID)
14.                     End Using
15.                     Using odRecords As ObjectData.Records = tableOBJ.GetObjectTableRecords(0, objID, Constants.OpenMode.OpenForWrite, True)
16.                         For Each rec As Record In odRecords
17.                             For i As Integer = 0 To rec.Count - 1
18.                                 Dim tblDefs As FieldDefinitions = tableOBJ.FieldDefinitions
19.                                 Dim column As FieldDefinition = Nothing
20.                                 column = tblDefs(i)
21.                                 If NameFl Like column.Name Then
22.                                     rec(i).Assign(NewVAl)
23.                                     odRecords.UpdateRecord(rec)
24.                                 End If
25.                             Next i
26.                         Next
27.                     End Using
28.                 Next k
29.             Catch ex As MapException
30.             Catch ex As System.AccessViolationException
31.             End Try
32.         End Using
33.         FuncAddOD2 = True
34.     End Function

Не помогает. Все тоже самое. На объеме 1300 объектов не работает. Вводишь MsgBox со счетчиком, и все нормально. Такое ощущение что что-то не успевает обновлятся

[Александр Ривилис]

            Catch ex As MapException
            Catch ex As System.AccessViolationException
            End Try

Вставь здесь печать отладочной информации. Хочу убедиться, что нет исключений.

[Дмитрий Загорулькин]

Попробуй без транзакций открывать таблицу и объекты.
Вообще, ещё раз обращаю внимание, что проблема может быть не в этом методе.

[Захаров Максим]

А как это сделать? Информация не выводится, либо фатальная ошибка либо вот это (это в режиме отладки). Проблема все таки наверное в этой функции потому что я повторяю если ввести в код MSgBox и нажать Enter 1300 раз то программа дорабатывает до конца, как надо. Транзакция закрыта. Хотя перехват ошибок введен

[trir]

почему у меня никаких проблем не возникает

Код - C# [Выбрать]

1.         public void AddAttr(ObjectId wid, Data.MyRecord wr, Autodesk.Gis.Map.ObjectData.Table wTbl)
2.         {
3.             AppServ.Document acDoc = AppServ.Application.DocumentManager.MdiActiveDocument;
4.             using (AppServ.DocumentLock acLckDoc = acDoc.LockDocument())
5.             {
6.                 using (Transaction acTrans = acDoc.Database.TransactionManager.StartTransaction())
7.                 {
8.                     using (Record odRecord = Record.Create())
9.                     {
10.                         wTbl.InitRecord(odRecord);
11.                         FieldDefinition fdef;
12.                         Data.FieldValue fval;
13.                         for (int i = 0; i < wTbl.FieldDefinitions.Count; i++)
14.                         {
15.                             fdef = wTbl.FieldDefinitions[i];
16.                             fval = wr.SearchField(fdef.Name);
17.                             if (fval != null)
18.                             {
19.                                 if (!fval.IsGeom)
20.                                 {
21.                                     odRecord[i].Assign(fval.GetString());
22.                                 }
23.                             }
24.                         }
25.                         wTbl.AddRecord(odRecord, wid);
26.                         acTrans.Commit();
27.                     }                    
28.                 }
29.             }
30.         }

1758 записей - полёт нормальный

[Захаров Максим]

А как Data.MyRecord wr получаем? Можно по подробнее, может мне действительно не стоит массивом пользоваться?

[trir]

я уже приводил ссылку на github
но дело не в массиве

[Дмитрий Загорулькин]

Возможно, причина в том, что у trir за одну транзакцию добавляется только одна запись, а не 1000 сразу.

[Захаров Максим]

Спасибо. Буду пробовать. Надеюсь trir добавлял несколько записей в один примитив, а не одну запись в один примитив

[trir]

добавлял несколько записей в один примитив

зачем?

[Захаров Максим]

Всем спасибо. Вроде пока все работает. Натолкнула идея trir и Дмитрия добавлять по одной записи в примитив, а не все сразу. Правда я использовал образец от ADN который Александр Ривилис подсказал.
А может я строки

Код - vb.net [Выбрать]

1.  Dim mapApp As MapApplication = HostMapApplicationServices.Application
2.  Dim activeProject As Project.ProjectModel = mapApp.ActiveProject
3.  Dim tableList As ObjectData.Tables = activeProject.ODTables 'забираем таблицы
4.  Dim tableOBJ As ObjectData.Table = mapApp.ActiveProject.ODTables.Item("CADASTRAL_PARCEL")

за пределы цикла вывел.
Раньше у меня было так создавался по координатам примитив (полилиния) затем открывалась таблица (4 строка). В любом случае по эксперементирую. А результат такой (это к вопросу зачем в один примитив несколько записей добавлять). Значения полей будут конечно же другими.

[trir]

А результат такой (это к вопросу зачем в один примитив несколько записей добавлять).

это одна запись
ты путаешь запись и поля