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

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

  1. Alex_Shaton

    Alex_Shaton Форумчанин

    Абсолютно согласен, так наиболее удобно.

    Программой Дениса Флюстикова (есть на dwg.ru) для работы с блоками заменить текстовый стиль (или стили, если их несколько) внутри блоков. Вычистить съемку от других настроек для сдачи в архитектуру.
    --- Сообщения объединены, 13 янв 2023, Оригинальное время сообщения: 13 янв 2023 ---
    чуть позже сделаю себе панельку из 3 или 4 кнопок как раз для выбора обьектов по стилю.
     
  2. Blaukempt

    Blaukempt Форумчанин

    Нужен Lisp, чтобы перенести значение координаты Z блока в содержимое ближайшего к блоку текста. В сети искал, ничего не нашел.
     
  3. ardi.stroi

    ardi.stroi Только чтение Форумчанин

    Надо написать, пожалуйста.
     
  4. vicyur

    vicyur Форумчанин

    Скинул бы пример, что за блок, что ближайший текст?
     
    1958 нравится это.
  5. chehoff

    chehoff Форумчанин

    Добрый день. Команда "СТЕРЕТЬ": выбираем объекты курсором, они подсвечиваются потом ентер, объекты стираются. Вот это подсвечивание совершенно лишнее, т.е. набираем команду СТЕРЕТЬ, потом курсором удаляем объекты, они сразу исчезают из чертежа. Это можно реализовать?
     
  6. BearDyugin

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

    Сомнительная проблема, ну да ладно, там 10 строчек кода всего.
    Имя команды: ChehoffDel
     

    Вложения:

    • ChehoffDel.VLX
      Размер файла:
      608 байт
      Просмотров:
      8
    chehoff нравится это.
  7. Savo

    Savo Форумчанин

    Господа, тут выкладывали weed_text где-то, мне очень понравился этот лисп. Использую часто. Вопрос: как описать этому лиспу чтоб он выбирал вместо mtext - отметки горизонталей или точки cogo в civil3d?
     

    Вложения:

    • weed_text.LSP
      Размер файла:
      713 байт
      Просмотров:
      11
  8. chehoff

    chehoff Форумчанин

    Большое спасибо! очень удобно удалять.
     
  9. Доброго дня
    На просторах интернета нашел очень нужный мне LISP который создает точку в центре окружности, в оригинале он заменял круг на точку, я поменял erase на copy и тем самым оставил оригинал круга
    Проблема такая- чтоб его запусить, я просто перетаскиваю его в окно автокада, а хотелось бы запускать по трем буквам ctp (circle to point) то есть defun c:ctp
    Помогите закончить данную программку:

    (setq cset (ssget "_X" (list (cons 0 "circle"))) n 0)
    (repeat (sslength cset )
    (setq pt (cdr (assoc 10 (entget (ssname cset n)))))
    (command "point" pt)
    (setq n (1+ n))
    )
    (command "COPY" cset "")

    Заранее спасибо
    Всем добра!
    --- Сообщения объединены, 31 мар 2023, Оригинальное время сообщения: 31 мар 2023 ---
    В меню Гео есть нечто подобное
     

    Вложения:

    • Untitled.png
      Untitled.png
      Размер файла:
      281,7 КБ
      Просмотров:
      15
  10. BearDyugin

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

    Тем самым ты задублировал круги. Достаточно было убрать строку с erase

    Код:
    (defun c:ctp (/ cset n pt)
    (setq cset (ssget "_X" (list (cons 0 "circle")))
    n 0
    )
    (repeat (sslength cset)
    (setq pt (cdr (assoc 10 (entget (ssname cset n)))))
    (command "_point" pt)
    (setq n (1+ n))
    )
    )
     
  11. Klodik

    Klodik Форумчанин

    помогите понять что не так. хочу сделать лисп который удаляет все за пределами замкнутой полилинии(границы)
    есть описание
    1. Выбирается замкнутая полилиния, определяющая границу области, в которой нужно удалить объекты.
    2. Загружается пользовательская система координат (UCS) с помощью координат первой точки полилинии.
    3. Обновляется изображение (REGENALL).
    4. Выбираются все объекты на чертеже.
    5. Для каждого объекта проверяется, находится ли он внутри границы полилинии.
    6. Если объект находится внутри границы, он не удаляется. Если объект находится за границей, то сначала необходимо выбрать точку внутри границы, после чего объект удаляется.
    7. В конце работы скрипта пользовательская система координат возвращается в исходное положение, а изображение обновляется еще раз.
    а что-то не работает.
     

    Вложения:

    • zalin.lsp
      Размер файла:
      1,1 КБ
      Просмотров:
      5
  12. Коллеги добрый день. Существует ли какой-нибудь лисп или функция в продуктах аутодеск? Необходимо выбрать только точки внутри сферы или наоборот за пределами сферы ( или сферической поверхности). Заранее спасибо за любую информацию
     
    Steinar нравится это.
  13. paniva2010

    paniva2010 Форумчанин

    Здравствуйте. Можно ли создать лисп для автоподписи координат вершин линии, полилинии, отрезка. Выделяешь примитив - жмешь: подписать координаты и на вершинах подписаны X и Y...
     
  14. alz

    alz Форумчанин

    По быстрому набросал для обоих в одном файле, загружать через netload
    добавляет 2 команды
    pointinsphere - нужно выбрать центр сферы, задать ее радиус и указать внутри или снаружи выбирать точки, выберутся или из тех, что были выбраны перед запуском команды или если ничего выбрано не было из всех на чертеже.
    xyonlines - выбираете нужные линии и на всех углах проставятся координаты в текущей системе координат.
     

    Вложения:

    • test1001.rar
      Размер файла:
      5,4 КБ
      Просмотров:
      14
    Misha_E, dr_slam, paniva2010 и ещё 1-му нравится это.
  15. Шикарная штука. Огромное спасибо. Жаль только автокад тупит от большого количества точек.
     
  16. paniva2010

    paniva2010 Форумчанин

    Отлично. А можно ли сделать настройку точности координат или сделать возможность изменять системную точность?
     
    Последнее редактирование: 26 апр 2023
  17. alz

    alz Форумчанин

    Можно.
     

    Вложения:

    • test1001.rar
      Размер файла:
      5,3 КБ
      Просмотров:
      6
    dr_slam нравится это.
  18. alz

    alz Форумчанин

    Тут уже почти ничего не сделаешь, выбрать точки можно только прогнав всю базу данных чертежа, что бы тупило меньше сделана обработка заранее выбранных точек, то есть сначала выбираете потом запускаете команду, и обрабатываться будут только выбранные точки, что должно ускорить работу.
     
  19. paniva2010

    paniva2010 Форумчанин

    Вроде бы ничего не изменилось (по-прежнему, 2 знака после запятой)? Системная точность никак не влияет. И можно ли сделать так, чтобы координаты X были Y, а Y - X (для нашей геодезии-топографии)
     
  20. alz

    alz Форумчанин

    Ой, сори, отдублировал старый файл. Вот новый.
     

    Вложения:

    • test1001.rar
      Размер файла:
      5,7 КБ
      Просмотров:
      5
    paniva2010 нравится это.
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление