Установка текущего слоя

[Andrey]

Добрый день!
Есть задача: в процессе выполнения программы поменять текущие значения слоя, цвета, веса линии,
дать пользователю нанести полилинию (так чтобы в прцессе нанесения были выставлены новые текущие значения)
и вернуть исходные текущие значения.
Код:

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

1. using Autodesk.AutoCAD.ApplicationServices;
2. using Autodesk.AutoCAD.Colors;
3. using Autodesk.AutoCAD.DatabaseServices;
4. using Autodesk.AutoCAD.EditorInput;
5. using Autodesk.AutoCAD.Runtime;
6. using AcAp = Autodesk.AutoCAD.ApplicationServices.Application;
7. using AcCl = Autodesk.AutoCAD.Colors.Color;
8.  
9. namespace AcadTest
10. {
11.     public class Commands
12.     {
13.         [CommandMethod("testCmd")]
14.         public void CmdTest()
15.         {
16.             Document acDoc = AcAp.DocumentManager.MdiActiveDocument;
17.             if (acDoc == null)
18.                 return;
19.             Database acCurDb = acDoc.Database;
20.             Editor ed = acDoc.Editor;
21.  
22.             using (DocumentLock docLock = acDoc.LockDocument())
23.             {
24.                 AcCl CurrentColor = acCurDb.Cecolor;
25.                 acCurDb.Cecolor = Color.FromColorIndex(ColorMethod.None, 30);
26.  
27.                 LineWeight CurrentLWHT = acCurDb.Celweight;
28.                 acCurDb.Celweight = LineWeight.LineWeight100;
29.  
30.                 ObjectId CurrentLayerID = acCurDb.Clayer;
31.                 using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())
32.                 {
33.                     LinetypeTable acLineTypTbl = acTrans.GetObject(acCurDb.LinetypeTableId, OpenMode.ForWrite) as LinetypeTable;
34.                     LayerTable acLyrTbl = acTrans.GetObject(acCurDb.LayerTableId, OpenMode.ForWrite) as LayerTable;
35.  
36.                     if (!acLyrTbl.Has("New Layer"))
37.                     {
38.                         LayerTableRecord acLyrTblRec = new LayerTableRecord();
39.  
40.                         acLyrTblRec.Name = "New Layer";
41.  
42.                         acLyrTbl.UpgradeOpen();
43.                         acLyrTbl.Add(acLyrTblRec);
44.                         acTrans.AddNewlyCreatedDBObject(acLyrTblRec, true);
45.                         ed.WriteMessage("\n'New Layer' created");
46.                     }
47.                     acCurDb.Clayer = acLyrTbl["New Layer"];
48.                     acTrans.Commit();
49.                 }
50.                 acDoc.SendStringToExecute("_PLINE ", false, false, false);
51.  
52.                 //AcadApplication acAppComObj = (AcadApplication)Marshal.GetActiveObject("AutoCAD.Application.19");
53.                 //acAppComObj.ActiveDocument.SendCommand("_PLINE ");
54.  
55.                 acCurDb.Cecolor = CurrentColor;
56.                 acCurDb.Clayer = CurrentLayerID;
57.                 acCurDb.Celweight = CurrentLWHT;
58.             }
59.         }
60.     }
61. }
62.  

В итоге слой создаётся, но не устанавливается в текущие, так же как и цвет и вес.
Пробовал Jig - результат такой же.

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

1) Это вынести за пределы транзакции.

acCurDb.Clayer = acLyrTbl["New Layer"];

2) Этот код выполняется асинхронно, т.е. уже после выполнения команды testCmd

acDoc.SendStringToExecute("_PLINE ", false, false, false);

Соответственно команда _PLINE выполнится тогда, когда ты уже восстановишь исходное состояние текущего слоя, цвета и веса линии.

[Andrey]

Подкоректировал код и вызываю отрисовку полилинии через COM

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

1.   public void CmdTest()
2.         {
3.             Document acDoc = AcAp.DocumentManager.MdiActiveDocument;
4.             if (acDoc == null)
5.                 return;
6.             Database acCurDb = acDoc.Database;
7.             Editor ed = acDoc.Editor;
8.  
9.             using (DocumentLock docLock = acDoc.LockDocument())
10.             {
11.                 AcCl CurrentColor = acCurDb.Cecolor;
12.                 acCurDb.Cecolor = Color.FromColorIndex(ColorMethod.None, 30);
13.  
14.                 LineWeight CurrentLWHT = acCurDb.Celweight;
15.                 acCurDb.Celweight = LineWeight.LineWeight100;
16.  
17.                 ObjectId CurrentLayerID = acCurDb.Clayer;
18.                 ObjectId newLayer = new ObjectId();
19.                 using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())
20.                 {
21.                     LinetypeTable acLineTypTbl = acTrans.GetObject(acCurDb.LinetypeTableId, OpenMode.ForWrite) as LinetypeTable;
22.                     LayerTable acLyrTbl = acTrans.GetObject(acCurDb.LayerTableId, OpenMode.ForWrite) as LayerTable;
23.  
24.                     if (!acLyrTbl.Has("New Layer"))
25.                     {
26.                         LayerTableRecord acLyrTblRec = new LayerTableRecord();
27.  
28.                         acLyrTblRec.Name = "New Layer";
29.                         acLyrTbl.UpgradeOpen();
30.                         acLyrTbl.Add(acLyrTblRec);
31.                         acTrans.AddNewlyCreatedDBObject(acLyrTblRec, true);
32.                         ed.WriteMessage("\n'New Layer' created");
33.                         newLayer = acLyrTblRec.ObjectId;
34.                     }
35.  
36.                     acTrans.Commit();
37.                 }
38.                 acCurDb.Clayer = newLayer;
39.  
40.                 AcadApplication acAppComObj = (AcadApplication)Marshal.GetActiveObject("AutoCAD.Application.19");
41.                 acAppComObj.ActiveDocument.SendCommand("_PLINE ");
42.  
43.                 acCurDb.Cecolor = CurrentColor;
44.                 acCurDb.Clayer = CurrentLayerID;
45.                 acCurDb.Celweight = CurrentLWHT;
46.             }
47.         }
48.  

Безрезультатно(

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

Подкоректировал код и вызываю отрисовку полилинии через COM

А я что обещал что так будет работать?

Безрезультатно(

Этого как раз следовало ожидать.
Почитай здесь: http://adn-cis.org/forum/index.php?topic=810.msg3198#msg3198
Для AutoCAD 2015 будут особенности, так как приведенные выше алгоритмы не работают.
Для 2015 читай пример использования Editor.CommandAsync для вызова команды с ожиданием её завершения здесь: http://adn-cis.org/zumirovanie-do-granicz-okna-s-ispolzovaniem-commandasync.html

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

Замечание на будущее. Так писать не следует:

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

1. AcadApplication acAppComObj = (AcadApplication)Marshal.GetActiveObject("AutoCAD.Application.19");

Таким образом ты ограничиваешь свой код версиями 2013 и 2014. В общем случае должно быть:

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

1. AcadApplication acAppComObj = AcAp.Application.AcadApplication as AcadApplication;

или даже:

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

1. dynamic acAppComObj = AcAp.Application.AcadApplication;

[Andrey]

Попробовал таким образом:

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

1. using Autodesk.AutoCAD.ApplicationServices;
2. using Autodesk.AutoCAD.Colors;
3. using Autodesk.AutoCAD.DatabaseServices;
4. using Autodesk.AutoCAD.EditorInput;
5. using Autodesk.AutoCAD.Runtime;
6. using System.Runtime.InteropServices;
7. using AcAp = Autodesk.AutoCAD.ApplicationServices.Application;
8. using AcCl = Autodesk.AutoCAD.Colors.Color;
9.  
10. [assembly: CommandClass(typeof(AcadTest.Commands))]
11.  
12. namespace AcadTest
13. {
14.     public class Commands
15.     {
16.         [DllImport("accore.dll", CallingConvention = CallingConvention.Cdecl, CharSet = CharSet.Unicode, EntryPoint = "acedCmd")]
17.         private static extern int acedCmd(System.IntPtr vlist);
18.  
19.         [CommandMethod("testCmd")]
20.         public void CmdTest()
21.         {
22.             Document acDoc = AcAp.DocumentManager.MdiActiveDocument;
23.             if (acDoc == null)
24.                 return;
25.             Database acCurDb = acDoc.Database;
26.             Editor ed = acDoc.Editor;
27.  
28.             using (DocumentLock docLock = acDoc.LockDocument())
29.             {
30.                 AcCl CurrentColor = acCurDb.Cecolor;
31.                 acCurDb.Cecolor = Color.FromColorIndex(ColorMethod.None, 30);
32.  
33.                 LineWeight CurrentLWHT = acCurDb.Celweight;
34.                 acCurDb.Celweight = LineWeight.LineWeight100;
35.  
36.                 ObjectId CurrentLayerID = acCurDb.Clayer;
37.                 ObjectId newLayer = new ObjectId();
38.                 using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())
39.                 {
40.                     LinetypeTable acLineTypTbl = acTrans.GetObject(acCurDb.LinetypeTableId, OpenMode.ForWrite) as LinetypeTable;
41.                     LayerTable acLyrTbl = acTrans.GetObject(acCurDb.LayerTableId, OpenMode.ForWrite) as LayerTable;
42.  
43.                     if (!acLyrTbl.Has("New Layer"))
44.                     {
45.                         LayerTableRecord acLyrTblRec = new LayerTableRecord();
46.  
47.                         acLyrTblRec.Name = "New Layer";
48.                         acLyrTbl.UpgradeOpen();
49.                         acLyrTbl.Add(acLyrTblRec);
50.                         acTrans.AddNewlyCreatedDBObject(acLyrTblRec, true);
51.                         ed.WriteMessage("\n'New Layer' created");
52.                         newLayer = acLyrTblRec.ObjectId;
53.                     }
54.                     else
55.                         newLayer = acLyrTbl["New Layer"];
56.  
57.                     acTrans.Commit();
58.                 }
59.                 acCurDb.Clayer = newLayer;
60.                 ed.Regen();
61.                 ed.UpdateScreen();
62.  
63.                 ResultBuffer rb = new ResultBuffer();
64.                 rb.Add(new TypedValue(5005, "_.PLINE"));
65.  
66.                 acedCmd(rb.UnmanagedObject);
67.  
68.                 bool quit = false;
69.                 while (!quit)
70.                 {
71.                     string cmdNames = (string)Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("CMDNAMES");
72.                     if (cmdNames.ToUpper().IndexOf("PLINE") >= 0)
73.                     {
74.                         rb = new ResultBuffer();
75.                         rb.Add(new TypedValue(5005, "\\"));
76.                         acedCmd(rb.UnmanagedObject);
77.                     }
78.                     else
79.                         quit = true;
80.                 }
81.  
82.                 acCurDb.Cecolor = CurrentColor;
83.                 acCurDb.Clayer = CurrentLayerID;
84.                 acCurDb.Celweight = CurrentLWHT;
85.             }
86.         }
87.     }
88. }

Результат:
https://screencast.autodesk.com/Main/Details/02d880d6-c130-4376-a02b-d111cb83a44b
В моем варианте отсутствуют параметры ввода и контекстное меню для полилинии. Можно это исправить?

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

В моем варианте отсутствуют параметры ввода и контекстное меню для полилинии. Можно это исправить?

Установи системную переменную CMDECHO в 1 на время выполнения команды _PLINE

[Andrey]

Спасибо!
Попробовал с блоком

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

1.                 ResultBuffer rb = new ResultBuffer();
2.  
3.                 rb.Add(new TypedValue(5005, "_.INSERT"));
4.                 rb.Add(new TypedValue(5005, "PICKET"));
5.                 rb.Add(new TypedValue(5005, "Scale"));
6.                 rb.Add(new TypedValue(5005, "1"));
7.  
8.                 acedCmd(rb.UnmanagedObject);
9.  
10.                 short echo = (short)AcAp.GetSystemVariable("CMDECHO");
11.                 if (echo == 0)
12.                     AcAp.SetSystemVariable("CMDECHO", 1);
13.  
14.                 bool quit = false;
15.                 while (!quit)
16.                 {
17.                     string cmdNames = (string)AcAp.GetSystemVariable("CMDNAMES");
18.                     if (cmdNames.ToUpper().IndexOf("INSERT") >= 0)
19.                     {
20.                         rb = new ResultBuffer();
21.                         rb.Add(new TypedValue(5005, "\\"));
22.                         acedCmd(rb.UnmanagedObject);
23.                     }
24.                     else
25.                         quit = true;
26.                 }
27.  
28.                 AcAp.SetSystemVariable("CMDECHO", echo);
29.  

Но значения в панеле свойств и в панелях слоёв и цвета разные?
https://screencast.autodesk.com/Main/Details/a1541329-3d8a-472d-8583-0727db16eb7a

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

Внешне похоже на глюк, так как если у тебя ничего не выбрано, то цвет и слой должны быть одинаковы и там и там. Но с учетом того, что ты показал только часть кода я ничего сказать не могу. Возможно не закрыта транзакция.
Для полилинии у тебя всё получилось нормально?

[Andrey]

Код точно такой же как и для полилинии

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

1. using Autodesk.AutoCAD.ApplicationServices;
2. using Autodesk.AutoCAD.Colors;
3. using Autodesk.AutoCAD.DatabaseServices;
4. using Autodesk.AutoCAD.EditorInput;
5. using Autodesk.AutoCAD.Runtime;
6. using System.Runtime.InteropServices;
7. using AcAp = Autodesk.AutoCAD.ApplicationServices.Application;
8. using AcCl = Autodesk.AutoCAD.Colors.Color;
9.  
10. [assembly: CommandClass(typeof(AcadTest.Commands))]
11.  
12. namespace AcadTest
13. {
14.     public class Commands
15.     {
16.         [DllImport("accore.dll", CallingConvention = CallingConvention.Cdecl, CharSet = CharSet.Unicode, EntryPoint = "acedCmd")]
17.         private static extern int acedCmd(System.IntPtr vlist);
18.  
19.         [CommandMethod("testCmd")]
20.         public void CmdTest()
21.         {
22.             Document acDoc = AcAp.DocumentManager.MdiActiveDocument;
23.             if (acDoc == null)
24.                 return;
25.             Database acCurDb = acDoc.Database;
26.             Editor ed = acDoc.Editor;
27.  
28.             using (DocumentLock docLock = acDoc.LockDocument())
29.             {
30.                 AcCl CurrentColor = acCurDb.Cecolor;
31.                 acCurDb.Cecolor = Color.FromColorIndex(ColorMethod.None, 30);
32.  
33.                 LineWeight CurrentLWHT = acCurDb.Celweight;
34.                 acCurDb.Celweight = LineWeight.LineWeight100;
35.  
36.                 ObjectId CurrentLayerID = acCurDb.Clayer;
37.                 ObjectId newLayer = new ObjectId();
38.                 using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())
39.                 {
40.                     LinetypeTable acLineTypTbl = acTrans.GetObject(acCurDb.LinetypeTableId, OpenMode.ForWrite) as LinetypeTable;
41.                     LayerTable acLyrTbl = acTrans.GetObject(acCurDb.LayerTableId, OpenMode.ForWrite) as LayerTable;
42.  
43.                     if (!acLyrTbl.Has("New Layer"))
44.                     {
45.                         LayerTableRecord acLyrTblRec = new LayerTableRecord();
46.  
47.                         acLyrTblRec.Name = "New Layer";
48.                         acLyrTbl.UpgradeOpen();
49.                         acLyrTbl.Add(acLyrTblRec);
50.                         acTrans.AddNewlyCreatedDBObject(acLyrTblRec, true);
51.                         ed.WriteMessage("\n'New Layer' created");
52.                         newLayer = acLyrTblRec.ObjectId;
53.                     }
54.                     else
55.                         newLayer = acLyrTbl["New Layer"];
56.  
57.                     acTrans.Commit();
58.                 }
59.                 acCurDb.Clayer = newLayer;
60.  
61.                 ResultBuffer rb = new ResultBuffer();
62.  
63.                 rb.Add(new TypedValue(5005, "_.INSERT"));
64.                 rb.Add(new TypedValue(5005, "PICKET"));
65.                 rb.Add(new TypedValue(5005, "Scale"));
66.                 rb.Add(new TypedValue(5005, "1"));
67.  
68.                 acedCmd(rb.UnmanagedObject);
69.  
70.                 short echo = (short)AcAp.GetSystemVariable("CMDECHO");
71.                 if (echo == 0)
72.                     AcAp.SetSystemVariable("CMDECHO", 1);
73.  
74.                 bool quit = false;
75.                 while (!quit)
76.                 {
77.                     string cmdNames = (string)AcAp.GetSystemVariable("CMDNAMES");
78.                     if (cmdNames.ToUpper().IndexOf("INSERT") >= 0)
79.                     {
80.                         rb = new ResultBuffer();
81.                         rb.Add(new TypedValue(5005, "\\"));
82.                         acedCmd(rb.UnmanagedObject);
83.                     }
84.                     else
85.                         quit = true;
86.                 }
87.  
88.                 AcAp.SetSystemVariable("CMDECHO", echo);
89.  
90.                 acCurDb.Cecolor = CurrentColor;
91.                 acCurDb.Clayer = CurrentLayerID;
92.                 acCurDb.Celweight = CurrentLWHT;
93.             }
94.         }
95.     }
96. }

