[Анатолий Чернецкий]

Здравствуйте. Занимаемся контрольно-исполнительной геодезической съемкой. В т.ч. на проект в Автокаде накладываем фактическую геодезическую съемку. По результатам делаем СЛИЧИТЕЛЬНУЮ ВЕДОМОСТЬ в Exel. Делаем так - От проектной точки к фактической рисуем прямоугольник, взрываем его и в свойствах смотрим длину получившихся вертикальной и горизонтальной линий, которые и переносим в exel. Получаются значения приращения координат по Х иУ, они же отличия от проекта. Hand made в общем. Тяжеловато, когда по тысяче точек. Может существует какая-нибудь программка на этот счет? Или может ее можно написать? Подскажите, пожалуйста.

[Tyhig]

Жесть

Не знаю.

[E-degtyarev]

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

[ShaggyDoc]

Такую программу написать очень легко.
1. Начинаем формировать список из строк. Первая строка-заголовки столбцов. Примерно так:
"Номер;Хпр;Упр;Хфакт;Уфакт"
2. В цикле, до пустого ввода, запрашивается проектная точка.
2.1. Если указана проектная точка, запрашивается фактическая точка.
2.2. Извлекаются координаты двух точек и в список добавляется строка столбцов, разделенных точкой с запятой. Примерно так:
"22;100.0;50.0;101.52;50.05"
3. Список сохраняется в файл с расширением CSV.
4. Файл открывается в Excel или любой другой хрени.

[Карел]

Набор программ для Civil посмотрите http://www.realgeo.ru/produsts/CUtil.html
Проги бесплатные.

[Анатолий Чернецкий]

ShaggyDoc
К сожалению, плохо разбираюсь в этих вопросах, понял в общих чертах-
1. Выбираем проектную точку (можно ли сделать ее началом координат 0,0?)
2. Выбираем фактическую.

А как формировать список из строк?


Карел
Да, похоже, там есть такая функция, но она работает с точками Civil, а проектные точки у нас всегда разные - блоки, обычные точки, круги и т.д., но никогда - точки Civil.



УФФ!!! Только что "сличил" 400 точек кабеля........

[Карел]

Civil требуется и для установки пограмм, точнее они в паре работают. Точки Civil и сделаете из блоков, кругов и т.п. Единственное пробовал преобразовать в точки Civil 174тыс точек AutoCAD - виснет Civil (комп не висит).

[Анатолий Чернецкий]

Карел

Наверно, так и надо делать по уму, но для меня это слишком сложно - с Civil не работал с 2004 (тогда он был Land). Это как гвозди канделябром забивать - задача-то у меня простенькая, тем более, что требуют стандартную ведомость в Exel. За ссылку спасибо - демку скачаю.

[Disney]

Сообщение от Анатолий Чернецкий Сличительная

чё, прям так и называется.
Странно, первый раз такое слышу, про ведомости, мы всегда исполнительные схемы оформляем, и с помощью программ ссылки на которые я давал в теме "Лисп для исполнительной по стенам", буквально неделю назад, и там даже каждую пару точек проект\факт тыкать не надо.

?????????»?????‚?µ?»?????°?? ???…?µ???° ?????°?????????? ?????»??

http://www.youtube.com/watch?v=tQFwm7D9FKo

Geo_otkl.avi

http://www.youtube.com/watch?v=QxVAUdGXLBk&feature=channel_video_title

[Владимир.]

Сообщение от Анатолий Чернецкий А как формировать список из строк?

пишем во внешний файл строку
"22;100.0;50.0;101.52;50.05"
и фсё. Так по каждой точке. Но тыкать придется руками.
ShaggyDoc очень подробно всё описал. Дайте это описание тому, кто сможет это запрограммировать.

[E-degtyarev]

Вот как-то так, может быть. Попробуй.
Файл "Ведомость.txt" появляется обычно в папке "Мои документы".
Открой его в Excel-е. Почему файл "txt" а не "csv"? При открытии имеются возможности настроек форматирования столбцов вручную.

Код:

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

(defun c:vedom (/ prpt fapt)
  (setvar "blipmode" 1)
  (setq f (open "Ведомость.txt" "w"))
  (write-line "dX;dY" f)
  (close f)
  (while (and (setq prpt (getpoint "\nПроектная точка: "))
	      (setq fapt (getpoint prpt "\nФактическая точка: "))
	 )
    (setq f (open "Ведомость.txt" "a")) 
    (write-line
      (strcat (vl-string-subst "," "." (rtos (abs (- (car prpt) (car fapt))) 2 2))
	      ";"
	      (vl-string-subst "," "." (rtos (abs (- (cadr prpt) (cadr fapt))) 2 2))
      ) 
      f
    )
   (close f)
  ) 
  (setvar "blipmode" 0)
 )

[Disney]

Сообщение от E-degtyarev Вот как-то так, может быть. Попробуй.

только не вздумайте в ходе программы нажать Esc, а то ...

[E-degtyarev]

Сообщение от Disney только не вздумайте в ходе программы нажать Esc, а то ...

А что здесь страшного? Отключить крестики пустяшное дело, а здесь они очень полезны - видно, где уже клацнул. При таком изобилии точек, как описывает автор темы, запутаться очень легко.

[Анатолий Чернецкий]

Спасибо большое за ответы.

E-degtyarev
А как этот код запустить в Автокаде?

[E-degtyarev]

Сообщение от Анатолий Чернецкий А как этот код запустить в Автокаде?

Об этом достаточно внятно написано здесь:
http://dwg.ru/pub/9

[Анатолий Чернецкий]

E-degtyarev
Большое спасибо!
Только у меня файл "Ведомость.txt" почему-то не появляется...

[E-degtyarev]

Сообщение от Анатолий Чернецкий Только у меня файл "Ведомость.txt" почему-то не появляется...

"Ищи, матушка, должон быть". Попробуй поюзать "поиск". Файл может появится в любом рабочем каталоге, куда есть доступ из AutoCAD-а.
Если не получится, напиши в двух строчках программушки вместо
open "Ведомость.txt", скажем, open "C:/Ведомость.txt" или укажи другой конкретный путь доступа по твоему усмотрению. Только применяй в качестве разделителя "/". В лиспе знак "\" имеет специальное назначение.
Можно написать и так "C:\\Ведомость.txt".

[Анатолий Чернецкий]

E-degtyarev
Все получилось! Еще раз большое спасибо! Так мучился раньше!!

[Анатолий Чернецкий]

Сообщение от E-degtyarev А что здесь страшного? Отключить крестики пустяшное дело, а здесь они очень полезны - видно, где уже клацнул. При таком изобилии точек, как описывает автор темы, запутаться очень легко.

А как их отключить? А то уменя они теперь во всех чертежах...

[E-degtyarev]

Сообщение от Анатолий Чернецкий А как их отключить?

BLIPMODE - системная переменная =0

ЗЫ: Выходи из программы, нажимая Enter или правую кнопку мыши, а не Esc.