[Fland]

Суть конечной задачи:
автоматическое построение профиля коммуникации на готовом геодезическом профиле в микростейшене.
по указанию земли, линии условного горизонта, оси/низа коммуникации, и доп параметров.

Для автокада я это решил: пошел в магазин, купил книжку, 1 месяц ее изучал, и написал на лиспе то что мне надо (я проектировщик). Но моя кантора работает в основном в микростейшене, а не в автокаде и меня за 5 лет задолбало постоянно конвертировать сделанные для меня геодезические профиля в автокад, чтобы потом использовать написанную мной программу.
Книг на русском языке для проектирования под микростейшен нет, и я никак не могу стартануть... хотя несколько попыток делал, MDL я постигнуть в этой жизни уже не успею, но VB, думаю, осилю....(((

Просьба поделиться стартовым образцом, который я, если смогу, доработаю до конечного результата, где будет определяться минимального расстояния между указанными "тыком" 2-мя смартлиниями (полилиниями) по ключевым точкам относительно первой, а результат выписывался текстом под этой линией (геодезические и геологические профиля находятся в подключаемых ассоциированных файлах, если это что то меняет).

[Do$]

Вряд ли здесь кто-то работает в Microstation, не говоря уж о программировании под него. Хотя, чудеса бывают, может вдруг найдется кто-то... Когда нам этот продукт пытались продать, говорили, что у них есть адекватная русскоязычная поддержка 24 часа в сутки. Если это так - есть смысл к ним напрямую обратиться.

[Fland]

Сообщение от Do$ ... у них есть адекватная русскоязычная поддержка 24 часа в сутки. Если это так - есть смысл к ним напрямую обратиться.

Что то я сомневаюсь, что сапорт меня программированию будет обучать.
дык вот, у меня на лиспе есть такой код:
(setq lotok (car (entsel "\nВыберите лоток:")))
(setq earth (car (entsel "\nВыберите землю:")))
(setq Ytext (cadr (getpoint "\nВведите точку на линии отметок:")))
(setq UslgorL (car (entsel "\nВыберите линию условного горизонта:")))
(setq UslgorN (getreal "\nВведите условный горизонт: "))
(setq dtrubi (getreal "\nВведите диаметр трубы в мм: "))
(setq mashtab (getreal "\nВведите масштаб: "))
... собстно отбитие глубин и отметок пляшет от сюда:
dist1 (distance (vlax-curve-getClosestPointToProjection earth (vlax-curve-getpointatparam lotok i) '(0 1 0))
(vlax-curve-getpointatparam lotok i)
)
dist2 (distance (vlax-curve-getClosestPointToProjection UslGorL (vlax-curve-getpointatparam lotok i) '(0 -1 0))
(vlax-curve-getpointatparam lotok i)
)

Использовать влакс мне подсказали на этом форуме лет 8-9 назад (огромное спасибо!!!),
не уж то тут никого по микростейшену не найдется, чтоб помочь мне лисп в VBA перевести?