Добро пожаловать!

Войдите или зарегистрируйтесь сейчас!

Войти

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

Тема в разделе "Autodesk", создана пользователем Германup, 3 фев 2014.

  1. 1958

    Форумчанин

    Регистрация:
    21 авг 2013
    Сообщения:
    639
    Симпатии:
    699
    Адрес:
    СССР, город хлебный
    Скачайте версию из #699
     
    #701
  2. 1958

    Форумчанин

    Регистрация:
    21 авг 2013
    Сообщения:
    639
    Симпатии:
    699
    Адрес:
    СССР, город хлебный
    Переработанная версия. Добавлен выбор эллипсов и эллипсных дуг. Направление сдвига указывается точкой, величина сдвига - числом.
     

    Вложения:

    #702
    agajohn и Sergey B. нравится это.
  3. Sergey B.

    Форумчанин

    Регистрация:
    16 мар 2017
    Сообщения:
    388
    Симпатии:
    95
    Адрес:
    Тула
    Спасибо. Меня и первоначальный вариант устраивал. Выявил странную особенность. Если рисую прямоугольник обычной полилиней через орто (и не важно, замыкаю её или нет), то лисп отказывается делать подобие такого объекта. Если рисовать прямоугольник с заданными размерами, то всё в порядке (хотя в свойствах объекты абсолютно идентичны). Однако, если я рисую многоугольник полилинией, то подобие создаётся, но почему то в некоторых случаях смещение происходит вовнутрь объекта, а не наружу.
    P.S. Если объект, не поддающийся смещению, расчленить, то подобие отрезков лисп создаст без проблем, но в таком случае, не будет соприкосновения смещённых линий, соответственно и не будет углов.
     
    #703
  4. 1958

    Форумчанин

    Регистрация:
    21 авг 2013
    Сообщения:
    639
    Симпатии:
    699
    Адрес:
    СССР, город хлебный
    Указываемая точка смещения находится внутри объекта. Укажите её вне замкнутого контура, смещение будет наружу. В этом и есть недостаток создания подобия для множественного выбора. Точка смещения ориентирована для каждого объекта по разному. Так что, смиритесь или для критичных объектов делайте отдельный выбор. ::dry.gif::
     
    #704
  5. Sergey B.

    Форумчанин

    Регистрация:
    16 мар 2017
    Сообщения:
    388
    Симпатии:
    95
    Адрес:
    Тула
    В том то и дело, что точку смещения я указывал снаружи объекта. Даже пробовал отдельно объект выделить и только на него команду применить. Результат не изменился. Однако, для меня это не проблема. Меня всё устраивает. Спасибо Вам ещё раз за помощь
     
    #705
  6. 1958

    Форумчанин

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

    Вложения:

    #706
    Sergey B. нравится это.
  7. 1958

    Форумчанин

    Регистрация:
    21 авг 2013
    Сообщения:
    639
    Симпатии:
    699
    Адрес:
    СССР, город хлебный
    Нет предела мозгокрутству! Переделал лисп из предыдущего поста. ::rolleyes24.gif::
     

    Вложения:

    #707
    Мимокрокодил и Sergey B. нравится это.
  8. Sergey B.

    Форумчанин

    Регистрация:
    16 мар 2017
    Сообщения:
    388
    Симпатии:
    95
    Адрес:
    Тула
    Спасибо. Эта версия хорошо работает с чертежом, который я выкладывал для примера, с которым у предыдущих версий были проблемы. Теперь никаких проблем нет.
     
    #708
  9. AdrasMan

    Форумчанин

    Регистрация:
    4 дек 2013
    Сообщения:
    966
    Симпатии:
    871
    Адрес:
    город Воинской Славы Белгород
    1958, насколько долго создать лисп, чтобы создать подписи вдоль полилинии через каждые 10 см, сверху над линией - имя коммуникации, под линией - глубина залегания. СОздается в том же слое, где и полилиния, стиль текста текущий, высота текста - диалогом.
     
    #709
  10. BearDyugin

    BearDyugin Модератор
    Форумчанин

    Регистрация:
    30 ноя 2007
    Сообщения:
    2.749
    Симпатии:
    2.505
    Адрес:
    Сибирь
    #710
  11. AdrasMan

    Форумчанин

    Регистрация:
    4 дек 2013
    Сообщения:
    966
    Симпатии:
    871
    Адрес:
    город Воинской Славы Белгород
    #711
  12. 1958

    Форумчанин

    Регистрация:
    21 авг 2013
    Сообщения:
    639
    Симпатии:
    699
    Адрес:
    СССР, город хлебный
    А вам это надо? А если в этом месте "через каждые 10 см" есть что-то, то произойдет накладка, будете потом меня шахом вспоминать, когда обнаружите на распечатке. Не лучше ли делать вставку по линии вручную на нужные места?
     
    #712
  13. Палыч

    Форумчанин

    Регистрация:
    16 июл 2007
    Сообщения:
    2.332
    Симпатии:
    176
    Адрес:
    Беларусь
    #713
  14. 1958

    Форумчанин

    Регистрация:
    21 авг 2013
    Сообщения:
    639
    Симпатии:
    699
    Адрес:
    СССР, город хлебный
     

    Вложения:

    • t2l.LSP
      Размер файла:
      1,8 КБ
      Просмотров:
      12
    #714
    AdrasMan и Qvinto нравится это.
  15. sergtor

    Форумчанин

    Регистрация:
    23 сен 2012
    Сообщения:
    1.715
    Симпатии:
    601
    Адрес:
    Ухта
    1958, при выделении текста (для редактирования), AutoCAD сваливается в fatal. И еще такой нюанс: если не трудно, подкорректируйте, чтобы текст проставлялся текущим стилем. Спасибо!
     

    Вложения:

    • 001.png
      001.png
      Размер файла:
      23,7 КБ
      Просмотров:
      14
    #715
  16. AdrasMan

    Форумчанин

    Регистрация:
    4 дек 2013
    Сообщения:
    966
    Симпатии:
    871
    Адрес:
    город Воинской Славы Белгород
    Несколько кабелей по 20 км - проще автоматом подписать, а там, где наложится - просто сдвинуть. Быстрее выйдет, чем вручную всё подписывать.
    Спасибо!
     
    #716
  17. 1958

    Форумчанин

    Регистрация:
    21 авг 2013
    Сообщения:
    639
    Симпатии:
    699
    Адрес:
    СССР, город хлебный
    Это у вас проблемы, у меня редактируется на раз. А с текстовым стилем подумаю.
     
    #717
  18. AdrasMan

    Форумчанин

    Регистрация:
    4 дек 2013
    Сообщения:
    966
    Симпатии:
    871
    Адрес:
    город Воинской Славы Белгород
    1958, еще раз спасибо. Работает. Прекрасно облегчает жизнь и сокращает трудозатраты. Маленькое пожелание для доработки (не обязательное, но приятное для пользователя): если это возможно, увеличить видимость полей ввода сверху и снизу полилинии, а то там зрительно виден только один символ. Вторым дополнением- выбрать размер текста.
    И еще, у меня почему-то после выполнения команды выдпадает сообщение : Неизвестная команда "T2L". Для вызова справки нажмите F1. Ведь команда уже выполнена.
     
    #718
  19. Qvinto

    Форумчанин

    Регистрация:
    10 дек 2008
    Сообщения:
    5.681
    Симпатии:
    4.223
    Адрес:
    Украина, г.Калуш
    И от меня, маленькое пожелание, изменение линейной величины между надписями можно сделать настраиваемую?
     
    #719
  20. 1958

    Форумчанин

    Регистрация:
    21 авг 2013
    Сообщения:
    639
    Симпатии:
    699
    Адрес:
    СССР, город хлебный
    У меня тоже выпадает, как избавиться не знаю. :(
    --- Сообщения объединены, 4 дек 2018, Оригинальное время сообщения: 4 дек 2018 ---
    Можно. Но тогда это будет два отдельных текста. Можно варьировать размером: найдите "\n\n". \n - это перевод строки. Добавьте сколько надо.
     

    Вложения:

    • t2l.LSP
      Размер файла:
      2 КБ
      Просмотров:
      4
    #720
    sergtor нравится это.

Поделиться этой страницей

  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление