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

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

Войти

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

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

  1. bibizon

    Регистрация:
    21 май 2016
    Сообщения:
    12
    Симпатии:
    4
    Добрый день
    Нужен лисп, который будет ставить точки (окружность, диаметр 0,4) в вершинах полилинии, подпишет вершины (однострочный текст, высота 1) 1А, 2А и т.д., поставит длины сторон (тоже однострочный текст) возле середины стороны. Рисунок прилагается.
    Был бы благодарен, если скинете lsp файл, чтобы я мог сам покрутить/изменить его, если понадобится
     

    Вложения:

    • 1.png
      1.png
      Размер файла:
      46,8 КБ
      Просмотров:
      27
    #1021
  2. 1958

    Форумчанин

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

    Вложения:

    • 88.LSP
      Размер файла:
      3 КБ
      Просмотров:
      14
    #1022
    SOYZNIK, bibizon и Steinar нравится это.
  3. VitBor

    Форумчанин

    Регистрация:
    10 ноя 2009
    Сообщения:
    340
    Симпатии:
    38
    Поставлена задача конвектировать shp (ArcView GIS 3.3) в dwg. Каждая линия имеет семантику ( ID, тип линии, параметры ( диаметр, глубина и т.д.).
    В итоге получаю полилинию с текстом соответствующего параметра привязанного к этой полилинии. Помогите пож. автоматом выбрать полилинии, если они содержат точку с соответствующим текстом и выровнить по ним сам текст. В наличии nanoCAD Plus 11, разрешено иногда пользоваться AutoCAD Electrical 2008 :) и собственно сам ArcView GIS 3.3.
     

    Вложения:

    #1023
  4. trir

    Форумчанин

    Регистрация:
    25 ноя 2014
    Сообщения:
    3.253
    Симпатии:
    931
    Адрес:
    gnomtrir@mail.ru
    аннотации в Map 3D делают это автоматически
     
    #1024
    Qvinto нравится это.
  5. VitBor

    Форумчанин

    Регистрация:
    10 ноя 2009
    Сообщения:
    340
    Симпатии:
    38
    Да конечно, но я деньги на нанокад то выпросил с большим трудом (, и как то под сомнением, что mapcad может по условию идентичных аннотаций выделять объекты, хотя...., но трудиться после работы дома вечерами, как то не хочется....)
     
    #1025
  6. bibizon

    Регистрация:
    21 май 2016
    Сообщения:
    12
    Симпатии:
    4
    Спасибо за файл
    Допилил под свои нужды
    Программа ставит размеры и нумерует вершины
    Работает корректно с замкнутыми полилиниями, вершины по часовой стрелке
     

    Вложения:

    • LabelBorder.LSP
      Размер файла:
      3,8 КБ
      Просмотров:
      16
    #1026
    ninnnnnnr нравится это.
  7. 1958

    Форумчанин

    Регистрация:
    21 авг 2013
    Сообщения:
    636
    Симпатии:
    696
    Адрес:
    СССР, город хлебный
    Для "Спасибо" есть кнопка "Мне нравится"
     
    #1027
    Steinar, bibizon и Qvinto нравится это.
  8. Ильшат

    Форумчанин

    Регистрация:
    12 янв 2012
    Сообщения:
    1.888
    Симпатии:
    565
    Здравствуйте гуру Автокада!
    Помогите разработать лисп, позволяющий автоматизировать следующие действия:
    Есть некий файл автокада с чертежами. в нем есть некий контур в виде прямоугольника, например, размерами 20*20единиц(контур 1), в пределах этого контура имеются несколько маленьких контуров, например размерами 5*5 единиц (контур 2). Причем эти контура находятся на непечатаемом слое.
    Я настраиваю виртуальный принтер с размерами листа, например, 20*20 единиц, в качестве рамки для печати выбираю контур 1 с масштабом, например 1*0.1; 1 полилинию из контура 2 перевожу на печатаемый слой, отправляю на печать, сохраняю файл с чертежом, полилинию 1 перевожу на непечатаемый слой, 2 полилинию из контура 2 перевожу на печатаемый слой и аналогично сохраняю файл. Таким образом перебираются все контура 2, после чего перехожу на следующий контур 1.
    Подробности могу разъяснить в личке/удаленное подключение/ватсапп/скайп.
    Готов рассмотреть вопрос соответствующего вознаграждения.
     
    #1028
  9. Deleted member 111359

    Deleted member 111359 Только чтение

    Добрый вечер, помогите пожалуйста, есть вот что:
    Точки и рядом текст (наименование)
    Необходимо получить наименование, а строго под ним высоту точки без плюса выноской.
    Точек 1500...
    --- Сообщения объединены, 10 дек 2019, Оригинальное время сообщения: 10 дек 2019 ---
    С этим понятно, разобрался. Как теперь превратить наборы точка+текст в блоки? Т.е. чтобы каждая пара точка-текст была как единичный блок
     

    Вложения:

    #1029
  10. ivsem

    Форумчанин

    Регистрация:
    26 мар 2009
    Сообщения:
    2.475
    Симпатии:
    1.051
    Адрес:
    Киев
    Пробуй. Запуск программы, набрать число 11 и нажать Enter.
    1_2.jpg
    Вам нужно заменить точку и текст МД1 359 на блок из точки с атрибутом МД1 359 ?
     

    Вложения:

    • LeaderZ_01.lsp
      Размер файла:
      1,5 КБ
      Просмотров:
      4
    #1030
  11. Ламаград

    Форумчанин

    Регистрация:
    19 мар 2012
    Сообщения:
    1.496
    Симпатии:
    327
    Адрес:
    Москва Россия
    А для nanoCAD 5.1 они подходят?
     
    #1031
  12. Steinar

    Форумчанин

    Регистрация:
    30 авг 2012
    Сообщения:
    699
    Симпатии:
    496
    Адрес:
    Асгардия
    Здравствуйте!
    А возможно ли сделать так:
    • запускаем команду
    • выбираем 3Д-тело
    • в реальном времени в командную строку выводятся координаты ближайшей точки на поверхности тела к курсору мыши.
    Спасибо!
     
    #1032
  13. barabashkasathalex

    Форумчанин

    Регистрация:
    12 мар 2013
    Сообщения:
    578
    Симпатии:
    1.208
    Адрес:
    г. Санкт-Петербург
    С 3Д гранями можно
     
    #1033
  14. Steinar

    Форумчанин

    Регистрация:
    30 авг 2012
    Сообщения:
    699
    Симпатии:
    496
    Адрес:
    Асгардия
    Да, это можно провернуть для одной грани, но когда их много - получается сначала я должен найти ближайшую грань,
    а потом уже ближайшую точку принадлежащую этой грани.
    Осталось как-то быстро находить ближайшую 3Д-грань.
     
    #1034
  15. barabashkasathalex

    Форумчанин

    Регистрация:
    12 мар 2013
    Сообщения:
    578
    Симпатии:
    1.208
    Адрес:
    г. Санкт-Петербург
    Можно провернуть и для большого количества 3d граней (быстро)...
    Посмотрите видео, вам нужна такая функция?
     

    Вложения:

    • video.zip
      Размер файла:
      6,6 МБ
      Просмотров:
      13
    #1035
    Sergey B. нравится это.
  16. Sergey B.

    Форумчанин

    Регистрация:
    16 мар 2017
    Сообщения:
    388
    Симпатии:
    95
    Адрес:
    Тула
    Приятное дополнение. Стандартные средства civil показывают с задержкой. Где можно скачать такую надстройку?
     
    #1036
    Qvinto нравится это.
  17. barabashkasathalex

    Форумчанин

    Регистрация:
    12 мар 2013
    Сообщения:
    578
    Симпатии:
    1.208
    Адрес:
    г. Санкт-Петербург
    Пока нигде. Это команда из одной комплексной программы которая до сих пор в разработке.
     
    #1037
  18. Steinar

    Форумчанин

    Регистрация:
    30 авг 2012
    Сообщения:
    699
    Симпатии:
    496
    Адрес:
    Асгардия
    Что-то типа этого, но только и при вращении вида,
    без переключения на ПСК.
    *У вас это если на .NET то через PointMonitor реализовано.
     
    #1038
  19. Sergey B.

    Форумчанин

    Регистрация:
    16 мар 2017
    Сообщения:
    388
    Симпатии:
    95
    Адрес:
    Тула
    barabashkasathalex, когда планируете выпуск программы? Она будет бесплатная или платная? (Если платная, то какая ориентировочная цена?)
     
    #1039
  20. barabashkasathalex

    Форумчанин

    Регистрация:
    12 мар 2013
    Сообщения:
    578
    Симпатии:
    1.208
    Адрес:
    г. Санкт-Петербург
    Это на Lisp.
    Для вращения (3d виды) эта функция не годится. Только вид сверху.
     
    #1040

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

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