RSS Feed
Twitter
4 июня 2012 
k-igor 
Очень часто при работе в программе AutoCAD требуется начертить линию с некоторым отступом от заданной линии. Приведу конкретный пример. Есть помещение или группа помещений, в которых установлен электрический щит. От щита необходимо развести электрические кабели к электроприемникам.
Я черчу кабельную трасу с отступом от стены на 1 мм (100 единиц в 100-м масштабе). Чтобы проделать данное действие раньше я пользовался в основном двумя способами.
- Рисовал линию по контуру стены, а затем перемещал на расстояние 100 единиц. Концы линии затем доводил.
- Использовал функцию смещение.
Данные способы позволяют добиться требуемого результата, но на них тратится достаточно много времени.
Я попросил друга сделать что-то подобное, т.к. я не знаю языка программирования Lisp, который и написал для меня небольшое приложение, за что ему огромное спасибо:)
Что позволяет новая функция?
Новая функция для AutoCADа, написанная на Lisp, позволяет значительно сократить количество манипуляций при черчении линии с отступом 1мм. При необходимости можно задать другой отступ или сделать его динамическим. Так как я использую постоянный отступ, чтобы не делать лишнее движение, я остановился на постоянном значении. Эту функцию очень удобно использовать при выполнении плана освещения, поскольку там каждая группа имеет отдельную линию и красивее будет смотреться чертеж, если все линии имеют одинаковый отступ друг от друга.
Теперь расскажу, как это приложение интегрировать в AutoCAD.
- Скачиваем архив с приложением по ссылке parline .
- Загружаем ParLine.LSP и ParLine1.LSP в AutoCAD. Сервис->AutoLISP->Приложения->Выбираем файлы ParLine.LSP и ParLine1.LSP.
В принципе уже можно пользоваться новой функций. Вызвать ее можно из командной строки, написав ParLine или ParLine1. Но это не совсем удобно.
Заходим в Сервис->Адаптация->Интерфейс.
- Создаем новую панель.
- Создаем две новые команды.
- Прописываем макросы команд ParLine и ParLine1.
- По желанию можно нарисовать значки как у меня или лучше:)
На картинке показано куда надо кликать.
Создаем свою палитру в AutoCADe
Как это работает?
- Выбираем созданную нами линию, также как и обычную линию.
- Указываем точки по маршруту линии. Для наглядности временно прорисовываются точки.
- Нажимает ENTER. Линия нарисована, временные точки пропадают.
В результате получим линии с отступом 1мм.
Еще важная особенность. В зависимости от того, где нужно начертить линию (слева, справа, сверху-вниз, снизу-вверх) выбирается одна из двух, созданных нами линий. На практике нужно попробовать и запомнить. Зеленую и красную линии, как у меня на картинке, можно начертить разными кнопками, все зависит от куда мы будет начинать чертить.
Вот и все. Я надеюсь, Вам это тоже пригодится.
Рубрика: 
Метки: 
Доброго времени суток,
Я также инженер-электрик, но проектирую в масштабе М1:1, к тому же новичок в LISP-программировании, подскажите, пожалуйста, где в коде необходимо указать масштаб отступа и уменьшить сами точки. Или если Вам уже задавали такой же вопрос, может быть у Вас уже имеются данный лиспы с таким масштабом?
Не я ее писал))
Попробуйте поменять значение delta во второй строке на 1.
(SetQ delta 1 ;;; отступ от основной линии
Да, спасибо, получилось, а как насчет точек? Они остались большими. Заранее спасибо =)
Путем метода «тыка», у меня все же получилось уменьшить точки =)
Можно ли поинтересоваться, имеются ли у Вас еще какие-нибудь полезные lisp'ы для проектирования в помощь инженерам-электрикам, заранее благодарю. Вышеуказанный лисп очень понравился, он действительно сокращает время разводки кабельных трас 😉
Больше ничего нету, по мере необходимости создаю свои программы. Все что имеется стараюсь делиться со всеми =)
Удобные команды, значительно ускоряют работу. Единственное что команда parline у меня чертить параллельную раз слева, другой раз справа, причем без закономерности. У меня у одного так?
Все нормально работает. Проверьте или правильно прописали макросы.
Попробуйте поменять значение delta во второй строке на 1.
(SetQ delta 1 ;;; отступ от основной линии
Игорь,где это значение delta находится?
В коде программы (файл ParLine.LSP и ParLine1.LSP).
Как работает ParLine1 я разобрался.Не пойму зачем нужен ParLine. ParLine1 работает у меня так:если начертить прямую линию и выставить точки слева на право он двигает линию вверх(на 100мм например).А когда справа налево наоборот.Она так и должна работать?
Здесь возможны 4 варианта рисования: 2 с одной стороны и 2 с другой. Запишу завтра видео для наглядности))
О,с видео будет вообще супер!)
Добрый день. У меня по ссылке вместо программы набор нечитаемых символов, могли бы вы обновить ссылку?
Ссылка работает, проверил. Попробуйте другой браузер.
Да, в другом браузере открылась. Благодарю!
В Автокаде есть команда "Подобие". Обводишь контур от которого нужно отступить полилинией, отмечаешь линию, вводишь команду и задаешь сколько нужно отступить от стен. И не нужно никаких программ на Lisp.
Искал подобный lisp для построения контура помещения с отделкой. но мне не подошел.
Хорошо бы если была возможность:
1) Задавать размер отступа (один раз задал, и он сохраняется по умолчанию до следующего изменения)
2) Указывать в каком направлении сдвигать после завершения контура. Тогда можно было бы обойтись одной командой
3) Выбирать в настройках замыкать контур или нет (один раз задал, и он сохраняется по умолчанию до следующего изменения)
Я пользуюсь смещением, просто и можно указать размер смещения хоть 1 мм хоть сколько.
Я тоже пользуюсь в определенных случаях, но не всегда это удобно.