В первом посте выложена третья версия программ 472s.fas и 473s.fas предназначенных для вычерчивания оград каменных и железобетонных. Устранена ошибка предыдущей версии. Добавлена возможность использовать домеры-промеры от пикета до ворот и углов забора, своего рода "офсеты". Примеры работы программ даны на картинке 473s_473s.jpg. Пример1 - запускаем программу 472s.fas, используя мышь или вводя номера пикетов начиная с пик.2 двигаясь против часовой стрелки отрисовываем забор. Чтобы выйти из режима рисовки нажимаем Enter и в конце на запросы о воротах нажимаем 1. Если нажать просто Enter, то ворота не будут отрисованы. Пример2 - На запрос программы "Начальная точка..." набираем домер +5 (ширина ворот), на запрос "Повтор начальной точки..." указываем мышкой пик. 10 или вводим номер пикета, на запрос "Следующая точка забора..." вводим +5 (домер от отражателя до угла забора), далее на запрос "Повтор точки забора..." указываем мышкой пик. 11, далее отрисовывем по пикетам забор до пик. 10, для выхода из рисовки нажимаем Enter, нажимаем 1, нажимаем 1 и получаем забор с воротами. Пример4 - При сьемке ворота и правый угол забора были не видны. На запрос вводим домер -7.3, далее указываем пик.10, далее на запрос вводим домер -8.5, далее указываем пик.11, далее идем по пик.12, пик.13, пик.9, далее вводим домер -5(шир.ворот), включаем привязку "конечная" и указываем уже отрисованное начало забора, для выхода из режима рисования забора нажимаем Enter, затем 1, затем снова 1. Забор с воротами отрисован.
Программа 472s.fas при загрузке в AutoCad не работает требует тип линии, которого нету в ограждении03.zip
В первом посте выложен архив с четвертыми версиями программ 472s.fas и 473s.fas предназначенными для вычерчивания оград каменных и железобетонных. Устранена "недоработка" выявленная в процессе тестирования. В архив добавлен недостающий файл с типами линий.
В первом посте выложен архив Ограждения05.zip в который добавлена программа 474s.fas. Программа 474s.fas предназначена для вычерчивания оград металлических с опорами квадратными кирпичными, круглыми бетонными, металлическими, на фундаментах (или без оных), с воротами (или без оных). Можно рисовать мышкой, вводом номеров пикетов с абриса, учитываются так же всякого рода домеры-промеры. На приложенной картинке даны примеры рисовки.
В первом посте выложен архив Ограждения06.zip в который добавлена программа 475s.fas. Так же внесены небольшие изменения в другие программы архива. Программа 475s.fas предназначена для вычерчивания заборов деревянных с капитальными опорами кирпичными квадратными, круглыми бетонными, металлическими, на фундаментах (или без оных), с воротами (или без оных). Можно рисовать мышкой, вводом номеров пикетов с абриса, учитываются так же всякого рода домеры-промеры. На приложенной картинке даны примеры рисовки.
В первом посте выложен архив Ограждения07.zip в который добавлены программы 476s.fas и 477.fas. Другие программы архива так же доработаны. Программа 476s.fas предназначена для вычерчивания ограждений проволочных. Программа 477s.fas предназначена для вычерчивания изгородей. На приложенной картинке даны примеры рисовки.
В первом посте выложен архив Ограждения08.zip с обновленными программами рисовки ограждений. Добавлена функция "отмени" и еще ряд функций.
В первом посте выложен архив 13s.zip с обновленной программой рисовки зданий. Добавлена опция ввода номера дома.
В первом посте выложен архив Утилиты от ivsem.zip. В архиве находится программа RotateTo0Blok01.fas для горизонтирования блоков в чертеже.
В описание архива вкралась "описка". Обрывы земляные - 332s.fas. В моих условных знаках цифры в имени файла соответствуют номеру условного знака в книге "Условные знаки для топографических планов 1:5000 - 1:500". Описание в первом посте подправил.
Создайте папку, поместите туда вспомогательные файлы ( PiketIni.txt, UslZnIni.txt, vorota1.dwg, ivsem.lin, ivsem.shx) и пропишите в Автокаде путь доступа к этой папке (нажать правую кнопку мышки, в выпавшем меню выбрать Настройка->Файлы->Путь доступа к вспомогательным файлам, далее кнопки Добавить и Обзор ...).
Переработал прогу по рисовке откоса не укрепленного (усл.зн 84 в книге усл.знаков). Добавил возможность редактирования откоса. Команда 11 - рисовка откосов, команда 22 - редактирование "сложных" участков, команда 00 - вызывает на экран компа выдержку из книги усл. знаков. Программа рисует откос в соответствии с знаменателем масштаба находящемся в переменной чертежа useri5. (что бы увидеть содержимое переменной - нужно набрать в командной строке useri5 и нажать Enter). Если в переменной useri5 отсутствует знаменатель масштаба (500 1000 ...), то при первом запуске программа попросит ввести знаменатель масштаба и запишет его в переменную useri5. На картинке слева две плинии, запускаем программу рисовки откоса и получаем результат на второй слева картинке. Далее редактируем откос. Порядок редактирования откоса. Набираем на цифровой клавиатуре команду 22 , указываем мышкой короткий штрих откоса (1 на картинке), далее длинный штрих откоса (2 на картинке), далее указываем длинный штрих откоса в начале редактируемого участка (3 на картинке), за тем длинный штрих в конце редактируемого участка откоса (4 на картинке), далее (5)(6), далее (7)(8).
Еще пару слов по программе 84v02.fas. В архиве 84v02 откос не укрепленный.zip находятся файлы: 1. test1.dwg с двумя плиниями - версия Acad2000 2. 84v02.fas - собственно программа на autolisp вторая версия. 3. 1-3a.jpg - картинка с результатами работы программы. 4. 84-85RUs.jpg - выкопировка с книги Условные знаки 1986г. 5. UslZnIniRus.txt - файл с названием слоя в котором будет чертиться откос. Название слоя можно редактировать.
У вас по умолчанию расстояние между штрихами задается 2 мм и это правильно. Только 2 мм это между длинными штрихами (или короткими), у вас получается между штрихами 4 мм. Посмотрите как строится откос у меня. (версия 2007) Слева - по вашей программе, справа - по моей.
Протестировал программу на масштабах 500 - 1000 - 2000 - 5000. Скриншот окна автокада прилагаю. Вроде все нормально. Файл откос.dwg, приложенный к вашему сообщению, настроен на масштаб 2000 (useri5 = 2000).
Ясно. Получается ваш 84v02.fas по умолчанию задает масштаб 1:2000. Просто я в вашем же чертеже test1.dwg построил откос по своей программе. Если вы посмотрите [Файл/Свойства чертежа...] , то увидите, что чертежу переприсвоен новый масштаб. :) Посмотрите новый чертеж. Снизу откос в масштабе 1:2000. Принцип работы похож на ваш. Только у меня бровка и подошва рисуются, а не выбираются. Отрисовываются сначала только длинные штрихи, потом идет запрос на редактирование (указание двух штрихов участка редактирования...), после этого вставляются короткие штрихи. Бровка, штрихи - сплошная линия, подошва - пунктир. Все элементы откоса сгруппированы. Бровке и подошве присвоены гиперссылки. --- Сообщения объединены, 24 мар 2021, Оригинальное время сообщения: 24 мар 2021 --- Забыл ещё про один момент. Согласно п.132 Пояснений к условным знакам у меня длина коротких штрихов ~ равна 1/3 средней длины двух соседних длинных штрихов.
ivsem, парочка вопросов возникла: 1. На C3D 2009 (Win7*32) всё заработало. На C3D 2013 (Win10*64) на другой машине программа не может найти UslZnIniRus.txt даже в прописанных каталогах. Пробовал и на диске C, и на диске D, и написанные латиницей, и кириллицей. Другие же лиспы работают, и в чем дело понять не могу. 2. При широких откосах не соблюдается условие п.132 пояснений, когда ширина откоса в проекции 3 и более см, короткий штрих должен быть размером 1/3 от длинного. Если Вы будете допиливать программку, то можете ли вы сделать, чтобы переход от двухмиллиметровых коротких штрихов к равным 1/3 от длинных был плавным? А то встречал некоторые программы, которые очень резко переходят, скачкообразно как-то, что не есть эстетично, хотя вроде как и без нарушений требований.
