 |
> Нужно экспортить координаты из dxf файла в таблицу Exel | |
Нужно экспортить координаты из dxf файла в таблицу Exel |
||
|
|
||
| | Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
|||||||
 |
| Поиск в этой теме |
15.02.2006, 13:17
|
#1 | |
|
Нужно экспортить координаты из dxf файла в таблицу Exel
Регистрация: 15.02.2006
Сообщений: 3
|
||
|
Просмотров: 4036
|
||
|
||||
|
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 40,406
|
Кхм... А почему именно dxf (можно и из dwg попробовать сделать)? А какие координаты (в смысле - каких примитивов)? А как насчет поиска здесь и на autocad.ru - подобная задача сотни раз решалась...
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
|
||||
|
Java/Kotlin/Go Регистрация: 03.02.2006
Сообщений: 5,786
|
Координаты чего?
|
|||
|
|
|
||||
|
Регистрация: 15.02.2006
Сообщений: 3
|
Нужны только координаты точек. Есть прога, которая рисует картинку по координатам точек нужно потестить. И карта в coreldraw. преобразовал в dxf. теперь нужно скрипт. чтобы достать оттуда координаты
|
|||
|
|
|
||||
|
Java/Kotlin/Go Регистрация: 03.02.2006
Сообщений: 5,786
|
Нужно знать с какого примитива извлекать координаты точек.
С point, polyline или еще чего? |
|||
|
|
|
||||
|
Регистрация: 15.02.2006
Сообщений: 3
|
Вот файл. я не разбираюсь в cad.
[ATTACH]1140004773.rar[/ATTACH] |
|||
|
|
|
||||
|
КИПиА Регистрация: 21.03.2005
Tyumen
Сообщений: 1,352
 |
Дак что экспортировать то надо?
Я бы в файлике сплайны заменил на полилинии, всеравно от них толку никакого |
|||
|
|
|
||||
|
Java/Kotlin/Go Регистрация: 03.02.2006
Сообщений: 5,786
|
Предположу что надо экспортировать координаты точек, лежащих на гранцах областей, расположенных с определенным шагом.
Поэтому тебе надо преобразовать сплайны в полилинии (http://dwg.ru/forum/viewtopic.php?t=643 http://dwg.ru/forum/viewtopic.php?t=6346) Потом сюда: http://dwg.ru/forum/viewtopic.php?t=3042 |
|||
|
|
|
||||
|
конструктор Регистрация: 23.06.2005
Украмна
Сообщений: 9
|
Попробуй как идею(экспромт и без проверок)
(defun coorspl( / entg li l e) (setq e (car (entsel "n\Введите нужную spline ")) entg (entget e)) (setq li (member (assoc 10 entg) entg) li (member (assoc 10 (reverse li)) (reverse li)) l nil) (setq a (open "c:\\alex1917.txt" "W")) (foreach n li (write-line (strcat (rtos (cadr n) 2) "," (rtos (caddr n) 2) "," (rtos (cadddr n) 2) "," ) a)) (close a) ) Удачи |
|||
|
|
|
|
|
|
