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

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

Войти

Проставить размеры на отрезках. Лисп.

Тема в разделе "Autodesk", создана пользователем VITALY874, 8 июл 2013.

  1. VITALY874

    Форумчанин

    Регистрация:
    18 фев 2010
    Сообщения:
    89
    Симпатии:
    5
    Подскажите пожалуйста написать лисп или макрос или сборку .NET для расчленения полилинии и отображения длин сегментов как указано на схеме. Красный и зеленый контур нужно расчленить на сементы которые будет пересекать перпендикулярно полилиния по середине каждой стороны полилинии.
     

    Вложения:

    • Тест.dwg
      Размер файла:
      1.014,9 КБ
      Просмотров:
      98
    #1
  2. Alexandr-GR

    Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.192
    Симпатии:
    948
    Адрес:
    Новосибирск
    Оффтоп
    меня эта часть вопроса вводит в ступор ::blink.gif::

    А для каких целей эти манипуляции? где это применимо?
    Зачем расчленять? Почему именно пересекающие полилинии, а не окружности, точки или блоки? Длина этих полилиний всегда 5 или как?
    Длина от середины до концов отрезка не может отличаться (т.к. делит его пополам), но в приложенном примере отличается..
    10-07-2013 0-12-16.png
     
    #2
  3. VITALY874

    Форумчанин

    Регистрация:
    18 фев 2010
    Сообщения:
    89
    Симпатии:
    5
    Все верно длина должна быть одинаковая.
    Все это дело необходимо для оформления потерь и разубоживания рудных блоков при их отработке. Перпендикулярная полилиния всегда длинной 5м. и представляет собой обозначение сечения.
     
    #3
  4. Alexandr-GR

    Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.192
    Симпатии:
    948
    Адрес:
    Новосибирск
    и все-таки как понимать фразу "Подскажите написать"? Нужна помощь в написании или готовое решение?
     
    #4
  5. VITALY874

    Форумчанин

    Регистрация:
    18 фев 2010
    Сообщения:
    89
    Симпатии:
    5
    Можно и не расчленять, если получется сделать так чтобы расстояния между сечениями подписывались. Нужно готовое решение т.к. сам написать не в состоянии, но очень бы хотелось научиться самому писать такие штуки.
     
    #5
  6. BearDyugin

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

    Регистрация:
    30 ноя 2007
    Сообщения:
    2.762
    Симпатии:
    2.519
    Адрес:
    Сибирь
    Создаём размерный стиль, с подавлением всех линий и стрелочек, оставляем только текст, задаем ему нужную точность, 0.00, и указываем префикс м. И делаем его текущим.
    Вызываем команду put-dist, указываем сначала наш контур, потом величину отступа.
    put-dist.gif
    Программа переделена из вот этой
     

    Вложения:

    • VITALY874.LSP
      Размер файла:
      3,7 КБ
      Просмотров:
      223
    #6
  7. VITALY874

    Форумчанин

    Регистрация:
    18 фев 2010
    Сообщения:
    89
    Симпатии:
    5
    Огромное человеческое спасибо.
    Может кто-нибудь поможет с лиспом который нарисует перпендикулярные линии по контуру как показано на схеме в первом сообщении?
     
    #7
  8. Alexandr-GR

    Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.192
    Симпатии:
    948
    Адрес:
    Новосибирск
    еще вариант.
    высота текста в системной переменной TEXTSIZE.
    запуск: _GR-HALF
     

    Вложения:

    • GR-HALF-DST.fas
      Размер файла:
      4,2 КБ
      Просмотров:
      119
    #8
  9. VITALY874

    Форумчанин

    Регистрация:
    18 фев 2010
    Сообщения:
    89
    Симпатии:
    5
    Ну прям "ваще" спасибо большое люди добрые
     
    #9
  10. VITALY874

    Форумчанин

    Регистрация:
    18 фев 2010
    Сообщения:
    89
    Симпатии:
    5
    Интересно, как самому научиться такие вещи делать?
     
    #10
  11. Alexandr-GR

    Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.192
    Симпатии:
    948
    Адрес:
    Новосибирск
    #11
  12. VITALY874

    Форумчанин

    Регистрация:
    18 фев 2010
    Сообщения:
    89
    Симпатии:
    5
    Уважаемый Alexandr-GR помогите найти ошибку в лиспе.
     

    Вложения:

    • 7.LSP
      Размер файла:
      4,6 КБ
      Просмотров:
      15
    #12
  13. Alexandr-GR

    Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.192
    Симпатии:
    948
    Адрес:
    Новосибирск
    #13
  14. VITALY874

    Форумчанин

    Регистрация:
    18 фев 2010
    Сообщения:
    89
    Симпатии:
    5
    Уважаемый Alexandr-GR, не могли бы вы подредактировать свой код. Нужно что бы подписи расстояний выводились 12м без м, И еще чтобы на конце построенной перпендикулярной линии всегда был текст со значением "-" но размещение его всегда только с наружней строны относительно контура.
     
    #14
  15. Alexandr-GR

    Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.192
    Симпатии:
    948
    Адрес:
    Новосибирск
     

    Вложения:

    #15
  16. VITALY874

    Форумчанин

    Регистрация:
    18 фев 2010
    Сообщения:
    89
    Симпатии:
    5
    Огромнейшее спасибо вам. А не могли бы вы поделиться кодом, что бы в дальнейшем я сам мог в него чего-нибудь добавлять
     
    #16
  17. Alexandr-GR

    Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.192
    Симпатии:
    948
    Адрес:
    Новосибирск
    Могу. Смотри в личке.
     
    #17
  18. VITALY874

    Форумчанин

    Регистрация:
    18 фев 2010
    Сообщения:
    89
    Симпатии:
    5
    Большое спасибо
     
    #18
  19. Игорь Арчибисов

    Форумчанин

    Регистрация:
    20 июн 2013
    Сообщения:
    46
    Симпатии:
    5
    Не могли бы поделится кодом на кнопку ?
     
    #19
  20. Alexandr-GR

    Форумчанин

    Регистрация:
    9 июн 2011
    Сообщения:
    1.192
    Симпатии:
    948
    Адрес:
    Новосибирск

    Код:
    ^C^C^P(if (not C:GR-HALF) (load "GR-HALF-DST_1_1")) GR-HALF
     
    #20
    Игорь Арчибисов нравится это.

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

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