[Закрыто] Общение геодезистов (Страница 1 из 6)

я

а что обсуждать будем?

отзываюсь.:))

> Елена
Для этого есть отдельные темы, а программы однозначно - прекрасные

работаем и с 3Та5Р

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

Простенькая програмка которая вставляет перевод строки после каждой записи (формат записи кажется по 8 полей и 12 символов в поле) (работаем сразу с координатами)  потом в EXCEL выбираем столбцы с номерами точек, координатами X,y,z кодом точки (выкидываем служебку о станциях и в CSV файл,
затем его можно уже забросить LDD

Доброго времени суток!
Вопрос:
Кто пользуется программой CREDO?
мне бы хотелось задать ряд вопросов.
Slava000@yandex.ru

кто подскажет, какие требования по точности предъявляются при геодезической съемке вгороде? если можно ссылку на правовой доркумент.
кто занемается землеустройством, дайте спрошу!

Тут спрашивали кто работает с Кредо. Я работаю. Вобщем у меня такой набор: Credo_dat, AutoCAD 2002, Field Survey 1.0. Сюрвей я использую только для рисования профилей, правда подвал у них получается немного убогий, поэтому приходится уклоны считать вручную.
Теперь расскажу как происходит собственно процесс обработки.
У нас TOPCON'овские тахеометр (GTS-600)  и нивелиp (DL-102).
От стандартных программ по скачиванию я отказался, так как в удобоваримом виде получить полевой журнал невозможно, и написал свои. То есть для тахеометра я имею на входе формат GTS-7, а на выходе нормальный полевой журнал. Кредо с тахеометра берет данные без особых проблем, хотя обратную засечку наотрез отказывается импортировать, приходится вручную заносить. С нивелиром сложнее. Данные с нивелира не читает. Ища выход из положения, я попытался разобраться с кредовским форматом хранения данных (gds). Вроде нашел структуры, отвечающие за нивелирование, но при попытке открыть  сформированый файл, возникают проблемы. Я написал письмо разработчикам, мол дайте описание формата. Получил в ответ вежливый отказ и предложение купить программу "Нивелир", которая, кстати сказать не понимает наш нивелир. Ну да бог с ним. Сейчас я в кредо просто засылаю sendkeys. Через раз, но работает.
Теперь дальше. После того, как я получаю ведомость координат, я отправляю с помощью другой своей программы данные из Excel'я в Автокад. Если нужно строить профиль, то как я уже говорил, использую сюрвей.

[rus] Da vot, mozhet komu prigodit'sja. Programka, kotoraja perbrasyvaet objekty s odnogo sloja v drugoj.
k programmke trebuet'sja sozdat' fajl so spiskom imjon "staryh"  i "novyh" slojov, staryj ot novogo dolzhen byt' razdeljon zapjatojj. Ne znaju kak u vas, a nam ehto aktual'no. Kazhdyjj rabotajet so svoimi slojami, i inogda pri obmene byvajut problemmy. Dopustim odni pikety stavjat v slojj "pik", drugije v slojj "piket", tretji prjamo v "1300". I esli nado popolnit' chertjozh (u menja programmka, dlja otrisovki uslovnyh znakov, vstavljaet v konkretnyjj slojj), ehtih slojov nakaplivaet'sja ochen' mnogo. Predlagaju vashemu vnimaniju samu programmku: [/rus]

  ( defun change_layers()
 (SETVAR "CMDECHO" 0)
 (setq geos3 "geos3.txt")
(if ( = (findfile geos3) nil)(Prompt "\nDo not file 'geos3.txt'"); proverka sushhestvuet li
fail slojov, esli net vyhod iz programmy s vydachejj oshibki
(progn
  (setq paral (open (findfile geos3) "r"))
(while (setq eilu (read-line paral))
  (setq eilil(strlen eilu)); schityvaem strochku fajla
  (setq foras 1)
( if (/= eilil 0)( progn
( while (/= foras eilil)
     (setq kablel(substr eilu foras 1))
( if (/= kablel ",") (setq foras (+ 1 foras))( progn ; razdelitel' zapjataja
       (setq laysen (substr eilu 1 (- foras 1))); imja starogo sloja
       (setq laynau(substr eilu (+ foras 1))); imja novogo sloja
 (setq foras eilil)
 (setq renkam(ssget "x" (list (cons 8 laysen)))); sozdajom spisok ob''ektov
( if (/= renkam nil) ( progn  ; esli spisok pustojj perehodim k sledujushhej strochke
fajjla
;(setq nera (tblsearch "LAYER" laynau))
(if (= (tblsearch "LAYER" laynau) nil)(command "-layer" "m" laynau "")); patikrinimas,
ar naujas sluoksnis yra, jei nera, tai kuriam
;proverka, susshestvyet li novyj sloj, esli net, sozdajom egeo
 (command "change" renkam "" "P" "LA" laynau "")
))
 (setq renkam nil)
))))))))
(setvar "cmdecho" 1)
(princ)
)

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

> juk
[rus] Da, otlichajut'sja, sosna, kedr - poperechniki v verh,
jolka - v niz, listvennica, pihta - gorizontal'no [/rus]