> 1 <

Автор Сообщение

kokkok

Members


Статус

7 сообщений

Где: Russia
Род занятий:
Возраст:

#5135   2011-11-28 20:40 GMT+3 часа(ов)      
Задача: в чертеже (ACAD) есть несколько групп объектов. Имена этих групп (первые 4 символа) известны.
Нужно: создать список, состоящий из имен этих групп.

Если выполнить
(COMMAND "group" "?" "*" "")
получим:
Command: 'VLIDE group Enter a group option
[?/Order/Add/Remove/Explode/REName/Selectable/Create] <Create>: ?
Enter group name(s) to list <*>: * Defined groups. Selectable
TEST-1 Yes
TEST-2 Yes
TEST-4 Yes

т.е. в тексовом окне ACADа появляется текст, содержащий нужную информацию. Но как получить то же в виде списка?
Помогите, пожалуйста.

VH

Members


Статус

289 сообщений

Где: ---
Род занятий:
Возраст:

#5137   2011-11-28 22:54 GMT+3 часа(ов)      
(apply 'append
(mapcar
'(lambda (pair)
(if (= (car pair) 3) (list (cdr pair))))
(entget (cdr (assoc 350 (cdr (member (cons 3 "ACAD_GROUP") (entget (namedobjdict)))))))))

kokkok

Members


Статус

7 сообщений

Где: Russia
Род занятий:
Возраст:

#5138   2011-11-28 23:25 GMT+3 часа(ов)      
Спасибо, VH!
Особенно за оперативность.
А то совсем было руки опустились.
> 1 <


Онлайн :

0 пользователь(ей), 15 гость(ей) :




Реклама на сайте: