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

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

Войти

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

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

  1. Alex_Shaton

    Форумчанин

    Регистрация:
    30 июл 2013
    Сообщения:
    258
    Симпатии:
    260
    Адрес:
    Беларусь Гомель
    Абсолютно согласен, так наиболее удобно.

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

    Форумчанин

    Регистрация:
    24 апр 2012
    Сообщения:
    597
    Симпатии:
    53
    Нужен Lisp, чтобы перенести значение координаты Z блока в содержимое ближайшего к блоку текста. В сети искал, ничего не нашел.
     
    #1362
  3. ardi.stroi

    Форумчанин

    Регистрация:
    10 окт 2014
    Сообщения:
    1.677
    Симпатии:
    2.043
    Надо написать, пожалуйста.
     
    #1363
  4. vicyur

    Форумчанин

    Регистрация:
    24 сен 2010
    Сообщения:
    508
    Симпатии:
    90
    Адрес:
    г. Петрозаводск, Карелия
    Скинул бы пример, что за блок, что ближайший текст?
     
    #1364
    1958 нравится это.
  5. chehoff

    Форумчанин

    Регистрация:
    14 май 2012
    Сообщения:
    1.129
    Симпатии:
    191
    Адрес:
    Первый в мире, второй по Сибири
    Добрый день. Команда "СТЕРЕТЬ": выбираем объекты курсором, они подсвечиваются потом ентер, объекты стираются. Вот это подсвечивание совершенно лишнее, т.е. набираем команду СТЕРЕТЬ, потом курсором удаляем объекты, они сразу исчезают из чертежа. Это можно реализовать?
     
    #1365
  6. BearDyugin

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

    Регистрация:
    30 ноя 2007
    Сообщения:
    2.762
    Симпатии:
    2.519
    Адрес:
    Сибирь
    Сомнительная проблема, ну да ладно, там 10 строчек кода всего.
    Имя команды: ChehoffDel
     

    Вложения:

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

    Форумчанин

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

    Вложения:

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

    Форумчанин

    Регистрация:
    14 май 2012
    Сообщения:
    1.129
    Симпатии:
    191
    Адрес:
    Первый в мире, второй по Сибири
    Большое спасибо! очень удобно удалять.
     
    #1368
  9. Goshan.md

    Регистрация:
    10 июл 2018
    Сообщения:
    2
    Симпатии:
    0
    Доброго дня
    На просторах интернета нашел очень нужный мне 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
    #1369
  10. BearDyugin

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

    Регистрация:
    30 ноя 2007
    Сообщения:
    2.762
    Симпатии:
    2.519
    Адрес:
    Сибирь
    Тем самым ты задублировал круги. Достаточно было убрать строку с 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))
    )
    )
     
    #1370
  11. Klodik

    Форумчанин

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

    Вложения:

    • zalin.lsp
      Размер файла:
      1,1 КБ
      Просмотров:
      5
    #1371
  12. seether

    Регистрация:
    6 июн 2012
    Сообщения:
    2
    Симпатии:
    12
    Коллеги добрый день. Существует ли какой-нибудь лисп или функция в продуктах аутодеск? Необходимо выбрать только точки внутри сферы или наоборот за пределами сферы ( или сферической поверхности). Заранее спасибо за любую информацию
     
    #1372
    Steinar нравится это.
  13. paniva2010

    Форумчанин

    Регистрация:
    4 окт 2015
    Сообщения:
    73
    Симпатии:
    4
    Здравствуйте. Можно ли создать лисп для автоподписи координат вершин линии, полилинии, отрезка. Выделяешь примитив - жмешь: подписать координаты и на вершинах подписаны X и Y...
     
    #1373
  14. alz

    alz
    Форумчанин

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

    Вложения:

    • test1001.rar
      Размер файла:
      5,4 КБ
      Просмотров:
      14
    #1374
    Misha_E, dr_slam, paniva2010 и ещё 1-му нравится это.
  15. seether

    Регистрация:
    6 июн 2012
    Сообщения:
    2
    Симпатии:
    12
    Шикарная штука. Огромное спасибо. Жаль только автокад тупит от большого количества точек.
     
    #1375
  16. paniva2010

    Форумчанин

    Регистрация:
    4 окт 2015
    Сообщения:
    73
    Симпатии:
    4
    Отлично. А можно ли сделать настройку точности координат или сделать возможность изменять системную точность?
     
    #1376
    Последнее редактирование: 26 апр 2023
  17. alz

    alz
    Форумчанин

    Регистрация:
    26 май 2014
    Сообщения:
    371
    Симпатии:
    153
    Можно.
     

    Вложения:

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

    alz
    Форумчанин

    Регистрация:
    26 май 2014
    Сообщения:
    371
    Симпатии:
    153
    Тут уже почти ничего не сделаешь, выбрать точки можно только прогнав всю базу данных чертежа, что бы тупило меньше сделана обработка заранее выбранных точек, то есть сначала выбираете потом запускаете команду, и обрабатываться будут только выбранные точки, что должно ускорить работу.
     
    #1378
  19. paniva2010

    Форумчанин

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

    alz
    Форумчанин

    Регистрация:
    26 май 2014
    Сообщения:
    371
    Симпатии:
    153
    Ой, сори, отдублировал старый файл. Вот новый.
     

    Вложения:

    • test1001.rar
      Размер файла:
      5,7 КБ
      Просмотров:
      5
    #1380
    paniva2010 нравится это.

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

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