Очень классный лисп - APEL.FAS - никто не знает, что в нем еще сидит. Я только одной функцией пользуюсь.
(apel-com '(apel-draw-find_analog_objects))
Например, кто взорвал все блоки "светильники" - получили тыщу кружков и две тыщи палочек. Этот лисп вернет всё на места. Мне еще пользы оно не принесло, зато электрики благодарили - у них исполнитель редиска. А уже потом в это блок можно вставить атрибут, автопронумеровать и...
Короче
yadi.sk/d/ZnZKZgcveH8bH - папка создание блоков