Довольно долгое время я подвязался в области геоинформационных систем. И долгое время я работал с программным продуктом Bentley Systems, а именно Microstation. Последние несколько лет особенно заковыристым ПО не пользуюсь. Мой нынешний труд не связан со сложными инженерными задачами, по большому счету требует собранности, здравого смысла, но никак не «математики». Поэтому приятно иногда (хотя бы вскользь) столкнутся со сложным ПО. Жаль, конечно, что знакомство с этими продуктами останется именно на уровне «вскользь».
Рубрика: (гео)информационные системы
Почти 20 лет занимаюсь ГИСами. В общем есть чем поделиться. Попутно помезаю тут посты и про «просто» информатику.
-
Земляной кадастр
Сегодня иду на пересдачу. Позавчера один из двоечников прислал мне реферат с заявленной темой по гис-технологиям. Реферат рерайтился, что уже конечно благо, первоначально студенты из этой группы пытались всучить мне рефераты с уникальностью менее 10 %. Здесь с уникальностью неплохо, другое дело, как она получена . Больше всего меня убило, когда в тексте реферата я обнаружил оборот «земляной кадастр». Человек, прослушавший целый курс по кадастровому делу спокойно переделывает земельный кадастр в земляной. Про остальные мелочи: пятистраничный объём, первоисточник 25 летней давности, я уж и не говорю.
-
Как поменять шрифт в формулах Word7
Знакомый обратился с таким вопросом. Его племянница пишет дипломную работу. Отправила она черновик на проверку. И получила претензию «формулы надо в шрифте Times New Roman». Сунулась барышня в настройки редактора формул «семёрки». А там есть только один шрифт Cambria Math. Порылась в инете, нашла и другие шрифты, но полного аналога Times New Roman не нашлось. А решение проблемы простое: создавайте формулы не через стандартный редактор формул, а с помощью старого знакомца MS Equation (через вставку в нужное место соответствующего объекта).
-
Парфюмированная вода
Оказывается есть и такая вода. На мой слуъ диковато звучит: парфюмированная вода, легированная сталь и т.д.
-
Пишите программы «на вырост»
Пять лет назад сделал для одной конторы небольшую утилиту. Программа считывала из текстового файла целочисленные идентификаторы объектов, а потом уже в Microstation проводила над объектом некоторую последовательность манипуляций. Вчера клиент отзванивается и сообщает, что программа моя сломалась. В итоге выяснилось, что база данных за это время разрослась, и идентификаторы в итоге из Integer выскочили.
-
Признак российского рубля
Если верить Интернет-помощнику от МТС, то за услуги МТС я расплачиваюсь в валюте под названием «Признак российского рубля». Хорощо хоть не призрак 🙂
-
Удалить лишние mslink-и в dgn-файле
У dgn-файлов есть неприятная (и, увы, непонятная) фишка. Со временем мслинки начинают множиться в неимоверном количестве. При большом количестве объектов это становится проблемой, кою и решает (давно) написанный мной макрос. Публикую, может кому сгодится.
Sub Порядок()
Dim el As element
Dim dblinks() As DatabaseLink
Dim dbl As DatabaseLink
Dim ee As ElementEnumerator
Dim k As Integer
Dim ii As Integer
Dim vsp As LongSet ee = ActiveModelReference.GetSelectedElements
Do While ee.MoveNext
Set el = ee.Current
If (el.IsGraphical = True) And (el.HasAnyDatabaseLinks = True) Then
dblinks = el.GetDatabaseLinks(msdDatabaseLinkageOdbc)If (UBound(dblinks) > -1) Then
vsp = 0
k = UBound(dblinks) — LBound(dblinks)
For ii = LBound(dblinks) To UBound(dblinks)
Write #2, dblinks(ii).Mslink
If (dblinks(ii).Mslink > vsp) Then
vsp = dblinks(ii).Mslink
End If
Next iiIf (k > -1) Then
el.RemoveAllDatabaseLinks
el.Rewrite
Set dbl = CreateDatabaseLink(vsp, 0, msdDatabaseLinkageOdbc, True, 1)
el.AddDatabaseLink dbl
el.Rewrite
End If
End If
End If
LoopEnd Sub
-
Отключите короткие номера
За этот год уже вторых моих знакомых МТС посредством своих подельников (так называемых контент-провайдеров) обобрал на приличную денежку. Когда узнал про последний случай, решил выяснить, как можно на корню предотвратить возможность кражи через короткие номера. На самом деле всё просто: звоните в колцентр и отключайте соответствующую услугу. Тогда для вашей симки короткие номера уже станут неопасны. Минус есть: смс-оповещалки не будут работать. В любом случае для резервной, симки ребёнка и т.п. отключить лазейку для жулья надо.
-
Ещё раз про квайны
Вспомнил про придуманный мной куайн на Паскале.. А ведь можно ещё проще.
begin
randomize;
repeat
write(chr(random(80));
until keypressed;
end. -
Покупка билетов на поезд через Интернет
Оказалось всё очень просто.Заходишь на сайт РЖД, находишь нужный билет, оплачиваешь, получаешь код. Приезжаешь на вокзал и либо в кассе (без очереди) либо в терминале получаешь билет. Если поезд уходит из крупного города, то можно пройти электронную регистрацию. Тогда и вовсе можно без билета в поезд садиться. Достаточно показать проводнику паспорт. Правда сам я так сделать не решился и билет таки распечатал в терминале.
ЗЫ Есть нюанс. Почему -то постельное бельё приходится покупать оффлайн.