[alfonc67]

Есть туча отметок с подписями, но что-то пошло не так и в подписях они округлились т.е. где было 199,00 стало 199. Где было 199.10 стало 199.1. Как добавить в подпись этот 0. Подписи уже повернуты, переделывать в лом их больше 11к

[kp+]

Решения могут быть разные.
Если в объектах (кстати, что за объекты?), изображающих отметки, просто текстовые строки - одно решение. Если вычисляемые поля - другое.
Короче, без фрагмента чертежа говорить не о чем.

А еще зайдите на geodesist.ru, там такие вопросы обсуждаются чаще, и очень может быть, что есть готовое решение.

[trir]

вормат метки

[Бим]

Обычно при задании единиц измерения задают и точность их отображения и возможность отбрасывания нолей. Ищите где оно в Вашей версии.

[Oleg T]

Мой простенький лисп для удаления или добавления префиксов и суффиксов к текстам, мтекстам или первому атрибуту блока. Может, пригодится (если это не вычисляемые поля, конечно).

[alfonc67]

Подпись отметки

----- добавлено через ~1 мин. -----

Сообщение от kp+ Решения могут быть разные. Если в объектах (кстати, что за объекты?), изображающих отметки, просто текстовые строки - одно решение. Если вычисляемые поля - другое. Короче, без фрагмента чертежа говорить не о чем. А еще зайдите на geodesist.ru, там такие вопросы обсуждаются чаще, и очень может быть, что есть готовое решение.

Текст подписи отметки (многострочный)

----- добавлено через ~46 мин. -----

Сообщение от Oleg T Мой простенький лисп для удаления или добавления префиксов и суффиксов к текстам, мтекстам или первому атрибуту блока. Может, пригодится (если это не вычисляемые поля, конечно).

Да он работает, но сначало надо из 11 тысяч подписей выбрать в ручную там где 1 цифра после запятой и потом добавить 0. А потом опять в ручную выбрать все объекты где целые числа и добавить .00

[Oleg T]

Сообщение от alfonc67 Да он работает, но сначало надо из 11 тысяч подписей выбрать в ручную там где 1 цифра после запятой и потом добавить 0. А потом опять в ручную выбрать все объекты где целые числа и добавить .00

Так это без проблем. Зачем вручную?
Изолировать нужные тексты. Выбрать через CTRL-F все с запятой, лиспом добавить один 0, скрыть. Добавить к оставшимся ,00.
Не знаю, как сразу со всеми сработает (долго или нет). Панель свойств лучше скрыть.
Если в файле путаница со слоями, то посложнее будет.

[trir]

еще зайдите на geodesist.ru, там такие вопросы обсуждаются чаще, и очень может быть, что есть готовое решение.

Civil 3D называется

[sertor]

Сообщение от alfonc67 Подписи уже повернуты, переделывать в лом их больше 11к

Мне нравится программа BearDyugin (Disney).

[Oleg T]

Сообщение от alfonc67 Да он работает, но сначало надо из 11 тысяч подписей выбрать в ручную там где 1 цифра после запятой и потом добавить 0. А потом опять в ручную выбрать все объекты где целые числа и добавить .00

Добавил еще одну функцию (разделителем в числах обязательно должна быть точка)

Код:

