[G-RAV]

Написал код для импорта точек .job или .are в Автокад минуя Кредо_Дат, полученных по результатам геодезической съемки прибором Trimble Geodimetr 600. С условием, что съемка велась от исходных пунктов с известными координатами ( в приборе). Буду рад полезной критике, т.к. только начинаю программировать.

Код:

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

 
(defun import_job&are (/)
; отключаем вывод сообщений в командную строку
(setvar "cmdecho" 0)
;;Запоминание привязки, и текущего слоя и цвета
(setq AAA (getvar "osmode"))
;выбираем файл присваеваем File
(setq File (getfiled "Выберите файл с расширением job & are для загрузки в Autocad"  (getvar "dwgprefix") "job;are" 8)) 
;вывод сообщения "Идет работа"
(print "Идет работа")
;поиск файла File присваеваем f
(setq f(findfile File))
;открываем f для чтения
(setq f(open f "r"))
;считываем первую строку Stroka файла f
(setq Stroka(read-line f))
;Начало цикла While до пустой строки
(While(/= Stroka nil)
  ;Начало подцикла While до "0=Measured point" или ">"
  (While(and(/= Stroka "0=Measured point")
 (/= Stroka ">"))
    ;условие на "15=" ищем имя для слоя (на текущей строке)
    (if(=(substr Stroka 1 3) "15=")
  (setq name (substr Stroka 4)))
      ;условие на "5=" ищем имя точки (на текущей строке)
      (if(=(substr Stroka 1 2) "5=")
  (setq a1 (substr Stroka 3)))
      ;условие на "2=" ищем имя точки стояния (на текущей строке)
  (if(=(substr Stroka 1 2) "2=")
  (setq a1 (substr Stroka 3)))
      ;условие на "62=" ищем имя точки ориентирования (на текущей строке)
  (if(=(substr Stroka 1 3) "62=")
  (setq a1 (substr Stroka 4)))
  ;условие на "37=" ищем координату Х точки (на текущей строке)  
  (if (=(substr Stroka 1 3) "37=")
  (setq a3 (substr Stroka 4)))
  ;условие на "38=" ищем координату У точки (на текущей строке)  
  (if (=(substr Stroka 1 3) "38=")
 (setq a4 (substr Stroka 4)))
  ;условие на "39=" ищем высоту точки (на текущей строке)  
  (if(=(substr Stroka 1 3) "39=")
   (setq a5 (substr Stroka 4)))
    ;переход на следующую строку
    (setq Stroka(read-line f))
  );Конец подцикла While до "0=Measured point" или ">"
 
;Ряд операций по отрисовки точек
(progn
(command"_layer""_m" name "") ;Устанавливаем текущем и Рисуем в слое name
  (setq Npiketa a1);Присваеваем Npiketa значение a1
  (setq XYmat (list (atof a4)(atof a3)));Преобразуем в вещественные и объеденяем в список координаты
          (setq Otmetka (rtos(atof a5)2 2));Преобразуем в вещественное и округляем до десятых значение Otmetka
(if(= Otmetka "0.00") (setq Otmetka "Б/В"));Если значение Otmetka=0.00 то заменяем его на Б/В
(command"_osnap" "_non")
(command"_insert" "piket_s"  XYmat 1 1 0 Npiketa Otmetka "" "");вставка блока piket_s
    );Конец операций по отрисовки точек
(setq Stroka(read-line f));переход на следующую строку
(setq a1 "" a3 "" a4 "" a5 "");обнуление аргуменов
 ) ;Конец цикла While до пустой строки
(close f);Закрытие файла
(command "_zoom" "_E" );Показать видимые элементы чертежа
(setvar "osmode" AAA);;Восстановление привязки, и текущего слоя  
(alert "Загрузка закончена")
  )
(import_job&are)

И помогите, кто может, создать DCL. Где можно было бы выставлять точность отметки (Н), задавать имя слоя (имя, заданное при съемке ("15=" по умолчанию), и самое главное выбирать цвет слоя из палитры, можно еще и шкалу прогресса, но не так уж важно как остальное.

P.S. Прикрепляю Рисунок.dwg, содержащий необходимый блок
И архив со съемочным файлом

[Victor]

А масштабом вы не пользуетесь?

[G-RAV]

у меня в VBA написан код по редактированию свойств пикетов

[Do$]

А зачем кнопка "Импорт"?
Не... шкалу прогресса так просто не сделать...

[G-RAV]

Ну я себе это след. образом представляю: Запускаешь LSP --> выбираешь файл --> выскакивает окно import.dcl, в котором по умолч. уже стоит имя слоя (из файла .job), выставляешь остальные параметры (точность Н, цвет слоя) --> нажимаешь импорт - происходит загрузка точек....
Да над шкалой наверное и не стоит заморачиваться... Для меня лично очень важен цвет слоя, причем можно не кнопкой "палитра", а из раскр. списка.

[Кулик Алексей aka kpblc]

http://www.arcada.com.ua/forum/viewt...hp?p=6940#6940 ?

[G-RAV]

Сообщение от Кулик Алексей aka kpblc http://www.arcada.com.ua/forum/viewt...hp?p=6940#6940 ?

Не преходит по данной ссылке...

[Кулик Алексей aka kpblc]

Только что работало... Странно, меня тоже с аркады выбрасывает
Что нашел на caduser'e: http://www.caduser.ru/forum/index.ph...#message257844
http://www.caduser.ru/forum/index.ph...#message205916

[Do$]

Сообщение от G-RAV Ну я себе это след. образом представляю: Запускаешь LSP --> выбираешь файл --> выскакивает окно import.dcl, в котором по умолч. уже стоит имя слоя (из файла .job), выставляешь остальные параметры (точность Н, цвет слоя) --> нажимаешь импорт - происходит загрузка точек.... Да над шкалой наверное и не стоит заморачиваться... Для меня лично очень важен цвет слоя, причем можно не кнопкой "палитра", а из раскр. списка.

Эм... предлагаю кнопку "Импорт" упразднить за ненадобностью. Загрузка точек происходит после того, как кнопка "Выход" нажата. Диалог закрывается и программа обрабатывает файл. При этом можно вывести прогресс бар...

Наваял DCL, вложил файл для управления... Там добавлять нужно обработку различных вариантов... Но идея, надеюсь, будет понятна

Код:

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

import: // наверное уже после выбора файла
dialog {label="Импорт точек .job & .are";
:edit_box {label="Имя слоя для пикетов"; key="name_layer"; edit_width=15; edit_limit=24;} // по умолчанию, то что стоит после 15= в файле.job
:edit_box {label="Точность Н (знаков после точки)"; key="tch_h"; edit_width=6; edit_limit=24;}
:row {fixed_width=true; alignment=centered;
  :button {label="Палитра"; key="palitra";} // интерисует именно цвет слоя 
  :button {label="Импорт"; key="Import";}
  ok_button;
}//row
}

[G-RAV]

Я согласен.. Только вот имя слоя не появится по умолчанию, т.к. файл не прочитан, вернее будет прочитан после нажатия "Выход"... Хотя по умолчанию можно поставить текущую дату(без года)...

[Do$]

См. выше

[G-RAV]

G-RAV.LSP почему-то не работает - dcl появляется и тут же исчезает...
(set_tile "name_layer" a1) - а1 - это № точки,
name - имя слоя (съемки)

[Do$]

Мда, маленько перепутал a1 и name...
В общем, вот архив... Программа практически твоя, плюс я добавил описание диалога. Что с точностью(Н) делать я не понял - это уже твоя забота
Я предположил, что файл с данными всегда начинается строкой "15=<что-то>", если это не так - тоже надо что-то придумывать с именем слоя по умолчанию.
Ну и остаются в силе замечания от Кулик Алексей aka kpblc, 17 пост...

[G-RAV]

Do$, спасибо за помощь! Все работает так, как я и хотел, (Н) я уже пристроил...

Сообщение от Кулик Алексей aka kpblc Добавлю: нет обработчика ошибок; чтение файла выполняется вместе с рисованием (что в принципе лично я не считаю нормальным решением: желательно сначала прочитать файл, преобразовать данные с список и потом уже выполнять вставку блоков). Ну и плюс добавить обработку системных переменных attdia, attreq.

Алексей, ты не мог бы более подробно объяснить по поводу обработчика ошибок или дай, пожалуйста, ссылку... Так то все работает, но хочется довести программу до ума - качественного исполнения ...

[Кулик Алексей aka kpblc]

Почти универсальный обработчик ошибок.

[G-RAV]

Сообщение от Кулик Алексей aka kpblc Почти универсальный обработчик ошибок.

Спасибо! Надеюсь, что пойму!