Воздуховоды динамич блоками + спецификация по ним Опции

[Composter]

Добрый день. Аналогичная тема уже была на форуме и я выкладывал свои наработки. Здесь я выкладываю последнюю версию своих блоков, а также лисп, который считает эти блоки и создает автоматически спецификацию в текстовом варианте и лисп для удобства работы с блоками.
как пользоваться лиспом написано здесь 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, постфикс это если хотите что то добавить после номера слоя.

Прикрепленные файлы

 Bloki.dwg ( 257,78 килобайт ) Кол-во скачиваний: 415
 for_dyn_block.rar ( 2,96 килобайт ) Кол-во скачиваний: 236
 spec.rar ( 1,84 килобайт ) Кол-во скачиваний: 225

 

[Composter]

Добрый день. Аналогичная тема уже была на форуме и я выкладывал свои наработки. Здесь я выкладываю последнюю версию своих блоков, а также лисп, который считает эти блоки и создает автоматически спецификацию в текстовом варианте и лисп для удобства работы с блоками.
как пользоваться лиспом написано здесь 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, постфикс это если хотите что то добавить после номера слоя.

Прикрепленные файлы

 Bloki.dwg ( 257,78 килобайт ) Кол-во скачиваний: 415
 for_dyn_block.rar ( 2,96 килобайт ) Кол-во скачиваний: 236
 spec.rar ( 1,84 килобайт ) Кол-во скачиваний: 225

 

[Antarius]

функцию TEXT_TO_SPISOK не смог найти
;ошибка: no function definition: TEXT_TO_SPISOK

[Antarius]

к сожалению в лиспе не силён.
Composter, а можно вас попросить сделать функцию получения списка выделенных динамических блоков и их видимых параметров в текстовый файл в формате
<Имя блока 1>:<Параметр 1> <Значение параметра 1>:<Параметр 2> <Значение параметра 2>:...<Параметр N> <Значение параметра N>
..
<Имя блока 2>...

Ничего суммировать не надо, просто список, спасибо

[Composter]

исправленный файл прилагаю
на счет текстового файла с "<Имя блока 1>:<Параметр 1> <Значение параметра 1>:<Параметр 2> <Значение параметра 2>:...<Параметр N> <Значение параметра N>" что вам мешает воспользоваться функцией автокада извлечение данных (_dataextraction)

Прикрепленные файлы

 for_dyn_block.zip ( 4,11 килобайт ) Кол-во скачиваний: 94

 

[Antarius]

мешало каждый раз производить несколько действий указать файлы, убрать добавить галочки которые не запоминаются в предыдущем извлечении, но уже вроде начинаю привыкать. Эта команда же не имеет запуска с настройками из командной строки или я недостаточно её изучил?

[Composter]

http://forum.dwg.ru/showthread.php?t=27734 вот тут мне ответили ,правда через 5 лет , когда это мне уже стало не нужно