| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Экспорт координат выбранных точек в *.txt

Экспорт координат выбранных точек в *.txt

Ответ
Поиск в этой теме
Непрочитано 14.05.2008, 16:06
Экспорт координат выбранных точек в *.txt
slan.ru
 
Регистрация: 13.05.2008
Сообщений: 6

Добрый день, уважаемые знатоки!

Сразу прошу, не пинайте ногами и не отправляйте в поиск. Все темы, в заголовках которых есть слово "координаты" и "координат" прочитал. Нашел много полезного для себя и практически то, что искал. Но многое остается в полутьме для моего мозга. Сама суть моего поста.

Я работаю в дорожном строительстве. С недавнего времени моя организация приобрела электронный тахеометр. На данный момент ось дороги выносим в натуру с помощью него. Координаты X и Y узловых точек по оси беру из CREDO_MIX, а координату Z подставляю по мере необходимости и вида выноса. Для фрезеровки, нижнего слоя, верхнего, и.т.п.

Возникла необходимость выноса в натуру кромок проезжей части. Но они не всегда соответствуют виду оси. В городских условиях могут быть примыкания, карманы для автобусных остановок и.т.п. Требуется (для начала) получить координаты узловых точек. Хочу начать с того, что бы получить координаты ВЫБРАННЫХ ТОЧЕК в текстовый файл. Последовательность:

1. Проставляем токи в требуемых узлах.
2. Выбираем необходимые точки.
3. Запускаем макрос.
4. Макрос создает в каталоге текстовый файл c названием как у чертежа.
5. Туда записываются координаты примитивов (вроде бы так тут это называют) в формате:
Pt X Y Z <Space>, где
Pt - для начала просто нумерация точек по мере добавления в файл,
X Y Z - координаты,
<Space> - разделитель.

От Вас прошу помощи. В программировании мало понимаю, но для меня пока что ясно, что скрипты можно создать как макрос - VBA, и LISP - на собственном языке. Хотелось бы увидеть такой скрипт, я думаю он не будет громоздким, на удобном Вам языке, но с описанием. Начну разбираться - с чего-нибудь надо начинать. Для начала поставленная задача будет минимальной, в дальнейшем хочу усложнить задачу собственными силами, если потяну.

Сразу оговорюсь, возможности купить ToolPak, Express и уж тем более Civil у меня нет, , да и не требуется пока мне выполнение задач отличных от этой. Поэтому надеюсь на Вашу помощь в написании такого скрипта. А уж за описание процедуры - буду безгранично благодарен.

P.S> Если требуются еще исходные данные - готов в найкротчайшие сроки предоставить их.
Просмотров: 233830
 
Непрочитано 14.01.2010, 18:23
#21
Агент СмиТ

Gti
 
Регистрация: 14.01.2010
МО Железнодорожный
Сообщений: 121


Уважаемый VVA! Большое вам спасибо за COOR, всё работает! Если вам не трудно не могли бы вы подкорректировать эту функцию, т.к. при работе с двухмерными чертежами она возвращает и координату Z, которая хоть и равна нулю, но при последующем построении полилинии вставкой массива координат из буфера обмена, останавливает выполнение команды после первой же точки!
Агент СмиТ вне форума  
 
Непрочитано 03.03.2010, 18:40
1 | #22
Disney

Геодезист
 
Регистрация: 12.03.2009
Сибирь (где медведи по улицам ходят)
Сообщений: 860
Отправить сообщение для Disney с помощью Skype™


Мои программы по этой теме:
Экспорт координат выбранных объектов из AutoCAD в *.txt
Импорт координат из текстового файла txt (sdr csv) в AutoCAD
__________________
Почему все вдруг становятся умными, когда уже не надо?

Последний раз редактировалось Disney, 05.11.2013 в 09:11.
Disney вне форума  
 
Непрочитано 10.03.2010, 11:22
#23
Агент СмиТ

Gti
 
