Отрисовка откосов на плане между двумя линиями
Программа проверена на работоспособность в AutoCAD 2010, 2013, 2016.
Программа реализует отрисoвку штрихов, обозначающих откосы, между двумя "линиями" ("линии" - объекты AutoCAD-а, к которым можно применить команду РАЗМЕТЬ).
Штрихи чередуются: один от линии до линии, другой - наполовину расстояния от линии до линии. Полученные штрихи являются полилиниями (LWPOLILYNE) и будут лежать на текущем слое.
Команда запрашивает толщину штрихов, которая задаст глобальную ширину полилиний-штрихов.
В данной версии добавлена группировка штрихов после их отрисовки. Группа безымянная, создается автоматически.
Линии бровки и подошвы, между которыми рисуются штрихи должны лежать в одной плоскости. Текщая ПСК значения не имеет, но лучше совпадающая с плоскостью подошвы и бровки.
Программа реализует отрисoвку штрихов, обозначающих откосы, между двумя "линиями" ("линии" - объекты AutoCAD-а, к которым можно применить команду РАЗМЕТЬ).
Штрихи чередуются: один от линии до линии, другой - наполовину расстояния от линии до линии. Полученные штрихи являются полилиниями (LWPOLILYNE) и будут лежать на текущем слое.
Команда запрашивает толщину штрихов, которая задаст глобальную ширину полилиний-штрихов.
В данной версии добавлена группировка штрихов после их отрисовки. Группа безымянная, создается автоматически.
Линии бровки и подошвы, между которыми рисуются штрихи должны лежать в одной плоскости. Текщая ПСК значения не имеет, но лучше совпадающая с плоскостью подошвы и бровки.
Комментарии
Авторизоваться
Лисп срабатывает только до постройки первого длинного бергштриха и разбивки на отрезки по верхней линии-бровке.
После этого тормозится и зависает на выполнении команды:
Команда: _PEDIT
Выберите полилинию или [Несколько]:
Задайте параметр [Замкнуть/Добавить/Ширина/Вершина/СГладить/СПлайн/Убрать сглаживание/Типлин/оБратить/Отменить]: _Y
Неправильное ключевое слово.
; ошибка: Функция прервана.
Ваша рекомендация "Проверьте работу при других установках опций команды "Удлинить"- не помогает.
Что делать?
Для удобства нужно добавить в код группировку. Чтобы весь результат действия команды отменялся одним нажатием ctrl+z
Групповая отмена предусмотрена. В начале работы программой ставится Метка команды Отменить. В конце следует вопрос, если в ответ нажметете люьую клавишу то выполнится команда Отменить/Обратно, т.е. т.е. отменится все до метки, т.е. до начальной ситуации. С меткой проще чем с Отмени/ Группа. Написано давно, нареканий не было)))
Спасибо! 2019 все ОК.
Работайте на здоровье! Спасибо за инфу про 2019.
Спасибо. Буду пробовать!
Добрый день! Acad 2017.
Лисп срабатывает только до постройки первого длинного бергштриха и разбивки на отрезки по верхней линии-бровке.
После этого тормозится и зависает на выполнении команды:
Команда: _PEDIT
Выберите полилинию или [Несколько]:
Задайте параметр [Замкнуть/Добавить/Ширина/Вершина/СГладить/СПлайн/Убрать сглаживание/Типлин/оБратить/Отменить]: _Y
Неправильное ключевое слово.
; ошибка: Функция прервана.
Ваша рекомендация "Проверьте работу при других установках опций команды "Удлинить"- не помогает.
Что делать?
ДЕнь добрый! "Удлинить" здесь не барахлит. У Вас сбой команды редактирования полилиний, PEDIT которая. Попробуйте запустить эту команду, _PEDIT в командной строке наберите, потом на запрос выбора объекта укажите любой отрезок, именно отрезок, команда должна спросить преобразовать ли его в полилинию, ответьте в ком строке вот так _Y. Если все сбой не произошел, то.... надо посмотреть ваш файл.
Вы уверены, что слой не заблокирован? Может слой "0" заблокирован? Можете файл кинуть? Только в нем оставьте только нужное. Проверьте на этом еще раз и потом пошлите мне.igorсобакенdorтчкspbтчкru
Добрый день! Acad 2017.
Лисп срабатывает только до постройки первого длинного бергштриха и разбивки на отрезки по верхней линии-бровке.
После этого тормозится и зависает на выполнении команды:
Команда: _PEDIT
Выберите полилинию или [Несколько]:
Задайте параметр [Замкнуть/Добавить/Ширина/Вершина/СГладить/СПлайн/Убрать сглаживание/Типлин/оБратить/Отменить]: _Y
Неправильное ключевое слово.
; ошибка: Функция прервана.
Ваша рекомендация "Проверьте работу при других установках опций команды "Удлинить"- не помогает.
Что делать?
Очень похоже, что в Вашем файле случились проблемы с блоком, который создается программой. Попробуйте почитать в мануале про блок и потестируйте программу в чистом файле. Опишите результат, будем решать вопрос.