AcDbRegAppTable(9) Invalid Entry

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

Для начала попробуй при помощи Editor.GetSelection выбрать примитивы в чертеже и передать их в эту функцию. Затем посмотри будет ли чертеж испорчен. Если нет - значит ищи ошибки у себя в другой части программы.

[Atomohod]

Затем посмотри будет ли чертеж испорчен

Проверил двумя способами, как при помощи Editor.GetSelection так и просто исключением вызова моего проблемного метода в коде. Результат такой: при помощи Editor.GetSelection раз через раз приводит к появлению ошибки AcDbRegAppTable(9) Invalid Entry, во втором случае все нормально - вызов метода исключен из кода, ошибок не возникает. Значит мой код вызывает ошибку при присвоении xdata, но как понять где?
Где еще можно покопаться?

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

Результат такой: при помощи Editor.GetSelection раз через раз приводит к появлению ошибки AcDbRegAppTable(9) Invalid Entry

Что такое "раз через раз"? Точнее пожалуйста.
И что делает acCurDb.GetBuildingAreaNumber();

[Atomohod]

Раз через раз - делаю серию запусков своего кода из 10 запусков после 2-3 при проверке через Audit получаю ошибку AcDbRegAppTable(9) Invalid Entry.

И что делает acCurDb.GetBuildingAreaNumber();

Запрашивает номер строительного района из свойств чертежа.

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

1. public static string GetBuildingAreaNumber(this Database db)
2.         {
3.             DatabaseSummaryInfoBuilder sumInfo = new DatabaseSummaryInfoBuilder(db.SummaryInfo);
4.             var areaNumber = sumInfo.Subject;
5.             if (areaNumber.Length > 0)
6.             {
7.                 return areaNumber;
8.             }
9.             else
10.             {
11.                 throw new NullReferenceException("Set construction area number in source drawing by Drawing properties => subject");
12.             }
13.         }

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

Я проверял такой код:

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

1. using Autodesk.AutoCAD.ApplicationServices;
2. using Autodesk.AutoCAD.DatabaseServices;
3. using Autodesk.AutoCAD.EditorInput;
4. using Autodesk.AutoCAD.Runtime;
5.  
6. // This line is not mandatory, but improves loading performances
7. [assembly: CommandClass(typeof(TestXdata.MyCommands))]
8.  
9. namespace TestXdata
10. {
11.   public class MyCommands
12.   {
13.     [CommandMethod("TestXdata")]
14.     public void TestXdataHandler()
15.     {
16.       Document doc = Application.DocumentManager.MdiActiveDocument;
17.       if (doc == null) return;
18.       Editor ed = doc.Editor;
19.       PromptSelectionResult rs = ed.GetSelection();
20.       while (rs.Status == PromptStatus.OK && rs.Value.Count > 0)
21.       {
22.         ObjectIdCollection ids = new ObjectIdCollection(rs.Value.GetObjectIds());
23.         AttachXDataToSelectionSetObjects(ref ids, doc.Database);
24.         rs = ed.GetSelection();
25.       }
26.     }
27.     public static void AttachXDataToSelectionSetObjects(ref ObjectIdCollection ids, Database db)
28.     {
29.       string appName = "GreenSnake";
30.       string xdataStr = db.SummaryInfo.Subject;
31.       if (ids.Count > 0)
32.       {
33.         using (Transaction tr = db.TransactionManager.StartTransaction())
34.         {
35.           RegAppTable regTab = tr.GetObject(db.RegAppTableId, OpenMode.ForWrite) as RegAppTable;
36.           if (!regTab.Has(appName))
37.           {
38.             RegAppTableRecord regTabRec = new RegAppTableRecord();
39.             regTabRec.Name = appName;
40.             regTab.Add(regTabRec);
41.             tr.AddNewlyCreatedDBObject(regTabRec, true);
42.           }
43.           tr.Commit();
44.         }
45.         using (Transaction tr = db.TransactionManager.StartTransaction())
46.         {
47.           using (ResultBuffer rb = new ResultBuffer())
48.           {
49.             rb.Add(new TypedValue((int)DxfCode.ExtendedDataRegAppName, appName));
50.             rb.Add(new TypedValue((int)DxfCode.ExtendedDataAsciiString, xdataStr));
51.  
52.             foreach (ObjectId id in ids)
53.             {
54.               Entity ent = tr.GetObject(id, OpenMode.ForWrite) as Entity;
55.               if (ent != null) ent.XData = rb;
56.             }
57.           }
58.           tr.Commit();
59.         }
60.       }
61.     }
62.   }
63. }

Наверное раз 50 запустил. Потом _AUDIT - никаких ошибок нет. Так что ищи у себя дальше ошибки.

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

Я внес правки, но это не сработало, по-прежнему

AcDbRegAppTable(9)                Invalid Entry
AcDbRegAppTable(9)                was not repaired.

Я думаю что там еще должны были быть ошибки. Давай полный лог.

[Atomohod]

Давай полный лог.

Код: [Выделить]

Command: _netload
Command: SYNCDRAWINGS
Regenerating model.

Dimension disassociated.
Dimension disassociated.
Command: '_zoom
Specify corner of window, enter a scale factor (nX or nXP), or
[All/Center/Dynamic/Extents/Previous/Scale/Window/Object] <real time>: _e Regenerating model.

Command: AUDIT

Fix any errors detected? [Yes/No] <N>:



Auditing Header


Auditing Tables


Auditing Entities Pass 1

Pass 1 26600   objects audited
Auditing Entities Pass 2

AcDbRegAppTable(9)                Invalid Entry
AcDbRegAppTable(9)                was not repaired.
Pass 2 26600   objects audited
Auditing Blocks


 161     Blocks audited



Auditing AcDsRecords


Total errors found 1 fixed 0

Erased 0 objects


Automatic save to C:\Users\Paragon\appdata\local\temp\Drawing1_1_1_1179.sv$ ...

Command:

[Atomohod]

Так что ищи у себя дальше ошибки.

В каком направлении искать? Объекты я больше не передаю-пользуюсь ObjectIdCollection, транзакции разделил на две раздельные. Что еще можно исключить?

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

Atomohod,
Мой код у тебя тоже вызывает ошибки в файле?

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

Что еще можно исключить?

Ну например мне не нравится throw у тебя в GetBuildingAreaNumber. В данном случае вроде бы ничего, но если бы ты вызывал этот код внутри транзакции и throw вызвалось, то транзакция была бы незавершенной.

[Atomohod]

Мой код у тебя тоже вызывает ошибки в файле?

В моем случае он не отрабатывает

Код: [Выделить]

Command: TESTXDATA

Select objects: Specify opposite corner: 56895 found

Select objects:
; error: bad argument type: lentityp nil

Select objects:

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

Atomohod,
Такое впечатление, что у тебя работает не мой код.
Такая ошибка возникает в VisualLisp:

Код: [Выделить]

; error: bad argument type: lentityp nil

[Atomohod]

у тебя работает не мой код

Код Ваш на C#, мой тоже полностью на нем. VisualLisp точно у меня нигде не применяется я его не знаю. Откуда он вызывается я теряюсь в догадках - никакие аргументы я никуда не передаю.

[Atomohod]

Вот видео работы кода у меня

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

Atomohod,
1. Измени имя команды.
2. Как записывать видео для нашего форума у меня в подписи. На твоём видео кроме того, что ты показал в конце сообщение об ошибке я ничего разглядеть не смог.
3. Похоже у тебя в AutoCAD загружены еще какие-то приложения, возможно на VisualLisp, использующие реакторы.
Дальше я пас. Я проверил работоспособность кода и убедился, что он не портит чертеж. Идей, что именно у тебя может портить  чертеж, у меня не осталось. Надеюсь, что у тебя в проекте CopyLocal установлено в False и ссылки идут на библиотеки именно той версии и разрядности, что и у AutoCAD, который ты используешь, что на этот AutoCAD установлены все обновления, что он совместим с той Windows, которая у тебя установлена, и т.д. и т.п.