Добрый день. Аналогичная тема уже была на форуме и я выкладывал свои наработки. Здесь я выкладываю последнюю версию своих блоков, а также лисп, который считает эти блоки и создает автоматически спецификацию в текстовом варианте и лисп для удобства работы с блоками.
как пользоваться лиспом написано здесь
http://dwg.ru/art/8.
если вы хотите получить спецификацию по каждой системе отдельно , то нужно для каждой системы создать свой слой , т.е. слои с именем _V_ptit_01,_V_ptit_02,_V_vit_01,_V_vit_02 и т.д. И соответственно изначально вставлять воздуховоды в свой слой.
Чтобы запустить расчет спецификации нужно набрать в командной строке "zod71" , если у вас не включен динамический ввод то в командной строке будет надпись "Введите коэффициент на который нужно умножить длину" ,если у нужно получить длину воздуховодов один в один как на чертеже то вводите "1" , если нужно что бы автоматический к длине воздуховода добавилось 20% то ввести нудно "1.2" (в лиспе разделителем целой и дробной части является точка "."), выделяете нужную вам часть чертежа в которой находятся мои динамические блоки, ентер . обычно компьютер задумывается на 1-2 секунду и вуаля спецификация готова. В корневом каталоге диска С появится файл zod71.txt . В нем если изначально вносили блоки в соответствующий слой, то будет спецификация отдельно по каждой системе и в конце будет итоговая спецификация по всем системам. Понятно что в текстом варианте она не смотрится поэтому открываем файл делаем выделить все (ctrl+a) - копировать(ctrl+c)- открываете пустой екселевкий файл и вставляете(ctrl+v). И вот спецификация в нормальном читабельном виде. Небольшая оговорка иногда бывает что админы на работе закрывают доступ к корневой папке , тогда открываете текстовым редактором файл spec.lsp ищете строку "(setq f (open "C:\\zod71.txt" "w"))" и изменяете на папку в которой вы можете создавать файл , только заменить "/" на "\\" .
теперь о лиспах которые находятся в файле for dyn block.lsp
zod29 - проставление размера воздуховода с выноской (для начала нужно задать высоту текста)
zod299 - проставление размера воздуховода без выноски
zod76 - разворачивает блок на 180
zod766 - зеркалит блок
zod79 - это для проставления размеров перехода по воздуховодам рядом. первым указывается воздуховод который лежит ближе к точке вставки перехода потом указывается воздуховод с другой стороны перехода , ну и сам переход
zod799 - копирует размеры одного воздуховода другому, а также размеры озк,дрослей и пр.
zod7999 - тоже самое что и zod799 только еще задает второму воздуховоду слой первого
zod84 - создает выноску с названием системы в которой лежит воздуховод. Если названия слоев отличаются от моего _V_ptit_01,_V_ptit_02,_V_vit_01,_V_vit_02 то откройте текстовым редактором файл for dyn block.lsp и найдите строчки
Код
(cond ((wcmatch layer_name "*prit*")(setq layer_name (strcat "П" number)))
((wcmatch layer_name "*Vit*")(setq layer_name (strcat "В" number)))
и замените в них слова prit и Vit , на приток и вытяжка если у вас названия слоев _V_приток _01 и _V_вытяжка _01.
zod87 - создает выноски для озк,дросселей и пр. элементов с их размерами. допустим мне нужно проставить озк и обратные клапны. первым делом задаётся размер шрифта , далее спрашивает имена блоков (для прямоугольных озк это _V_ozk_pryam ) далее на что нужно заменить пишу Озк , далее он еще раз запрашивает ввожу _V_obrat_klap_pryam далее Об.клапан .Далее он еще раз запросит название блока и на что нужно заменить просто оставляете пустым, т.е. нажимаете enter 2 раза, после этого выбираете озк или обратный клапан и будут появляется выноски с заменяемым значением и размером клапана.
zod89 - лисп для создания слоев. это для того что бы что вручную не создавать 10 слоев для приточки . если так как я называл то префикс это _V_ptit_ , начало отсчета 1 , количество слоев 10, шаг 1, постфикс это если хотите что то добавить после номера слоя.