Почему не считывает свойство объекта Region

[Peacemaker_kiss]

Command: (setq aaaaa (vlax-ename->vla-object (car(entsel))))

Select object: #<VLA-OBJECT IAcadRegion 00000000b0ec3438>

Command: (vlax-get-property aaaaa 'Area)
95723.8

Command: (setq aaaaa (vlax-safearray->list (vlax-variant-value _regvar)))
(#<VLA-OBJECT IAcadRegion 00000000b0ec3438>)

Command: (vlax-get-property aaaaa 'Area)
; error: bad argument type: VLA-OBJECT (#<VLA-OBJECT IAcadRegion 00000000b0ec3438>)

Без комментариев, лишь открытый рот!!! Есть мнения?

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

Есть мнения?

Есть. Кто сказал что у списка есть свойство Area?

[Peacemaker_kiss]

Кто сказал что у списка есть свойство Area?

Вот я валенок!

[Peacemaker_kiss]

Только я что-то зашел в некий тупик, а как перейти от списка к объектам, чтобы наконец применить свойства объектов

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

Только я что-то зашел в некий тупик, а как перейти от списка к объектам, чтобы наконец применить свойства объектов

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

1. (setq aaaaa (vlax-safearray->list (vlax-variant-value _regvar)))
2. (foreach reg aaaaa
3.   (print (vlax-get-property reg 'Area))
4. )

[Peacemaker_kiss]

Изящно, спасибо

[Peacemaker_kiss]

Также, хочу спросить:
Преамбула:
а. в массиве, из которого получен список, лежат отрезки и полилинии (он получен при взрыве блока)
б. я не хочу применять команду _region из-за ее ограничений
в. я хочу применить команду _pedit, причем лишить пользователя возможности выбор объектов, а пусть макрос из полученного списка сделает мне объединение, в единую полилинию
г. но _pedit не работает со списками, ей необходимы наборы.
Вопрос:
Как мне, имея массив, список получить набор для передачи в _pedit
P.S. Памятуя о том, что я начинающий, делайте скидки на, пока зачастую, глупые вопросы
Спасибо за помощь

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

Как мне, имея массив, список получить набор для передачи в _pedit

1) Не массив, а список. В AutoLisp/VisualLisp нет массивов.
2) Для работы с наборами есть функции (ssadd) (ssdel) (ssget) и т.д.:
http://help.autodesk.com/cloudhelp/2015/ENU/AutoCAD-AutoLISP/files/GUID-43715289-5715-4F96-8D48-3169FA26777A.htm

[Peacemaker_kiss]

Сидел-тупил, спросил-получил

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

1. (setq bum (vla-explode _block))
2. (setq bum_set (vlax-safearray->list (vlax-variant-value bum)))
3. (ssget "_X" bumset)
4.  

<Selection set: 1f43d>
Спасибо, нужно быть внимательнее мне

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

Не забудь, что на форуме действует принцип "Отдельный вопрос - отдельная тема". Последний вопрос к этой теме не относился, так что нужно было создать новую тему.

[Peacemaker_kiss]

Последний раз!

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

Сидел-тупил, спросил-получил
Код - Auto/Visual Lisp: [Выделить]

    (setq bum (vla-explode _block))
    (setq bum_set (vlax-safearray->list (vlax-variant-value bum)))
    (ssget "_X" bumset)
     

<Selection set: 1f43d>
Спасибо, нужно быть внимательнее мне

Ничего не понял, но если это работает, то тебе страшно повезло.
Во-первых, в одном месте у тебя bum_set, а в другом bumset.
Во-вторых, (ssget "_X" ...) так  со списками не работает.

[Peacemaker_kiss]

Да,я уже обратил внимание, работает конечно не так как нужно! Буду копать дальше

[Peacemaker_kiss]

Не получается накапать ничего, я могу конечно (ssget) применить с учетом некоторых фильтров, но это компромисс, хотелось бы создать набор из конкретно полученного списка

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

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

1. (setq ss (ssadd))
2. (foreach x bum_set ;; В bum_set список vla-object
3.   (ssadd (vlax-vla-object->ename x) ss)
4. )