[Выделить все]

 
;--------------------------------------------------------------------------
;Округление чисел с указанием необходимого количества знаков после запятой
;--------------------------------------------------------------------------
(defun c:okr_txt ()
	(setq kol_zn (getstring t "\Укажите количество знаков после точки для округления:		"))
	(setq nab (ssget))
	(setq kol (sslength nab))
	(setq nab1 (ssadd))
	(setq n -1)
	(repeat kol
		(setq n (+ n 1))
		(setq pr (ssname nab n))
		(setq pr_ (cdr (assoc '0 (entget pr))))
		(if
			(= pr_ "INSERT")
			(progn
				(setq pr1_ (cdr (assoc '0 (entget (entnext pr)))))
				(if
					(= pr1_ "ATTRIB")
					(ssadd pr nab1)
				)
			)
		)
		(if
			(= pr_ "TEXT")
			(ssadd pr nab1)
		)
		(if
			(= pr_ "MTEXT")
			(ssadd pr nab1)
		)
	)
	(setq kol (sslength nab1))
	(setq n -1)
	(repeat kol
		(setq n (+ n 1))
		(setq pr (ssname nab1 n))
		(setq pr_ (entget pr))
		(setq pr_naim (cdr (assoc '0 pr_)))
		(if (= pr_naim "INSERT")
			(setq pr_ (entget (entnext pr)))
			(setq pr_ (entget pr))
		)
		(setq pr_old (assoc '1 pr_))
		(setq pr_new (cons 1 (rtos (atof (cdr pr_old)) 2 (atoi kol_zn))))
		(setq pr_ (subst pr_new pr_old pr_))
		(entmod pr_)
	)
)

спасибо sertor за подсказку ))

[alfonc67]

Сообщение от Oleg T Добавил еще одну функцию (разделителем в числах обязательно должна быть точка) Код: [Выделить все] ;-------------------------------------------------------------------------- ;Округление чисел с указанием необходимого количества знаков после запятой ;-------------------------------------------------------------------------- (defun c:okr_txt () (setq kol_zn (getstring t "\Укажите количество знаков после точки для округления: ")) (setq nab (ssget)) (setq kol (sslength nab)) (setq nab1 (ssadd)) (setq n -1) (repeat kol (setq n (+ n 1)) (setq pr (ssname nab n)) (setq pr_ (cdr (assoc '0 (entget pr)))) (if (= pr_ "INSERT") (progn (setq pr1_ (cdr (assoc '0 (entget (entnext pr))))) (if (= pr1_ "ATTRIB") (ssadd pr nab1) ) ) ) (if (= pr_ "TEXT") (ssadd pr nab1) ) (if (= pr_ "MTEXT") (ssadd pr nab1) ) ) (setq kol (sslength nab1)) (setq n -1) (repeat kol (setq n (+ n 1)) (setq pr (ssname nab1 n)) (setq pr_ (entget pr)) (setq pr_naim (cdr (assoc '0 pr_))) (if (= pr_naim "INSERT") (setq pr_ (entget (entnext pr))) (setq pr_ (entget pr)) ) (setq pr_old (assoc '1 pr_)) (setq pr_new (cons 1 (rtos (atof (cdr pr_old)) 2 (atoi kol_zn)))) (setq pr_ (subst pr_new pr_old pr_)) (entmod pr_) ) ) спасибо sertor за подсказку ))

Пишет синтаксическая ошибка при загрузке лиспа

----- добавлено через ~3 мин. -----

Сообщение от Oleg T Так это без проблем. Зачем вручную? Изолировать нужные тексты. Выбрать через CTRL-F все с запятой, лиспом добавить один 0, скрыть. Добавить к оставшимся ,00. Не знаю, как сразу со всеми сработает (долго или нет). Панель свойств лучше скрыть. Если в файле путаница со слоями, то посложнее будет.

После запятой могут быть и 185.11 а надо только чтоб 1 символ был после запятой выбран. 185.1. Иначе он присвоит и к 185.110

[Oleg T]

Сообщение от alfonc67 Пишет синтаксическая ошибка при загрузке лиспа

Скорее всего файл лисп был сохранен копированием через буфер (?).
Проверил в акаде 2016 - все работает
А так выложил здесь для скачивания
https://dwg.ru/dnl/15174

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

[alfonc67]

----- добавлено через ~2 мин. -----
[quote=Oleg T;1919116]Скорее всего файл лисп был сохранен копированием через буфер (?).
Проверил в акаде 2016 - все работает
А так выложил здесь для скачивания
https://dwg.ru/dnl/15174

Загружается, ставлю количество знаков после точки 2, выбираю объекты нажимаю ввод и ничего не происходит. Может это из-за 2019 автокада? Выбирал только текст подписи точки, там только цифры

[Oleg T]

Сообщение от alfonc67 Может это из-за 2019 автокада?

Тут сказать ничего не могу, у меня в Брикскаде все работает, возможность проверки есть только в акаде 2016, там тоже все нормально.
Все три функции работают с текстами, мтекстами и первым атрибутом блока (только что проверил еще раз).
И еще в #9# приведена ссылка на программу.