Регистрация: 14.01.2010
МО Железнодорожный
Сообщений: 121


Здравствуйте уважаемый Disney! Протестировал Вашу программу, очень порадовало наличие функции подписей на чертеже! Однако есть и несколько просьб по доработке программы

При экспорте координат точек в файл желательно:
1. при необходимости отключать номера точек;
2. отключать координату Z.

По возможности: упростить имя команды запуска программы.

Заранее спасибо!
Агент СмиТ вне форума  
 
Непрочитано 10.03.2010, 14:53
#24
Disney

Геодезист
 
Регистрация: 12.03.2009
Сибирь (где медведи по улицам ходят)
Сообщений: 860
Отправить сообщение для Disney с помощью Skype™


Цитата:
Сообщение от Агент СмиТ Посмотреть сообщение
При экспорте координат точек в файл желательно:
1. при необходимости отключать номера точек;
2. отключать координату Z.
Вот как раз за Номер, Z и Комментарий я и боролся, если они тебе не нужны то вот, даже более навороченная программа Point Manager, (для скачивания нужна регистрация, прикрепляю последнею версию программы)

Цитата:
Сообщение от Агент СмиТ Посмотреть сообщение
По возможности: упростить имя команды запуска программы.
Чем проще имя команды, тем больше вероятности, что оно совпадёт с другой , при серьёзном обновлении программы добавлю альтернативное короткое название, а вообще удобнее повесить команду на кнопку, вот макрос, причём файл должен лежать в путях поиска AutoCAD, ну или на худой конец в автозагрузке
Код:
[Выделить все]
^C^C^P(if (not C:geo_export)(load "Geo_export_3_03_10"));^Pgeo_export;
Вложения
Тип файла: lsp PtManager V2.4.lsp (68.2 Кб, 856 просмотров)
__________________
Почему все вдруг становятся умными, когда уже не надо?

Последний раз редактировалось Disney, 14.06.2010 в 16:55. Причина: Обновление Point Manager
Disney вне форума  
 
Непрочитано 10.06.2010, 00:34
#25
vladimir1963


 
Регистрация: 07.05.2009
Сообщений: 81


Цитата:
Сообщение от Disney Посмотреть сообщение
Написал программу по экспорту координат(как геодезических так и математических) из AutoCADа
Disney, подскажите пожалуйста, как ее запустить?
vladimir1963 вне форума  
 
Непрочитано 10.06.2010, 09:28
#26
Агент СмиТ

Gti
 
Регистрация: 14.01.2010
МО Железнодорожный
Сообщений: 121


To vladimir1963

Цитата:
Сообщение от vladimir1963 Посмотреть сообщение
Disney, подскажите пожалуйста, как ее запустить?
Смотрите пост #2 в этой теме-всё подробно изложено!
Агент СмиТ вне форума  
 
Непрочитано 10.06.2010, 09:39
#27
zaabifff

проектировщик
 
Регистрация: 15.05.2009
Воронеж
Сообщений: 81


Особенно, если учесть, что темы с поста #2 уже не существует.
zaabifff вне форума  
 
Непрочитано 10.06.2010, 09:50
#28
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от zaabifff Посмотреть сообщение
Особенно, если учесть, что темы с поста #2 уже не существует.
Во #2 посте 2 ссылки. Та, которой не существует повторена в виде кода и улучшена в #7
Вторая ниже, в моей подписи. Именно ее и имели ввиду
------------------------------------------------------|
------------------------------------------------------|
------------------------------------------------------V Вот эта
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 10.06.2010, 09:56
#29
Агент СмиТ

Gti
 
Регистрация: 14.01.2010
МО Железнодорожный
Сообщений: 121


Цитата:
Сообщение от zaabifff Посмотреть сообщение
Особенно, если учесть, что темы с поста #2 уже не существует.
Иногда получение новых знаний требует приложения определенных усилий. Речь шла о второй ссылке.
Агент СмиТ вне форума  
 
