Помогу бесплатно разработать любую программу на autolisp.

Скачайте версию из #699

 

Переработанная версия. Добавлен выбор эллипсов и эллипсных дуг. Направление сдвига указывается точкой, величина сдвига - числом.

 

Спасибо. Меня и первоначальный вариант устраивал. Выявил странную особенность. Если рисую прямоугольник обычной полилиней через орто (и не важно, замыкаю её или нет), то лисп отказывается делать подобие такого объекта. Если рисовать прямоугольник с заданными размерами, то всё в порядке (хотя в свойствах объекты абсолютно идентичны). Однако, если я рисую многоугольник полилинией, то подобие создаётся, но почему то в некоторых случаях смещение происходит вовнутрь объекта, а не наружу.
P.S. Если объект, не поддающийся смещению, расчленить, то подобие отрезков лисп создаст без проблем, но в таком случае, не будет соприкосновения смещённых линий, соответственно и не будет углов.

 

Указываемая точка смещения находится внутри объекта. Укажите её вне замкнутого контура, смещение будет наружу. В этом и есть недостаток создания подобия для множественного выбора. Точка смещения ориентирована для каждого объекта по разному. Так что, смиритесь или для критичных объектов делайте отдельный выбор.

 

В том то и дело, что точку смещения я указывал снаружи объекта. Даже пробовал отдельно объект выделить и только на него команду применить. Результат не изменился. Однако, для меня это не проблема. Меня всё устраивает. Спасибо Вам ещё раз за помощь

 

Ну и до кучи собрал такой вот вариант:
1. Создаются два слоя - "+_имя_слоя" и -"-_имя_слоя".
2. Подобие (офсет) выбранных объектов выполняется в обе стороны с разноской новых объектов по слоям. Те, которые снаружи от исходного объекта, переносятся на слой "+_имя_слоя". Которые, внутри исходного объекта - на слой "-_имя_слоя".
Может кому и понадобится.

 

Нет предела мозгокрутству! Переделал лисп из предыдущего поста.

 

Спасибо. Эта версия хорошо работает с чертежом, который я выкладывал для примера, с которым у предыдущих версий были проблемы. Теперь никаких проблем нет.

 

1958, насколько долго создать лисп, чтобы создать подписи вдоль полилинии через каждые 10 см, сверху над линией - имя коммуникации, под линией - глубина залегания. СОздается в том же слое, где и полилиния, стиль текста текущий, высота текста - диалогом.

 

Вот так не пойдёт?
http://geodesist.ru/threads/sovety-i-prijomy-raboty-v-autocad.67958/#post-815091

 

Спасибо, это видел, когда искал, но это для автокадов от 13 и моложе. У меня старьё 11 увы

 

А вам это надо? А если в этом месте "через каждые 10 см" есть что-то, то произойдет накладка, будете потом меня шахом вспоминать, когда обнаружите на распечатке. Не лучше ли делать вставку по линии вручную на нужные места?

 

Djpyb vyjuj lf b

 

1958, при выделении текста (для редактирования), AutoCAD сваливается в fatal. И еще такой нюанс: если не трудно, подкорректируйте, чтобы текст проставлялся текущим стилем. Спасибо!

 

Несколько кабелей по 20 км - проще автоматом подписать, а там, где наложится - просто сдвинуть. Быстрее выйдет, чем вручную всё подписывать.
Спасибо!

 

Это у вас проблемы, у меня редактируется на раз. А с текстовым стилем подумаю.

 

1958, еще раз спасибо. Работает. Прекрасно облегчает жизнь и сокращает трудозатраты. Маленькое пожелание для доработки (не обязательное, но приятное для пользователя): если это возможно, увеличить видимость полей ввода сверху и снизу полилинии, а то там зрительно виден только один символ. Вторым дополнением- выбрать размер текста.
И еще, у меня почему-то после выполнения команды выдпадает сообщение : Неизвестная команда "T2L". Для вызова справки нажмите F1. Ведь команда уже выполнена.

 

И от меня, маленькое пожелание, изменение линейной величины между надписями можно сделать настраиваемую?

 

У меня тоже выпадает, как избавиться не знаю. :(

--- Сообщения объединены, 4 дек 2018, Оригинальное время сообщения: 4 дек 2018 ---

Можно. Но тогда это будет два отдельных текста. Можно варьировать размером: найдите "\n\n". \n - это перевод строки. Добавьте сколько надо.