Из темы удалены "устаревшие" программы рисовки условных знаков 1:500 - 1:5000. Программы условных знаков смотрите в теме http://geodesist.ru/forum/threads/Разработка-условных-знаков-для-autocad.36873/ =============================================================== Программа Profil_small для быстрого вычерчивания профиля-полилинии прямо в плановом чертеже. Применялась мной для определения величины стрелы провиса и габаритов проводов ВЛ. --------------------------------------------------------------------------------------- Дополнительный модуль для определения стрелы провиса провода ВЛ с использованием профиля построенного программой Profil_small. Если в блоках-пикетах Вашего чертежа атрибут-отметка находится не на втором месте в списке атрибутов (это необходимое условие для работы программ), Вы можете переместить атрибут-отметку на второе место при помощи автокадовского менеджера атрибутов. В англоязычной версии AutoCAD 2002 -- Modify->Object->Attribute->Block Attribute Manager. ------------------------------------------------------------------------------------------ Выкладываю программы (Black_profil.tar.gz) построения черного профиля для проектирования трубопроводов, а так же программу для закачки пикетов из текстового файла в автокад. Подвалы профилей формируются по выбору: на русском или украинском языке. Распакуйте три директории и работайте прямо в них. В дальнейшем можно файлы поддержки перенести в отдельные папки указав автокаду пути поиска. В архиве есть файлы с описанием программ. Тестировал в AutoCAD 2002 английском и AutoCAD 2012 русском. В AutoCAD 2012 можно запустить программы через Сервиc->Приложения... В AutoCAD 2002 через Tools->Load Aplication... Прикладываю картинку результата работы программ из предыдущего поста. Нанесение геологических выработок (скважин, шурфов) так же возможна. Геологи вручную добавляют свои скважины ( геолог. выработки) в исходный текстовый файл и программа вычерчивает их на ординатах. --------------------------------------------------------------------------------------------- Выложил четвертую версию, добавлена замена в числах запятой на точку. Программа raketka04.fas "Электронная ракетка" (тахеограф) для обработки и накладки сьемки из полевого журнала. Написана очень давно, когда еще не было современных тахеометров-накопителей и Credo_DAT. Внутри архива есть файл с описанием порядка работы с программой. Может кому пригодится. Прилагаю "скрин-скан" работы "Электронной ракетки" На картинке: 1, 2, 3, 5, 6 - сьемочные пикеты 4 - прямая угловая засечка, точка пересечения линий определяется средсвами автокада. 7.96 и 9.83 - высота подвеса провода и высота столба (пк 5). Пикеты рисуются разным цветом и поэтому при наложении пикетов друг на друга легче понять где, что, и почем. Певая версия была написана для 10-го автокада под DOS. Однако давно это было. ---------------------------------------------------------------------------------------------------- Программа 1_329-6.fas рисует бергштрих (плинию) длиной 1мм от полилинии-горизонтали в напралении указанном пользователем. Программа 05_329-6.fas рисует бергштрих (плинию) длиной 0.5мм. Если, Ваши плинии-горизонтали находятся в слоях с определение цвета и толщины по слою, то бергштрихи тоже будут автоматически рисоваться тем же цветом и тощиной, что и горизонтали. Бергштрих будет находится на высоте Z той горизонтали, от которой он рисуется. Программы при работе используют привязки "конечная" и "ближайшая". Программы можно загружать стандартным загрузчиком автокада. После загрузки, программа вызывается нажатием клавиш zx пробел. Повторно программу можно запустить одним нажатием пробела (если вы использовали другие акадкоманды, то опять zx пробел). Что бы не переключать клавиатуру с русского на английский для вызова загруженых программ, я в файле ACAD.PGP пишу строчку "яч, *zx". В автокаде 2002 англ. сия запись в файле ACAD.PGP работает. Забыл добавить - опции автокада должны быть включены "по слою" (ByLayer) (надо будет сие включение реализовать в следующей версии программы) ------------------------------------------------------------------------------------------------- Программа Make_TestProfilPipe.fas (файл Black_prof_moduly.fas - вспомогательный файл поддержки) предназначена для формирования текстового файла исходных данных для дальнейшего построения профиля под проектирование по существующей трубе. Программа так же строит тестовый профиль в чертеже с планом. Тестовый профиль позволяет оценить "качество" промеров глубин до трубы, особенно в местах пересечений с другими трубами и коммуникациями. Вторую часть программ для построения профиля для проектирования выложу позже. Прилагаю скриншот работы программы Make_TestProfilPipe.fas из предыдущего поста. Программа на тест-профиль выносит номера пикетов, глубины, надписи на ординатах а так же рисует в "в масшабе" пересекаемые коммуникации. Я использую обычно гор. маштаб 5000, шрифт 0.3 (но это все идивидуально). Запрос программы на горизонтальный угол на знаках и пикетах используется для контроля "прямолинейности" участков трассы. Я использую эту программу для "корректировки" измеренных глубин по существующим коммуникациям. Например труба при прохождении в кожухе под дорогой идет от начала кожуха до конца строго прямолинейно как в плане так и по высоте. Добиться этого прямыми измерениями трассоискателем глубин просто невозможно. По этому на тест-профиле чертится отрезок от нач. кожуха до конца кожуха и глубины берутся уже с профиля. Потом глубины заносятся в соответсвующие атрибуты блоков-пикетов и тес-профиль строится заново. Таким образом я корректирую и другие "проблемные" места непосредственно в поле. Для облегчения занесения глубин в атрибуты написал программулину. Выложу позже. На правой картинке видна врезка в трубу 1420 (диаметр "паспортизируемой" трубы 1220) видна точка пересечения с ВЛ 10кВ и правее дороги точка пересечения с кабелем. ---------------------------------------------------------------------------------------------------- Выкладываю подправленную версию тест-профиля (исправлены "нестыковки" с руссифицированными версиями) и программу загрузки глубин трубы в атрибуты пикетов. Файлы Read me в архиве. Программы тестировались в Autocad 2002eng, Autocad2012rus. --------------------------------------------------------------------------------------------- Сижу масштабирую съемку из 1000 в 500 и 5000. Вот накатал программулину для масштабирования блоков, кругов, текстов, а так же изменения масштабов линий и полилиний. Файл Read me в архиве. Программа тестировалась в Autocad 2002eng, Autocad2012rus. ---------------------------------------------------------------------------------------------- Программа Piketach_01.fas разбивает прикетаж по трассе (полилиния, сплайн) через 100 метров для различных масштабов. Начальный пикет программа не "рисует". Скопируйте в начало трассы любой пикет и отредактируйте его номер. Три файла поддержки программы нужно разместить в папках пути доступа к которым прописаны в автокаде. Программа тестировалась в Autocad 2002 eng. и Autocad 2012 rus. ----------------------------------------------------------------------------------------------------- Небольшая програмулинка в архиве XY.tar.gz, которую я использую для подписи крестов, а так же иногда для проверки координат точек на чертеже. ----------------------------------------------------------------------------------------------------- Программа AttributeMove02.fas предназначена для перенесения атрибутов блоков (растаскивания отметок пикетов). В отличии от аналогичной программы из ToolPac подсвечивает блок которому принадлежит атрибут, что иногда очень помогает при работе с хаотичным нагромождением съемочных пикетов один на другой. Разрабатывалась для Autocad 2002. Как поведет себя в более современных версиях автокада - надо пробовать. При тестировании в Autocad 2008 мне иногда приходилось нажимать клавишу F3, бо там привязка _node срабатывала на атрибуты блоков, что в Autocad 2002 отсутствует как таковое. Вызов программы нажатием клавиши v, затем клавиши пробел. ------------------------------------------------------------------------------------------------------ Выкладываю (Paneli knopki Autocad 2012.zip) инструкцию в картинках, как создать панель с кнопками для запуска лисппрограмм в AutoCad 2012 ---------------------------------------------------------------------------------------------------- Написал по-быстрому программульку (Block_replace2.fas) замены блоков в чертеже на блок выбранный в чертеже мышкой. Можно производить замену по одному или выбирая заменяемые блоки рамками выбора. (не забывайте про выбор полигоном _WP) Используя эту программульку можно, скажем, заменить один тип растительности на другой. Будет время, доработаю программульку, на исключение из "замены" не подлежащих замене блоков. ------------------------------------------------------------------------------------------------- Доработал программку (Block_replace03.fas) по замене блоков. Ввел, при произвольном выборе, замену только указанного для фильтра блока. Тестировалась в Acad 2002 eng и Acad 2012 rus. --------------------------------------------------------------------------------------------------- Программа Replace_Point2Block_01.fas заменяет выбранные примитивы-точки на блоки. Тестировалась в Autocad 2002 eng и Autocad 2012 rus. ---------------------------------------------------------------------------------------------------- Для "автоматического" построения горизонталей я использую Autocad Civil. Так же мне понравилось, как строит горизонтали программа Surfer. При простом рельефе (с малым количеством горизонталей) или в "проблемных зонах съемки" я горизонтали рисую "вручную". Для облегчения ручного построения горизонталей я использую свою программку-интерполятор. Все доп. построения программа выполняет в слое !_interp, который впоследствии удаляется . Для желающих попробовать прилагаю программу и файл dwg с точками. Программа писалась для 2D чертежей. ---------------------------------------------------------------------------------------------- DelBlockKontur01.zip Написал программку для удаления блоков внутри контура (контур может быть не замкнут). Может быть использована для удаления условных знаков-блоков. Имеет два режима: 0. Не удаляются блоки касающиеся контура. 1. Удаляются блоки касающиеся контура. Порядок работы: Выбрать режим (0 или 1), выбрать один или несколько разных блоков подлежащих удалению, выбрать контур-полилинию. --------------------------------------------------------------------------------------------- NumeratorVertexPline01.fas - программа для нумерации вершин полилинии. Можно вводить "префикс" - фиксированную буквенно-цифровую информацию перед номером и можно вводить "суффикс" - фиксированную буквенно-цифровую информацию после номера. Тестировалась в Acad 2002 и Acad 2012. ----------------------------------------------------------------------------------------------------- BlockToPline04.fas - программа для вставки выбранного в чертеже блока в вершины полилинии. Полилинии можно выбирать по одной, использовать выбор рамкой или использовать другие допустимые в автокаде способы выбора. В четвертой версии блоки получают в качестве координаты Z уровень (Elevation) на котором находится lwpolilene. Добавлено так же временное отключение привязок на момент работы программы Четвертая версия оформлена в виде "команды автокада". Вызов - нажать 1 и Enter или пробел. Мне лично удобно, не снимая правой руки с мышки, левой нажимать 1 и пробел или для повторного вызова просто левой шлепать по пробелу. Тестировалась в Acad 2002 и Acad 2012. ----------------------------------------------------------------------------------------------------- Программа SearthBlockAttr02.fas ищет в чертеже блок по значению атрибута. Это наиболее часто используемая мною программка. Используется основном для поиска пикета по номеру. Я всегда использую сплошную нумерацию пикетов на объекте. Программа передвигает чертеж так, что бы найденный блок был в центре рабочего поля. От курсора тянется пунктирная линия к найденному блоку, что очень облегчает обнаружение блока в чертеже. Можно пользоваться зумированием и перемещать чертеж. Имя искомого блока должно быть записано в первой строке в файле SeartchBlockWithAttribute_sem.txt. Порядковый номер атрибута (считается в окне редактора атрибутов сверху в низ) записывается во вторую строку в файле SeartchBlockWithAttribute_sem.txt. Для тестового чертежа Test1.dwg порядковый номер- 1, для тестового Test2.dwg порядковый номер- 2 Повторный запуск программы 00 (два нуля) Enter или пробел (для последующих запусков подряд можно просто нажимать Enter или пробел). Для теcтирования программы разархивируйте все в папку, щелкните мышкой по тестовому чертежу, перетащите мышкой в рабочее окно автокада файл SearthBlockAttr02.fas ----------------------------------------------------------------------------------------------- Программа Block2Point3d01.fas, используя XYZ блоков, создает в чертеже 3D точки или создает текстовый файл X,Y,Z. Разархивировать в папку архив Block2Point3d01.zip. В файле BlockIni.txt в первой строке прописать имя обрабатываемого блока (пробелов впереди и позади названия блока не должно быть). Если на запрос программы набрать 0 (ноль), то в чертеже будут созданы точки. Если на запрос программы набрать 1, то будет создан координатный файл X,Y,Z.
В AutoCAD 2012 можно запустить программы через Сервиc->Приложения... В AutoCAD 2002 через Tools->Load Aplication... В окошке выбрать нужную программу *.fas, нажать кноку Загрузка (Load), потом Закрыть (Close) и программа начнет работу. Какая-либо команда для запуска функции не предусмотрена. Я обычно для запуска программ использую свой кнопочный тулбар (панель). На кнопку вешается загрузка программы (load "имя_программы.fas")
Вчера контуры заполнялись без ошибок,а сегодня только (1_410 - ягодники). Пишет ошибку. В чем дело не пойму.
Если появляются такие сообщения: [small]"1_401.dwg": Не удается найти файл в указанной папке: C:\Documents and Settings\Admin\Мои документы\ (текущая папка) C:\Documents and Settings\Admin\application data\autodesk\autocad map 3d 2012\r18.2\rus\support\ C:\program files\autodesk\autocad map 3d 2012\support\ C:\program files\autodesk\autocad map 3d 2012\fonts\[/small] это значит,автокад не находит в перечисленных им папках файла (1_401.dwg) с блоком для вставки. Файлы программ *.fas и файлы поддержки *.dwg, *.dcl нужно поместить или в перечисленные автокадом папки или держать все в текущей директории или, что значительно более правильно, создать новую папку, поместить туда программы и файлы поддержки, а в настройках автосада прописать путь к этой папке. Для автокада 2012 рус - щелкнуть правой кнопкой мыши, выбрать "Настройка", потом "Файлы", раскрыть "Путь доступа к вспомогательным файлам", потом кнопка "Добавить", и пишем путь к вашей папке. В старых версиях автокада, что бы автокад воспринял изменения в настройках надо было закрыть автокад, потом снова запустить.
Как сейчас модно говорить:- РАСПЕКТ И УВАЖУХА Вам за творческий порыв в создании этих програмулин. В связи сэтим (пожелание, чтоль) направить данный поток творческой энергии на усовершенствование программы профиля. Хотелось бы так: 1.В акад подгружено растровое изображение сьемки ест-но с привязкой по координатам. 2.Командой с кнопки построить(создать )профиль поверхности -создаем по рисунку сьемки 3Д точки где координаты берутся автоматически, а отметки пишем вручную при этом в выбранном месте строится профиль поверхности. 3. Построить профиль трубы - выбираются уже 3Д созданные точки а отметка трубы пишется вручную и все это добавляется в уже созданный ранее профиль. Вот как то так. А?
Можно обойтись и без 3D. Если Вы подгрузили в автокад растр съемки, откалибровали его, то можно провести по растру 2D полилинию-трубопровод, раставить по ней съемочные пикеты-блоки с необходимой (занесенной туда вручную) информацией в атрибутах, и далее уже автоматически построить черный профиль с нанесенной на него по глубинам трубой. У меня есть своя программа построения профиля для "паспортизации" газопроводов. ЕЕ можно использовать таким способом. Кстати, вышевыложенные программы для построения профиля, Вы вполне можете использовать для построения черных профилей по растрам, по выше приведенной рекомендации.
Оффтоп (Move your mouse to the spoiler area to reveal the content) Кое что о прогрессе. Решил засеч время затрачиваемое на конвертацию примитивов программой ScalePrimitiv01.fas на разных системах, что были под рукой. Количество конвертируемых примитивов 22792 Операц. система Win XP SP3 Время: AutCAD 2002 На ноуте PIII 1.2ггц ОЗУ 750мег - 3мин 03сек AutoCAD 2002 На ноуте IBM 43p - Сентрино, 2.13ггц, ОЗУ 2гиг -2мин 12сек AutoCAD 2011 На ноуте IBM 43p.................... - 13мин 29сек !!!! (интересно, чем вызван такой "тормоз") AutoCAD 2002 На компе Е5200(две головы два потока) 2.5ггц, ОЗУ 2 гиг - 1мин 04сек AutoCAD 2002 На компе i7-2600K 3.4ггц (четыре головы восемь потоков) ОЗУ 8гиг(используется 3.41гиг) - 0мин 40сек AutoCAD 2012 На компе i7 ........... - 0мин 50сек. AutoCAD 2002 оказался "эффективнее" в данной работе, чем AutoCAD 2012
Братья!! ну расскажите, пожалуйста, как повесить .fas на кнопку??!! Тут у меня пробел, не могу понять какая команда, после загрузки - сразу выполнить действие..
Лисповские программные файлы с расширениями lsp, fas, vlx запускаются в автокаде одинаково. Создание панели кнопок в Autocad 2012 Я в AutoCAD 2012 только начал работать, по этому в описании могут быть "неточности". Спойлер (Наведите указатель мыши на Спойлер, чтобы раскрыть содержимое) Раскрыть Спойлер Свернуть Спойлер 1. Щелкнуть правой кнопкой мыши на свободном месте около панелей кнопок. 2. В появившемся меню выбрать "Адаптация" 3. Щелкнуть по находящейся в правом нижнем углу круглой кнопке со значком >, появится дополнительная панель. 4. Щелкнуть по вкладке "Перевести", в правой панели появится "Адаптации:Новый файл 5. Щелкнуть на правой панели по кнопке "сохратить", создать (выбрать) папку для хранения Вашего меню, набрать имя файла меню в котором Вы будете хранить Ваши "кнопки" и сохранить его. 6. Переключится на вкладку "Адаптация", развернут вкладку "Адаптации:Все файлы", щелкнуть по кнопке с изображением отрывающейся папки с плюсиком и загрузить Ваше только что созданное и пока пустое меню. 7. Найти на дереве в нижнем окне ветку "Панели", щелкнуть правой кнопкой и выбрать "Новая панель инструментов", желательно дать панели "вразумительное" название (например: Условные знаки). 8. В левой нижней панели щелкнуть по кнопке "Создание новой команды" (кнопка со звездочкой) 9. В правой панели В разделе "Команда" Написать Имя команды (например: Ягодники) и в графе Макросы записать вызов лисповской программы, ^C^C(load"Название_программы"). Рассширение (lsp, fas, vlx) можно указать, а можно и не указывать. Например: ^C^C(load"1_410") 10. Из левой нижней панели перетащить мышкой (нажав левую кнопку) вашу команду (Ягодники) на созданную Вами панель кнопок (Условные знаки). Справа в окне "Просмотр панели инструментов" появится панель кнопок (пока еще без изображения). 11. Раскрываем ниже кнопки панель "Значок", выбираем любое изображение нажимаем кнопку "Изменить", рисуем изображение и сохраняем. -- Далее можно повторяя пункты 8 - 11 добавить в панель сколько угодно новых кнопок. 12. Нажимаем кнопу ОК. ---------------------------------------------------------------------------------- Что бы Автокад смог запустить программы с кнопок, Вы дожны поместить фалы программ и файлы поддержки в определенную папку, и прописать путь поиска этих файлов. (Нажать правую кнопку мышки и выпавшем меню выбрать "Настройка". На вкладке "Файлы" прописать "Путь доступа к вспомогательным файлам". Для этого используйте кнопку "Обзор...".)
ок. Тогда просто скажите, какой командой запускается ScalePrimitiv01.fas Как обращаться с .lsp я знаю.
Тогда не понятно, в чем у Вас проблемы. Загружаете программу стандартным загрузчиком автокада точно так же, как и .lsp и она сразу начинает работать. Ни каких доп. команд не надо. Сервис->Приложения, выбираете тип загружаемого файла .fas, находите на диске файл ScalePrimitiv01.fas, нажимаете Загрузить, потом Закрыть и программа начинает работать. Как повесить эту и другие лисппрограммы на кнопку читайте в предыдущем посте. Если же программа оформлена в виде "команды автокада", то как правило после загрузки программы появляется подсказка. Обычно просят набрать что-то на клавиатуре и нажать Enter. Я обычно обхожусь в своих программах-командах нажатием пары клавиш (чаще всего zx) и пробела. Это позволяет запускать программу "одной левой".
У лиспа есть команда, я вешаю ее на кнопку и пользуюсь легким движением пальца. Фас - я понял, начинает работать только после загрузки, т.е. - сервис-приложения-ищем папку с файлом-и т.д. Следующий раз опять все снова - поновой. Я очень хочу ошибиться-может есть короче путь?
На кнопку вешаестя ^C^C(load"ScalePrimitiv01"). И программа будет запускаться и начинать работать по нажатию кнопки. Запуск программ с кнопки - это лучший вариант, бо при загрузке через стандартный загрузчик автокада не все программы работают. В предыдущем посте описано как повесить программу на кнопку. У Disney детально описано, как работать с лиспфайлами. http://geodesist.ru/forum/topic.php?forum=42&topic=232 Незабудьте обязательно в "Настройка->Файлы->Путь доступа к вспомогательным файлам" прописать путь к папке, где у Вас находятся лиспфайлы и файлы проддержки (обычно это *.dwg с блоками вставляемыми программами в чертеж).
