|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
|
||||
Эх! поюзал прожку! Супер короче получилось. Вот появилось желание ее немного усовершенствовать... Наглеть так наглеть
Модифицировать ее нужно таким образом чтобы она еще считала сколько муфт подземных нужно заложить. 1 муфта ставиться для сращивания кабеля больше 350 метров. если меньше то не ставиться. если кабель 355-700 метров то ставиться 1 муфта.705м -2, и т.д. Т.е. алгоритм примерно так: (Lк/350)-полученное число округлить в большую сторону (например: 1100/350=3.14 =>округляем в большую сторону =4). и отнимаем 1 = 3 Но есть еще одна проблемма: для каждого кабеля свои муфты. их 3: С-35М, С-50М, С-65М с числом жил соответственно19,42,61. т.е. нужно еще и вычислить число жил. Для этого перемножаем его и получаем число жил (например 2х3=6 жил, 24х2 =48 жил) ну а по полученным данным посчитать сколько каких муфт нужно. Вот такая вот задачка... А это немного исправленный лисп программы которую нужно доработать:
__________________
Поезд который устал от ржавого здравомыслия рельсов... |
||||
|
||||
Alaspher, Спасибо тебе огромное, все правильно сделал ничего лишнего!!! считает так как надо! впринципе осталось только добавить в конце строку "ИТОГО:" с тремя пунктами:
"С-35М" -до 19 жил (сюда входить будут например(3х2, 19х1, 7х2 и.д.) "С-50М" -до 42 жил (-\\-) "С-65М" -до 61 жил (-\\- 30х2,24х2 и т.д.) для их заполнения нужно просуммировать муфты всё Если появиться время и не очень сложно добавь пожалуйста
__________________
Поезд который устал от ржавого здравомыслия рельсов... |
||||
|
||||
Регистрация: 11.10.2004
e•burg
Сообщений: 755
|
Пробуй так
Код:
Последний раз редактировалось Alaspher, 27.10.2007 в 12:21. Причина: корректировка кода |
|||
|
||||
Alaspher, Всё правильно! Просто Супер!!! Большего пока я думаю очень не скоро потребуется. Время расчета кабеля и соединительных муфт сократилось во много раз.
Видили бы вы глаза людей которым я показывал как эта программа работает. то что они раньше считали и пересчитывали вручную (от 15 мин. до нескольких часов (в зависимости от кол-ва чертежей)) теперь можно посчитать за пару секунд!!! Ещё раз огромное спасибо Alaspher за помощь!
__________________
Поезд который устал от ржавого здравомыслия рельсов... |
||||
|
||||
Регистрация: 11.10.2004
e•burg
Сообщений: 755
|
Shoorup
Рад, что получилось. Код немного подредактировал (в предпоследнем посте), ничего не изменял в сути - добавил обраобтку блокировки текущего слоя и двухступенчатый откат. Что-б долго не объяснять в чём его смысл, просто попробуй использовать Ctrl+Z после выполнения команды lcab. |
|||
|
||||
Чесно говоря не понял в чем фишка. для красаты можно например сделать чтобы жильность кабель отображалась по порядку. Т.Е. сначала идет не парный кабель 3х1, ит.д. а потом парный 3х2... Причем тот кабель который отображается как 3 - должен в таблице выглядеть как 3х1.
На самом деле главная цель достигнута и даже перевыполнена а красивости не самое главное в жизни, но если все будет отображаться в том порядке как положено будет немного удобней.
__________________
Поезд который устал от ржавого здравомыслия рельсов... |
||||
|
||||
Alaspher, ещё раз тебе огромное спасибо от нашей группы проектировщиков и от меня лично!!! Сегодня с помощью выше написанной программы был спасен проект! Ну очень нужная и полезная программа!
__________________
Поезд который устал от ржавого здравомыслия рельсов... |
||||
|
||||
Появилась новая необходимость внести изменения в программу. Очень хочется чтобы тот кабель который был посчитан выделился цветом, например синим. Если не сложно, доработайте ктонить програмку плиз
__________________
Поезд который устал от ржавого здравомыслия рельсов... |
||||
|
||||
Инженер LISP Регистрация: 11.05.2005
Минск
Сообщений: 6,992
|
Shoorup, Дай ссылку на код, который в итоге используешь или опубликуй снова
__________________
Как использовать код на Лиспе читаем здесь |
|||
|
||||
Регистрация: 27.02.2008
Сообщений: 140
|
А можно код подправить так, чтобы он считал записи например такого вида КВКбШвнг 19x1.0 150м, Герда-КВнг 14х2х1.0 75м, т.е. тип кабеля-жильность-(количество пар)-сечение-длина и затем раскладывал и суммировал по типу кабеля, жильности и сечению? Вот была бы вещь нужная в хозяйстве каждого электрика и КИПовца. А то действующий код немного специфичен по способу записи. Обычно записывают так КВКбШвнг 19x1.0 150м, причем метраж пишется во второй строке (если записать mtext_ом, то действующий код не обрабатывает mtext)
|
|||
|
||||
Nikolay 2, точно можно. Думаю код даже можно сделать так чтобы каждый мог свою маску сделать и считать как нужно. Для меня этот код подходит как нельзя лучше. Единственное вот доработать это отметить цветом, то что посчитано. Бывает что пропускается что-то, например маска не подходит, нечаяно символ вбит лишний или совмещен текст.
__________________
Поезд который устал от ржавого здравомыслия рельсов... |
||||
|
||||
Инженер LISP Регистрация: 11.05.2005
Минск
Сообщений: 6,992
|
Shoorup, Пробуй
Nikolay 2 - там разбор текста нужно писать заново. Это я к тому, что подправить=написать заново.
__________________
Как использовать код на Лиспе читаем здесь |
|||
|
||||
Регистрация: 27.02.2008
Сообщений: 140
|
|
|||
|
||||
Прикольно то, что программа приносит дивиденды в виде конфет до сих пор Очень часто народ переставляя кад в очередной раз зовут "установить" программу. Ставлю уже новую версию - очень довольны мелким улучшением.
__________________
Поезд который устал от ржавого здравомыслия рельсов... |
||||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужно ли сгущение арматуры под колонной при наличии металлич | Aleks ManaeFF | Прочее. Программное обеспечение | 3 | 19.07.2007 12:02 |
Нужно ли показывать с спецификации болты, гвозди, анкеры? | Колян | Прочее. Архитектура и строительство | 9 | 14.09.2006 08:09 |
Дали задачку на плаксисе посчитать | rust-resisting | Прочее. Программное обеспечение | 1 | 25.03.2006 13:42 |
на какие ключи в реестре нужно дать полный доступ | stanislav | AutoCAD | 1 | 19.10.2005 20:40 |
Когда нужно утеплять стены подвала? | Колян | Конструкции зданий и сооружений | 15 | 02.10.2005 00:58 |