
Очень часто при работе в программе 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мм.
Еще важная особенность. В зависимости от того, где нужно начертить линию (слева, справа, сверху-вниз, снизу-вверх) выбирается одна из двух, созданных нами линий. На практике нужно попробовать и запомнитьJ Зеленую и красную линии, как у меня на картинке, можно начертить разными кнопками, все зависит от куда мы будет начинать чертить.
Вот и все. Я надеюсь,Вам это тоже пригодится.
Доброго времени суток,
Я также инженер-электрик, но проектирую в масштабе М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) Выбирать в настройках замыкать контур или нет (один раз задал, и он сохраняется по умолчанию до следующего изменения)