Смысл задачи в следующем - в имеющемся автокадовском файле нужно посчитать длины всех отрезков, принадлежащих определенным слоям. Отрезки уже давно нарисованы, теперь надо получить доступ к их свойству Length. Я знаю, что сделать это можно через коллекции объектов и конструкцию For Each...In...Next. В Автокаде роль коллекции играют пространство модели (ModelSpace) и пространство листа (PaperSpace), причем это свойства класса AcadDocument. И вот как это выглядит в VBA:
| Код |
Dim acDoc as AcadDocument |
Подобный ему код в VB 2008 почему-то работать не хочет: почему-то общая длина остается равной нулю. Хотя я правильно указывал все объекты: со всеми пространствами имен, которым они принадлежат.
Теперь объясню, зачем мне надо писать именно в VB 2008. Дело в том, что я пока пишу программки, выполняющие узкоспециализированные задачи, причем для самых разных программ: Автокада, СолидВоркса, Адоб Иллюстратора и т.д. После хотелось бы эти задачи объединить под одной "крышей", в одной интегрированной оболочке.
