Как создать SAFEARRAY для создания AddRegion

[maratovich]

Правда, там ни до чего мне добраться не удалось - ни до пространства модели, ни до коллекции блоков / стилей / слоев.

Так и должно быть. Это позднее связывание.

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

Правда, там ни до чего мне добраться не удалось - ни до пространства модели, ни до коллекции блоков / стилей / слоев.

Так и должно быть. Это позднее связывание.

Но ошибку вываливать на этом не должно.

[Привалов Дмитрий]

Сейчас попробовал через консольное приложение с поздним связыванием достучаться хотя бы до пространства модели текущего документа - не получилось.

У меня валялся где-то код, можно найти и допилить
Получится что-то типа:
https://adn-cis.org/forum/index.php?topic=9657.0
Если нужно конечно?

[Алексей Кулик]

Наверняка какие-то настройки не выставил. Я уже даже не удивляюсь этому

[Алексей Кулик]

Привалов Дмитрий, я просто пытался из VB через позднее связывание достучаться до текущего документа и его элементов.

[maratovich]

Как ранее писал идею - создать dll и подключать.
Но факир был пьян и фокус не удался.
Dll  на VB6 получается х32 и на  vb.net х64 не подключается, разрядность не стыкуется.
 

[trir]

Dll  на VB6 получается х32 и на  vb.net х64 не подключается, разрядность не стыкуется.

это не смертельно - в AutoDESK в своё время это побороли, но это ОЧЕНЬ большой геморрой
https://docs.microsoft.com/ru-ru/windows/win32/com/using-the-system-supplied-surrogate?redirectedfrom=MSDN

[Привалов Дмитрий]

Как ранее писал идею - создать dll и подключать.
Но факир был пьян и фокус не удался.
Dll  на VB6 получается х32 и на  vb.net х64 не подключается, разрядность не стыкуется.
 

Скорее всего остается смешать entmakex для создания контура
вызвать командный метод "_region"
И затем попробовать выбрать созданный контур.
Наверное такое возможно?

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

Как ранее писал идею - создать dll и подключать.
Но факир был пьян и фокус не удался.
Dll  на VB6 получается х32 и на  vb.net х64 не подключается, разрядность не стыкуется.
 

Скорее всего остается смешать entmakex для создания контура
вызвать командный метод "_region"
И затем попробовать выбрать созданный контур.
Наверное такое возможно?

Безусловно.

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

Проверил. Через подключение лиспа получается создать область:

Код - Auto/Visual Lisp [Выбрать]

1. (defun create-region (handles-list)
2.  
3.   (setq mspace (vlax-get-property
4.                  (vla-get-activedocument (vlax-get-acad-object))
5.                  'modelspace
6.                )
7.   )
8.  
9.   (vlax-invoke
10.     mspace
11.     'addregion
12.     (mapcar (function
13.               (lambda (handle) (vlax-ename->vla-object (handent handle)))
14.             )
15.             handles-list
16.     )
17.   )
18.  
19.   (setvar "users1" (vlax-get-property (vlax-ename->vla-object (entlast)) 'handle))
20.   (princ)
21. )

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

1. using System;
2. using System.Runtime.InteropServices;
3.  
4. namespace AcadLateCOM
5. {
6.     class Program
7.     {
8.         static void Main(string[] args)
9.         {            
10.             dynamic acad = Marshal.GetActiveObject("AutoCAD.Application");
11.             dynamic thisDrawing = acad.ActiveDocument;
12.  
13.             double[] centerPoint = new[] { 5.0, 3.0, 0.0 };
14.             double
15.                 radius = 2.0,
16.                 startAngle = 0.0,
17.                 endAngle = Math.PI;
18.  
19.             dynamic
20.                 arc = thisDrawing.ModelSpace.AddArc
21.                     (centerPoint, radius, startAngle, endAngle),
22.                 line = thisDrawing.ModelSpace.AddLine
23.                     (arc.StartPoint, arc.EndPoint);            
24.  
25.             thisDrawing.SendCommand($"(create-region '(\"{arc.Handle}\" \"{line.Handle}\")) ");
26.  
27.             string regionHandle = thisDrawing.GetVariable("users1");            
28.         }
29.     }
30. }

Код примитивен, т.к. написан только для проверки идеи.

[maratovich]

Через подключение лиспа получается создать область:

Согласен, об этом и не спорим.
Но когда объектов 100500 штук.  ...
Да хотелось использовать стандартное.

[Привалов Дмитрий]

Согласен, об этом и не спорим.
Но когда объектов 100500 штук.  ...
Да хотелось использовать стандартное.

Может объектов 100-500 штук? А то 100500 чет слишком большое число, тут CAD другую систему надо искать, для отображения REGION.

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

Но когда объектов 100500 штук.  ...
Да хотелось использовать стандартное.

Вряд ли лисп будет работать медленнее, чем код из подключаемой через COM сторонней DLL. Единственное что добавляется - преобразования handle-объект и обратно. Тоже не думаю, что это сильно повлияет на скорость работы.
Насчёт стандартного - я не нашёл ничего для того, чтобы напрямую в .NET создать массив объектов, который бы принял метод создания области. Вроде даже есть специальный метод CreateTypedArray, но он не может создавать массив из объектов AutoCAD.

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

Единственное что добавляется - преобразования handle-объект и обратно.

Это на уровне открытия объекта (Transaction.GetObject(...)) в AutoCAD .NET API.

[maratovich]

Можешь попробовать такую функцию для преобразования обычного Array в SafeArray(VT_ARRAY|VT_DISPATCH)
Код - vb.net [Выбрать]

    Public Function MarshalVariantIDispatchArray(ByVal ObjIn As Object) _
                   As <System.Runtime.InteropServices.MarshalAsAttribute( _
                       System.Runtime.InteropServices.UnmanagedType.SafeArray, _
                       SafeArraySubType:=System.Runtime.InteropServices.VarEnum.VT_DISPATCH)> Object
      Return ObjIn
    End Function

Александр, здесь я не силён,  если это возможно - добавьте чтобы было = VT_ARRAY|VT_DISPATCH|VT_BYREF

вот тут http://rsdn.org/forum/com/591449.all есть рабочее решение и говорят что без VT_BYREF будет ошибка