[Andrey]

Да, с полилинией всё отработало как надо.

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

Хм. Попробуй пройтись под отладчиком. Явных ошибок я не вижу.

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

Я проверил под чистым AutoCAD 2013 SP3 - ситуация точно такая же как у тебя. Фактически не обновляется Панель свойств. Если её выключить и включить, то она обновится и станет нормальной.

[Andrey]

Почему-то при попытке нанести блок происходит "залипание" панели свойств...
Попробовал нанесение полилинии записать в событие "Button_Click" для кнопки в PaletteSet
https://screencast.autodesk.com/Main/Details/e3326b97-1eb0-4251-b073-33b619718452
И ничего не получилось...
Проект в Autocad Civil 2014

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

Попробовал нанесение полилинии записать в событие "Button_Click" для кнопки в PaletteSet
https://screencast.autodesk.com/Main/Details/e3326b97-1eb0-4251-b073-33b619718452
И ничего не получилось...
Проект в Autocad Civil 2014

Попробуй воспользоваться Editor.StartUserInteraction: http://adndevblog.typepad.com/autocad/2012/05/taking-mouse-inputs-from-a-modal-dialog-box.html
Впрочем это тоже скорее всего не поможет. Синхронно запустить команду можно только из контекста документа, а код из палитры выполняется в контексте приложения. Выход может быть такой. В событие "Button_Click" ты запускаешь (при помощи Document.SendStringToExecute) команду из которой уже и строишь полилинию (т.е. в твоём случае это команда TESTCMD). Но она будет выполнена асинхронно.