Почему выбранный объект не выделяется

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

Сколько полей можно добавлять в текстовый примитив? Если несколько, то на каждое поле можно повесить гиперссылку. Так?

Да. Так возможно.

[Борис_С]

Короче говоря - нарисуйте то что вам нужно получить средствами AutoCAD, а мы постараемся показать как это сделать программно.

Александр, добрый день!
Хочу воспользоваться вашим предложением.
Подскажите, пожалуйста, как вставить поле в текстовый примитив.
Спасибо.

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

Александр, добрый день!
Хочу воспользоваться вашим предложением.
Подскажите, пожалуйста, как вставить поле в текстовый примитив.
Спасибо.

Это я показал выше: https://adn-cis.org/forum/index.php?topic=10156.msg46216#msg46216

[Борис_С]

Вы написали, что покажете, как это сделать программно.

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

Вы написали, что покажете, как это сделать программно.

Укажите пример текста (например, "Мой сайт") и пример гиперссылки (например, "https://adn-cis.org")

[Борис_С]

Винт B.М5-6g*20.36.016 ГОСТ 1491-80.
Удалить текст ГОСТ 1491-80 и вставить в это место поле с тем же текстом и адресом www.mail.ru

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

Не слишком чисто и красиво, но сойдёт:

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

1. using Autodesk.AutoCAD.ApplicationServices;
2. using Autodesk.AutoCAD.DatabaseServices;
3. using Autodesk.AutoCAD.EditorInput;
4. using Autodesk.AutoCAD.Runtime;
5.  
6. #pragma warning disable 0618
7.  
8. // This line is not mandatory, but improves loading performances
9. [assembly: CommandClass(typeof(AddHyperInDBText.MyCommands))]
10.  
11. namespace AddHyperInDBText
12. {
13.   public class MyCommands
14.   {
15.     [CommandMethod("HReplace")]
16.     public void HReplace()
17.     {
18.       Document doc = Application.DocumentManager.MdiActiveDocument;
19.       if (doc == null) return;
20.       Editor ed = doc.Editor;
21.       PromptEntityOptions opt = new PromptEntityOptions("\nВыберите однострочный текст: ");
22.       opt.SetRejectMessage("Это не однострочный текст!");
23.       opt.AddAllowedClass(typeof(DBText), false);
24.       PromptEntityResult res = ed.GetEntity(opt);
25.       if (res.Status == PromptStatus.OK)
26.       {
27.         using (DBText text = res.ObjectId.Open(OpenMode.ForWrite) as DBText)
28.         {
29.           string str = text.TextString;
30.           if (str.Contains("ГОСТ 1491-80")) {
31.             str = str.Replace("ГОСТ 1491-80", "%<\\AcVar \\href \"https://www.mail.ru##ГОСТ 1491-80#1\">%");
32.             text.TextString = str;
33.           }
34.         }
35.         ed.Command("_UPDATEFIELD", res.ObjectId, "");
36.       }
37.     }
38.   }
39. }

[Борис_С]

Спасибо.
В какой сборке сидит Autodesk.AutoCAD.Runtime?
Транслятор ругается на ed.Command. Может потому, что не подключен Autodesk.AutoCAD.Runtime.

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

Спасибо.
В какой сборке сидит Autodesk.AutoCAD.Runtime?
Транслятор ругается на ed.Command. Может потому, что не подключен Autodesk.AutoCAD.Runtime.

Нужно подключить acmgd.dll, acdbmgd.dll, accoremgd.dll

[Борис_С]

Они все подключены.

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

Версия AutoCAD?

[Борис_С]

2020

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

2020

Значит снова что-то не то сделал. Класс Editor с методом Command в пространстве имён  Autodesk.AutoCAD.EditorInput, которая из accoremgd.dll

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

Так без команд:

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

1. using Autodesk.AutoCAD.ApplicationServices;
2. using Autodesk.AutoCAD.DatabaseServices;
3. using Autodesk.AutoCAD.EditorInput;
4. using Autodesk.AutoCAD.Runtime;
5.  
6. #pragma warning disable 0618
7.  
8. // This line is not mandatory, but improves loading performances
9. [assembly: CommandClass(typeof(AddHyperInDBText.MyCommands))]
10.  
11. namespace AddHyperInDBText
12. {
13.   public class MyCommands
14.   {
15.     [CommandMethod("HReplace")]
16.     public void HReplace()
17.     {
18.       Document doc = Application.DocumentManager.MdiActiveDocument;
19.       if (doc == null) return;
20.       Editor ed = doc.Editor;
21.       PromptEntityOptions opt = new PromptEntityOptions("\nВыберите однострочный текст: ");
22.       opt.SetRejectMessage("Это не однострочный текст!");
23.       opt.AddAllowedClass(typeof(DBText), false);
24.       PromptEntityResult res = ed.GetEntity(opt);
25.       if (res.Status == PromptStatus.OK)
26.       {
27.         using (DBText text = res.ObjectId.Open(OpenMode.ForWrite) as DBText)
28.         {
29.           string str = text.TextString;
30.           if (str.Contains("ГОСТ 1491-80")) {
31.             str = str.Replace("ГОСТ 1491-80", "%<\\AcVar \\href \"http://www.mail.ru##ГОСТ 1491-80#1\">%");
32.             text.TextString = str;
33.           }
34.         }
35.         doc.Database.EvaluateFields();
36.       }
37.     }
38.   }
39. }

[Борис_С]

Разобрался. Проект достался мне по-наследству. Там все dll брались из версии 2013.
Взял dll из ObjectArx 2020, но теперь задача не собирается.