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

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

Программой Дениса Флюстикова (есть на dwg.ru) для работы с блоками заменить текстовый стиль (или стили, если их несколько) внутри блоков. Вычистить съемку от других настроек для сдачи в архитектуру.

--- Сообщения объединены, Jan 13, 2023, Оригинальное время сообщения: Jan 13, 2023 ---

чуть позже сделаю себе панельку из 3 или 4 кнопок как раз для выбора обьектов по стилю.

 

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

 

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

 

Скинул бы пример, что за блок, что ближайший текст?

 

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

 

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

 

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

 

Большое спасибо! очень удобно удалять.

 

Доброго дня
На просторах интернета нашел очень нужный мне 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 "")

Заранее спасибо
Всем добра!

--- Сообщения объединены, Mar 31, 2023, Оригинальное время сообщения: Mar 31, 2023 ---

В меню Гео есть нечто подобное

 

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

Code:

(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))
)
)

 

помогите понять что не так. хочу сделать лисп который удаляет все за пределами замкнутой полилинии(границы)
есть описание

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

а что-то не работает.

 

Коллеги добрый день. Существует ли какой-нибудь лисп или функция в продуктах аутодеск? Необходимо выбрать только точки внутри сферы или наоборот за пределами сферы ( или сферической поверхности). Заранее спасибо за любую информацию

 

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

 

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

 

Шикарная штука. Огромное спасибо. Жаль только автокад тупит от большого количества точек.

 

Отлично. А можно ли сделать настройку точности координат или сделать возможность изменять системную точность?

 

Можно.

 

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

 

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

 

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