Полезные программы от Philin (строительство). VBA

Мне очень дано, так как обучение работе на этом приборе идет туго, а ваша программа смогла бы уменьшить время выполнения задач

 

Жесть!

 

Только я не понял откуда такая информация :)

Программа уже читает файлы SDR33 формата.
Ближе к ночи выложу новую версию программы.

 

То есть если тахеометр может сохранять данные в этом формате, тоя смогу воспользоваться вашей программой?

 

Программа работает в Автокаде и принимает известные ей данные через COM порт по кабелю. Но также может принять данные и через блютуз, вайфай, USB-COM и пр. интерфейсы, главное чтобы на этой стороне была эмуляция COM-порта у драйвера.
Также для формата Sokkia SDR предусмотрен приём файлов в этом формате и вот здесь вообще не важно как файл передаётся в автокад, через LAN, вайфай, блютуз, жёсткий диск, USB-flash и т.п.

Операционная система тахеометра вообще тут ни при чём, главное чтобы у пользователя был Автокад в который можно было установить программу и передаваемые в автокад данные были в файле, либо переданы через эмулированный или реальный COM-порт.

Выкладываю версию 1.0 программы COM2ACAD. В этой версии не должно быть проблем с форматом SDR при приёме данных или чтения из файлов.

Да, сможете.

PS Программа удалена в связи с выходом новой версии.

 

Philin, как думаете с каким Автокадом не будет проблем?

 

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

Но проблема может возникнуть из-за операционной системы. Если у Вас Windows Vista, либо Windows 7, то работоспособность программы не гарантирована.

В любой другой версии Windows программа работает без проблем.

 

Очередная версия COM2ACAD
Исправлено завиcание программы при приёме некоторых видов данных из файла SDR

PS программа удалена в связи с выходом новой версии

 

Philin,
Заменил файл dvb COM2aCAD "старой"версии(изм.05.04.2011) на аналогичный последней версии в папке Support - не стала открываться соответствующая кнопка на панели "Геодезия" в Автокаде - вылетает окно с надписью:ошибка 75.Поменял всё обратно-открывает.ОС Windows 7,Autocad 2011rus.Но мне нужна версия из последних,т.к. у меня тахеометр Sokkia 650RX,т.е.скидываю с него данные на флэшку,с флэшки на ноутбук.Кабеля нет.
И ещё вопрос.Прочитал Ваши слова "получится программа,которая в реальном времени будет в автоматическом режиме рисовать схему исполнительной съёмки(стрелки с отклонениями) во время передачи данных с прибора в автокад".Очень порадовало,но не совсем понятно,как это будет осуществляться практически.Относительно чего она (программа) будет рисовать стрелки?Понятно,что нужно относительно проектных положений.А как она определит и узнает их?Нужен проект в dwg?
Я до последнего времени делал исполнительные следующим образом.Например,свайное поле.Беру проект(на бумаге),оцифровываю его в Автокаде.Еду на объект,тахеометром засекаюсь по осям,выполняю съёмку,скидываю данные на флэшку,с неё через Sokkia Link в Автокад,в нём накладываю отснятые сваи на проект,который я оцифровал,и линейными размерами замеряю отклонения каждой сваи в двух направлениях(X,Y).Затем расстаскиваю стрелки с цифрами согласно замерам.То есть процесс элементарный,но очень нудный и долгий (300-500 свай).Поэтому и надеюсь на вашу помощь,чтобы уменьшить камералку.

 

У меня нет Windows7 и никогда не будет. Проблема в том, что программа последних версий сохраняет файлы на диске:
1) ini-файл для хранения настроек программы (выбранный порт, тип прибора и пр.) сохраняется в корне диска C: (у вас есть такой диск в системе?)
2) Создаётся файл координат при чтении из порта или из файла.
3) Читается файл SDR, а также ini файл


А Windows7 имеет ПАРАНОИДАЛЬНО настроенную систему защиты от якобы вирусов. Из Автокад с помощью скриптов можно создавать или изменять файлы на дисках только в режиме АДМИНИСТРАТОРА! И то, как я понял, не у всех это получается даже в режиме запуска операционной системы от администратора. Теоретически это можно решить и программно, переписав всю программу на vb.Net, но тогда получится что ни один пользователь версии автокад ниже 2010 и Windows старше Vista не сможет пользоваться программой вообще (даже после танцев с бубном не получится т.к. vb.Net там полностью отсутствует).


Проще найти человека, который смог побороть Windows7 и попросить его написать инструкцию как он это сделал, чем переписывать программу и исключить из пользователей более 70% геодезистов. Я это сделать не могу ввиду того что Windows7 у меня нет, доступа к этой системе тоже нигде нет.

Способ типа "вырезать все функции на которые параноит Windows" - не вариант, т.к. функция работы с SDR файлами как раз одна из тех на которую ругается Windows7.

Видимо уже никак. Функция работает в тестовом режиме у меня. Вероятно закончу её, но опять же, для себя. Научить пользоваться ей кого-то ещё достаточно сложно. Проблема в том, что для этого надо вычерчивать чертёж определённым способом, а чтобы объяснить этот способ мне придётся писать целую книгу-инструкцию.
Программа знает каким образом чертятся чертежи ПОД НЕЁ и легко распознаёт где наружная, а где внутренняя сторона и куда помещать стрелки с отклонениями без участия человека, сразу при приёме данных с прибора в чертёж автокад. Также самостоятельно отсекает высотные съёмки, не включая их в обработку при автоматическом вычерчивании плановой съёмки.

А по сваям вроде Disney программу хорошую делал. Поищите на форуме, подозреваю что это то что вам нужно.

 

Philin,Спасибо за расшириный ответ.Отдельное спасибо за кнопку "выноски"на панеле "Геодезия".Очень полезные создаёте.

 

Пожалуйста :)
И спасибо за отзыв.
А насчёт паранойи. Недавно был такой случай. Я пишу программы также и не для геодезистов. Есть у меня одна программа, которая значительно облегчает труд 25 человек, но больше никому она не нужна. Программа выкладывается на другой форум и люди её оттуда качают. Не так давно вышло новое обновление антивируса Avast! и... народ просто не смог больше скачать обновление программы. Попросил у людей скрин сообщения с отказом при закачке программы. То что я увидел на скрине меня просто убило наповал. На скрине сообщение от антивируса Avast! со следующим текстом - "Вы пытаетесь скачать программу которой пользуются всего несколько человек на планете. Вероятно это вирус. Поэтому Avast! заблокировал вам возможность загрузки этой программы на свой компьютер." Этот идиотский антивирус скачал программу, проверил её, не нашёл в ней вирусов, проверил по своей базе что пользуется ей очень мало человек и заблокировал пользователю доступ на скачивание этой программы. Основанием блокировки послужило то, что раз программа мало распространена, то ВЕРОЯТНО это вирус и не нужна она никому совсем. 900 часов кодинга и 500 килобайт кода коту под хвост :( Правда люди без Avast! спокойно качают программу и пользуются ей.
Вот и пиши после этого программы.. Одним программам палки в колёса ставит "супер-пупер новейшая операционная система", а другим "супер-антивирус".

 

Philin,
Охотно верю.Может быть так совпало,но у меня Avast.Как быть?Поменять антивирусник?Посоветуйте на какой.

 

Аваст вроде как пока не добрался до определения вредоносного кода в VBA :)
Советовать антивирусы не буду т.к. каждый антивирус силён только в одной узкой области определения вирусов (в зависимости от того в каком отделе у них хороший программист). Панацеи не существует.

 

В Avast легко отключить защиту на 10 минут.

 

Угу... Только как это объяснить 7 миллионам пользователей той самой сети для которой я писал программу :) Avast! не только заблокировал доступ к моей программе, но и полностью запретил всем пользователям Avast! доступ к той сети. Неделю руководство переписывалось с криворукими разработчиками Avast! В итоге частично разблокировали доступ в сеть пользователям. А около 40% пользователей не дожидаясь окончания выпуска патча от разработчиков антивируса... отказались от него и перешли на более лояльные к пользователям антивирусы.

PS Техподдержка там просто с ума сошла. Сотни тысяч писем и телефоны разрывались. В итоге сделали хелп как временно устранить проблему средствами самого антивируса, но оказалось что антивирус имеет несколько модификаций и одно решение подходит не всем. По сети ходили скрины из аваста с левой нижней зелёной кнопкой как супериздевательство от криворуких разработчиков Avast! (прочтите что написано на этой кнопке. А теперь представьте что ваш "любимый" антивирус отказал вам в доступе на неделю на крупнейший в России коммерческий ресурс за пользование которым вы заплатили кровные деньги). У меня нет этого антивируса, точную надпись на кнопке уже не помню, а искать скрины лень.

 

Можно сообщить Авасту о false positive.

 

Доброго времени суток!Вопрос по программе COM2aCAD.Возможно ли превратить её в электронную мензулу или это совсем разные вещи?...возможна ли передача данных в ACAD на лету?заранее благодарен!