Непрочитано 10.06.2010, 10:06
1 | #30
Disney

Геодезист
 
Регистрация: 12.03.2009
Сибирь (где медведи по улицам ходят)
Сообщений: 860
Отправить сообщение для Disney с помощью Skype™


Цитата:
Сообщение от vladimir1963 Посмотреть сообщение
Disney, подскажите пожалуйста, как ее запустить?
Increase Size Decrease Size Нажмите для просмотра
http://www.youtube.com/watch?v=9v2x_cH7Dl4
__________________
Почему все вдруг становятся умными, когда уже не надо?
Disney вне форума  
 
Непрочитано 13.06.2010, 09:34
#31
vladimir1963


 
Регистрация: 07.05.2009
Сообщений: 81


Доброго времени суток, Disney. Спасибо за видеотутор. Протестировал програмку - понравилась(очень просто пользоваться). Хотелось бы еще вывод координат на чертеж автоматически. Можно конечно просто скопировать с блокнота координаты, да вставить в отметку или описание на чертеже, но хотелось бы автоматом. Возможно ли это?
vladimir1963 вне форума  
 
Непрочитано 14.06.2010, 07:27
1 | #32
Disney

Геодезист
 
Регистрация: 12.03.2009
Сибирь (где медведи по улицам ходят)
Сообщений: 860
Отправить сообщение для Disney с помощью Skype™


Цитата:
Сообщение от vladimir1963 Посмотреть сообщение
вывод координат на чертеж автоматически
Increase Size Decrease Size Нажмите для просмотра
http://www.youtube.com/watch?v=F7qf3R01kqo
  1. Если блоки с полями создавать не умеешь, можешь взять готовый, например тут или посмотреть пример создания аналогичного здесь
  2. Программу PoinManager возьми из #24
__________________
Почему все вдруг становятся умными, когда уже не надо?
Disney вне форума  
 
Непрочитано 14.06.2010, 12:04
#33
vladimir1963


 
Регистрация: 07.05.2009
Сообщений: 81


Еще раз хочу сказать Вам спасибо Disney, за видеотутор, все отлично получается.
vladimir1963 вне форума  
 
Непрочитано 24.12.2010, 03:05
#34
MANUL

Авиация
 
Регистрация: 27.11.2010
Санкт-Петербург
Сообщений: 20
<phrase 1= Отправить сообщение для MANUL с помощью Skype™


Добрый день Товарищи.
Впоисках проги, наносящей на чертёж точки и подписывающей их номера обрадовался ветке.
Но рано обрадовался...
Цитата:
Сообщение от Агент СмиТ Посмотреть сообщение
Здравствуйте уважаемый Disney! Протестировал Вашу программу, очень порадовало наличие функции подписей на чертеже!
Это как? Я вот пробовал такое проделать с точками из текстового файла exp_1. (вложение).
Geo_Export - не наносит точки на чертёж и не подписывает, а я надеялся что рядом с точкой пропишет атрибут из 4го столбца (её название, или номер).
Так прога даже не чертит точки.

Попробовал с другой программой: IMPORTXYZ (см.вложение). Тоже ни хрена не чертит точки, вместо этого ругается:
Команда: IMPORTXYZ
Displaying data... Done.
Opening TXT file...
Determining delimiter... Done.
Counting line numbers... Done.
Extracting coords... Done.
Closed TXT file.
Displaying data... Done.
Saving variables from dialog box... Done.
Inserting block # 1Неизвестная команда "-INSERT". Для вызова справки нажмите
F1.
1.000000
Неизвестная команда "IMPORTXYZ". Для вызова справки нажмите F1.
Неизвестная команда "IMPORTXYZ". Для вызова справки нажмите F1.
0
; ошибка: неверный тип аргумента: lentityp nil

PtManager V2.4 тоже ничего не делает.

