[Andrey*]

Добрый день!
Программирую 2 недели.
Хочу сделать программу, которая переименовывает выбранные пользователем блоки в указанное им имя, затем вносит в описание блока некоторые данные, которые в последствии складываются.
С первой частью, кое-как разобрался - переименовывает.
Со второй никак - с помощью команды entget вывожу список выделенного блока, дальше хочу в список добавить значение 4(Block description (optional)) из базы Block group codes, но в моем списке нет кода 4.
Скажите, как его туда добавить? и каким образом формируется этот список? Я так думал, что он должен быть у каждого объекта свой по списку из справки (Block group codes), ан нет...
Спасибо.

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

Сообщение от Andrey* переименовывает выбранные пользователем блоки в указанное им имя

А если блоки принципиально разные? Ну выбраны блоки с именами Block1, Block2, BLock234 - и?..
Во-первых, команда _.rename; во-вторых, ищи код по замене вхождений блока на другой

Сообщение от Andrey* с помощью команды entget вывожу список выделенного блока

Список вхождения или описания?

----- добавлено через ~3 мин. -----

Сообщение от Andrey* Скажите, как его туда добавить?

http://wp.me/a4lEOS-Ey ?

[Andrey*]

Сообщение от Кулик Алексей aka kpblc А если блоки принципиально разные? Ну выбраны блоки с именами Block1, Block2, BLock234 - и?.. Во-первых, команда _.rename; во-вторых, ищи код по замене вхождений блока на другой

У меня есть группа блоков с одинаковыми именами, мне нужно выделять, скажем по 10 шт, и назначать новое имя и присваивать им новое значение.
Вот хотел спросить, как лучше это делать. Знаю есть несколько вариантов: 1 Добавление невидимого атрибута и внесение нужно значения туда. 2 ТО что я писал в первом сообщении 4(Block description (optional)). Но никак не могу понять как это сделать. С помощью tblsearch нахожу список, а как с ним работать с конкретным списком блока нигде не написано. 3 самый топорный, как я и сделал в имя вносить нужное значение, но при этом .
Вот код, который я написал:

(defun C:GO ()
(setq Newnameblock (GETSTRING "\n Введите значение: "))
(setq block (ssget))
(setq name (ssname block 0))
(setq blocklist (entget name))
(command "_RENAME"
"_BlOCK"
(cdr (assoc 2 blocklist))
Newnameblock
""
) ;end command

Он работает, но почему то не для всех блоков. Когда пытаешься некоторые блоки переименовать он просит ввести старое имя, потом новое и т.д. я так понимаю, что это экспортированные блоки и они безимянные и с ними нужно как то по другому работать уже.

Список вхождения или описания?

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

Подскажите пожалуйста, в какую сторону двигаться?

P.S.
По команде while может у кого есть какая литература с задачками, что бы побольше попрактиковаться? А то в книгах очень мало задачек на логические операторы.

Спасибо.

[Vladimir_Sergeevich]

Скорее всего не из за этого, но в command "_RENAME" лучше писать _-RENAME. Если у команды есть диалоговый режим, с дефисом всегда вызывается командный. у некоторых есть вариации с +.

По литературе с задачками на логику... кхе. Это проходил еще в школе на примере паскаля, а потом еще в универе повторение было. Литературы как таковой то и не было.
ветвление if и cond (аналог case of паскалевского)
циклы repeat и while. с постусловием (uncle) нет.

p.s.

Сообщение от Andrey* экспортированные блоки и они безимянные

U2B - Преобразовать UNNAMED в блок может поможет?