Почему не считывает свойство объекта 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. )

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

Не получается накаопать ничего

Лопата неправильная?

[Peacemaker_kiss]

Лопата неправильная?

Да она неопытная еще, вот в Бауман в конце года пойду, тогда...
Здорово, а я так пробовал, но не получалось и теперь я увидел почему я vla-объект в обычный примитив не превращал.
Век живи - век учись

[Peacemaker_kiss]

Позвольте последний вопрос
Почему
(command "_.pedit" bum_set "_j" "10000" "")
nil
?
bum_set сформирован нормально

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

Вообще-то (command ...) всегда возвращает nil - читай документацию: http://help.autodesk.com/view/ACD/2015/ENU/?guid=GUID-1C989B35-2C5A-47EC-A0C9-71998EDFB157
Или ты не об этом? Тогда включи CMDECHO (установи в 1) и смотри что у тебя печатается в командной строке.

[Peacemaker_kiss]

Command: (command "_.pedit" "_M" "_j" bum_set "0.0001" "")
_.pedit
Select polyline or [Multiple]: _M
Select objects: _j

*Invalid selection*
Expects a point or Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon/Group/Add/Remove/Multiple/Previous/Undo/AUto/SIngle
; error: Function cancelled

Почему "Invalid selection"

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

Потому что у тебя сначала спрашивается набор, а потом опция _J

[Peacemaker_kiss]

Command: (command "_.pedit" "_M" bum_set "J" "1000" )
_.pedit
Select polyline or [Multiple]: _M
Select objects:   9 found

Select objects: J

*Invalid selection*
Expects a point or Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon/Group/Add/Remove/Multiple/Previous/Undo/AUto/SIngle
; error: Function cancelled
Противная!!!!

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

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

1.  (command "_.pedit" "_M" bum_set "" "_J" "1000" )