Помогите пожалуйста разобраться в чём дело.
Вложения
Тип файла: rar exp_1.rar (133 байт, 390 просмотров)
Тип файла: rar IMPORTXYZ.rar (12.0 Кб, 317 просмотров)
MANUL вне форума  
 
Непрочитано 24.12.2010, 07:57
#35
hwd

C, C++, C#
 
Регистрация: 07.10.2009
С-Пб.
Сообщений: 2,762
Отправить сообщение для hwd с помощью Skype™


Цитата:
Сообщение от MANUL Посмотреть сообщение
Впоисках проги, наносящей на чертёж точки и подписывающей их номера обрадовался ветке.
Здесь я рассматривал ряд задач, одной из них была ваша (как мне кажется). Вот ещё что-то с точками...
__________________
Надеюсь, ты не социальный овощ? Это определяется делами! :welcome:

Последний раз редактировалось hwd, 30.04.2013 в 08:30. Причина: обновил устаревшие ссылки.
hwd вне форума  
 
Непрочитано 24.12.2010, 11:51
#36
Disney

Геодезист
 
Регистрация: 12.03.2009
Сибирь (где медведи по улицам ходят)
Сообщений: 860
Отправить сообщение для Disney с помощью Skype™


MANUL, пока посмотри тут
__________________
Почему все вдруг становятся умными, когда уже не надо?
Disney вне форума  
 
Непрочитано 24.12.2010, 12:09
#37
Олег (jr.)

специалист по околачиванию грушевых деревьев
 
Регистрация: 14.09.2004
Pietari, Venäjä
Сообщений: 813


Цитата:
Сообщение от MANUL Посмотреть сообщение
Добрый день Товарищи.
Впоисках проги, наносящей на чертёж точки и подписывающей их номера обрадовался ветке.
Но рано обрадовался...


Это как? Я вот пробовал такое проделать с точками из текстового файла exp_1. (вложение).
Geo_Export - не наносит точки на чертёж и не подписывает, а я надеялся что рядом с точкой пропишет атрибут из 4го столбца (её название, или номер).
Так прога даже не чертит точки.

Попробовал с другой программой: IMPORTXYZ (см.вложение). Тоже ни хрена не чертит точки, вместо этого ругается:
Команда: IMPORTXYZ
Displaying data... Done.
Opening TXT file...
Determining delimiter... Done.
Counting line numbers... Done.
Extracting coords... Done.
Closed TXT file.
Displaying data... Done.
Saving variables from dialog box... Done.
Inserting block # 1Неизвестная команда "-INSERT". Для вызова справки нажмите
F1.
1.000000
Неизвестная команда "IMPORTXYZ". Для вызова справки нажмите F1.
Неизвестная команда "IMPORTXYZ". Для вызова справки нажмите F1.
0
; ошибка: неверный тип аргумента: lentityp nil

PtManager V2.4 тоже ничего не делает.

