Рубрика: (гео)информационные системы

Почти 20 лет занимаюсь ГИСами. В общем есть чем поделиться. Попутно помезаю тут посты и про «просто» информатику.

  • Red Hat Ansible Automation

    Довольно долгое время я подвязался в области геоинформационных систем. И долгое время я работал с программным продуктом Bentley Systems, а именно Microstation. Последние несколько лет особенно заковыристым ПО не пользуюсь. Мой нынешний труд не связан со сложными инженерными задачами, по большому счету требует собранности, здравого смысла, но никак не «математики». Поэтому приятно иногда (хотя бы вскользь) столкнутся со сложным ПО. Жаль, конечно, что знакомство с этими продуктами останется именно на уровне «вскользь».

  • Земляной кадастр

    Сегодня иду на пересдачу. Позавчера один из двоечников прислал мне реферат с заявленной темой по гис-технологиям. Реферат рерайтился, что уже конечно благо, первоначально студенты из этой группы пытались всучить мне рефераты с уникальностью менее 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 Long

    Set 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 ii

    If (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
    Loop

    End Sub

  • Отключите короткие номера

    За этот год уже  вторых моих знакомых МТС посредством своих подельников (так называемых контент-провайдеров) обобрал на приличную денежку. Когда узнал про последний случай, решил выяснить, как можно на корню предотвратить возможность кражи через короткие номера. На самом деле всё просто: звоните в колцентр и отключайте соответствующую услугу. Тогда для вашей симки короткие номера уже станут неопасны. Минус есть: смс-оповещалки не будут работать. В любом случае для резервной, симки ребёнка и т.п. отключить лазейку для жулья надо.

  • Ещё раз про квайны

    Вспомнил про придуманный мной куайн на Паскале.. А ведь можно ещё проще.

    begin
    randomize;
    repeat
    write(chr(random(80));
    until keypressed;
    end.

  • Покупка билетов на поезд через Интернет

    Оказалось всё очень просто.Заходишь на сайт РЖД, находишь нужный билет, оплачиваешь, получаешь код. Приезжаешь на вокзал и либо в кассе (без очереди) либо в терминале получаешь билет. Если поезд уходит из крупного города, то можно пройти электронную регистрацию. Тогда и вовсе можно без билета в поезд садиться. Достаточно показать проводнику паспорт. Правда сам я так сделать не решился и билет таки распечатал в терминале.
    ЗЫ Есть нюанс. Почему -то постельное бельё приходится покупать оффлайн.