Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Отрасль → Геодезия и картография → Как уменьшить разрядность числовых значений Акаде?
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Всем привет!
Обрабатываю съемку в Credo DAT 3.0 , конвертирую ее в .dxf получаю отметки с тремя знаками за запятой.. можно ли как то уменьшить разряд(нужно до десятых)? Читал что как то делают в лиспе это дело, но я в нем совершенно ничего не понимаю..
Если это TEXT то так
(defun c:tx ( / nameset setlength namtxtrun
txtzir para txtstr txtstr txtnum txtnew );
(setq nameset (ssget "_:L" '(( 0 . "TEXT"))))
(setq setlength (sslength nameset))
(setq i -1)
(repeat setlength
(setq i (1+ i))
(setq namtxtrun (ssname nameset i))
(setq txtzir (entget namtxtrun))
(setq para (assoc 1 txtzir))
(setq txtstr (cdr para))
(setq txtnum (atof txtstr))
(setq txtnew (rtos txtnum 2 1))
(setq para_new (cons 1 txtnew))
(setq txtNew (subst para_new para txtzir))
(entmod txtNew)
(entupd (cdr (assoc -1 txtNew)))
)
)
если атрибут блока то подругому.
Можно через настройку единиц, установить отображение необходимого количества знаков после запятой. Меню Формат - Единицы, или команда _units.
> Victor
Да, это однострочный текст..
не совсем понял что делать с тем что Вы мне дали... вставил в командную строку никакого результата не получил..
> Коваленко Сергей
в настройке единиц настраиваются единицы рисунка.. точность и т.п. мне нужно просто округление текста
Tools->Load Applications
в командной строке tx
> Victor
А что именно "Load", что ж вы не написали?
Хорошо. Скопировать в новый файл txt. Переименовать с расширением .lsp
Его загрузить.
Да. Совсем забыл. Набираем _layiso
Выбираем наш текст. Загружаем наш лисп. Набираем tx
Быбираем рамочкой тексты.
ВАУУУУ!!!!
> Victor
Спасибо ОГРОМНОЕ!!!! не знаю как, но работает!!!!
в ручную то по триста пикетов долго было перебивать..
> Mirniy
А разве в вопросе было упоминание о текстовых примитивах?
> Коваленко Сергей
Это подразумевалось. Из Credo точки съемки экспортируются в DXF или как точки с координатами XYZ и подписями отметок или как блоки с атрибутами XYZ. Ваш совет справедлив для LandDesktop и других программ в которых точки съемки храгятся в базе данных и их отображение можно настраивать (подписи, ориентация, точность).
> Mirniy
Совет на будущее: экспортируй из Credo в текстовый файл а потом импортируй его в автокад при помощи какой-нибудь утилитки. В этом разделе форума их фигурировало большое количество. Выбирай на свой вкус. Странно, но настроить экспорт из Credo с двумя знаками не получается.(может потому-что ломаная или старая версия - по возможности проверю на новой лицензионной)
> Victor
Удобная штука. Для себя я подкорректировал в строке (setq txtnew (rtos txtnum 2 1)) цифру 1 на 2, чтобы получать на выходе два знака после запятой.
Вопрос. программа работает когда разделитель целой и дробной части точка, а когда в тексте запятые отсекает все. Как с этим бороться? Хотелось бы иметь возможность работать и с тем и с другим вариантом.
> off
Сделайте замену всех запятых на точки.
> Игорь Богаченко
Тоже выход. Спасибо.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Отрасль → Геодезия и картография → Как уменьшить разрядность числовых значений Акаде?
Форум работает на PunBB, при поддержке Informer Technologies, Inc