Помогите пожалуйста разобраться в чём дело.
Пробуем
Код:
[Выделить все]
(defun C:PTCAD	(/ fname fd hgt p1 p2 strline strlist strtext)

  (defun emake-pt  (pt)
    (entmake
      (list
	(cons 0 "POINT")
	(cons 100 "AcDbEntity")
	(cons 100 "AcDbPoint")
	(cons 10 pt)
	(cons 8 "0")
	)
      )
    )

  (defun emake-mtext  (p1 p2 txt)
    (entmake
      (list
	(cons 0 "MTEXT")
	(cons 100 "AcDbEntity")
	(cons 100 "AcDbMText")	
	(cons 10 p1)
	(cons 40 (getvar "TEXTSIZE"))
	(cons 41 (abs (- (car p2) (car p1))))
	(cons 7 (getvar "TEXTSTYLE"))
	(cons 1 txt)
	(cons 71 4)
	(cons 72 5)
	(cons 73 1)

	)
      )
    )


  (defun str2lst  (str sep / pos)
    (if	(setq pos (vl-string-search sep str))
      (cons (substr str 1 pos)
	    (str2lst
	      (substr str (+ (strlen sep) pos 1))
	      sep
	      )
	    )
      (list str)
      )
    )
  (if (and (setq fname (getfiled "Select a Points Data File"
				 (getvar "dwgprefix")
				 "txt"
				 4)
		 )
	   (setq fd (open fname "r")
		 )
	   )
    (progn

      (while (setq strline (read-line fd))
	(setq strlist (cons strline strlist))
	)

      (if fd
	(close fd))
      (setq strlist
	     (mapcar '(lambda (x) (str2lst x " ")) strlist)
	    )
      (if (/= (getvar "textsize") 2.5)		  ;<--change text size
	(progn
	  (setvar "textsize" 2.5)		  ;<--change text size
	  (setq hgt (getvar "textsize")))
	(setq hgt (getvar "textsize")))
      (setvar "PDSIZE" 2.5)
      (setvar "PDMODe" 34)
      (foreach item  strlist

	(emake-pt
	  (setq p1 (mapcar 'atof (list (car item) (cadr item) (caddr item)))))
	(emake-mtext
	  (polar p1 0 (* hgt 2))
	  (polar p1 (/ pi 4) (* hgt 10))
	  (last item))
	)
      )
    )
  (princ)
  )
(prompt "\n|t***\tProgram loaded")
(C:PTCAD)
(prin1)
Олег (jr.) вне форума  
 
Непрочитано 04.01.2011, 09:39
#38
MANUL

Авиация
 
Регистрация: 27.11.2010
Санкт-Петербург
Сообщений: 20
<phrase 1= Отправить сообщение для MANUL с помощью Skype™


Олег (jr.) код работает, вставляет точки и подписывает их.
Но есть проблема: нанесение точек на чертёж в соответсвии с какой то другой системой координат. Не в той что я выставил. ((( (см. вложение)
Это как то можно исправить?

(exp_1 - данные о точках)
Миниатюры
Нажмите на изображение для увеличения
Название: ошибка в СК.jpg
Просмотров: 550
Размер:	37.7 Кб
ID:	51005  
Вложения
Тип файла: rar exp_1.rar (116 байт, 216 просмотров)
MANUL вне форума  
 
Непрочитано 05.01.2011, 03:00
#39
Олег (jr.)

специалист по околачиванию грушевых деревьев
 
Регистрация: 14.09.2004
Pietari, Venäjä
Сообщений: 813


Цитата:
Сообщение от MANUL Посмотреть сообщение
Олег (jr.) код работает, вставляет точки и подписывает их.
Но есть проблема: нанесение точек на чертёж в соответсвии с какой то другой системой координат. Не в той что я выставил. ((( (см. вложение)
Это как то можно исправить?

(exp_1 - данные о точках)
Завтра освобожусь и попытаюсь переделать
(Посмотри функцию trans в справке)
Олег (jr.) вне форума  
 
Непрочитано 05.01.2011, 22:33
#40
Disney

Геодезист
 
Регистрация: 12.03.2009
Сибирь (где медведи по улицам ходят)
Сообщений: 860
Отправить сообщение для Disney с помощью Skype™


MANUL, попробуй такую программу
__________________
Почему все вдруг становятся умными, когда уже не надо?
Disney вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Экспорт координат выбранных точек в *.txt

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Экспорт координат из dxf в txt eilukha Вертикальные решения на базе AutoCAD 14 26.04.2008 21:53
Нумерация точек на плане и вывод их координат в полярной системе kukuikar Программирование 1 17.02.2008 11:15
Получение текстового массива координат точек. Камыч AutoCAD 5 30.07.2007 12:28
Помощь по Лире Серега М Лира / Лира-САПР 52 28.05.2007 02:47
простановка реальных ординатных размеров (координат точек) AnnaT AutoCAD 7 15.06.2005 17:56