Перейти к содержанию

Сергей Ко

Пользователи
  • Публикаций

    4
  • Зарегистрирован

  • Посещение

Репутация

1 Обычный

Информация о Сергей Ко

  • Звание
    Новичок
  1. Оказалось, что все замечательно работает в VBA Если вдруг кто столкнется, выкладываю наброски кода (работает) 'Использованные переменные Dim ncApp As New nanoCAD.Application Dim ncDoc As nanoCAD.Document Dim MSpace As AcadModelSpace Dim ncObject As AcadEntity Dim ncPoly As AcadLWPolyline 'Создаем переменную, само подключается к приложению Set ncDoc = ncApp.ActiveDocument Set MSpace = ncDoc.ModelSpace 'Пробегаем по всем графическим объектам For ObjIndex = 0 To MSpace.Count - 1 'Если полилиния, то ищем координаты If ncObject.ObjectName = "AcDbLWPolyline" Or ncObject.ObjectName = "AcDb
  2. Тут Вы правы, в 5.1 не заработала( Но многообещающая программа. Вдруг ответят разработчики...
  3. Доброго все дня! Озадачился получением координат полилиний из чертежа в nanoCAD 5.1. Столкнулся с проблемой: не удается получить атрибуты графического объекта. Перебираю все объекты, когда нахожу полилинию, пытаюсь преобразовать типы: if ncModelSpace.Item(i).EntityName = 'AcDbPolyline' then ncPoly := IAcadPolyline(ncModelSpace.Item(i)); Поля, которые описаны в AcadEntity доступны, например ncPoly.ObjectName При попытки чтения значения из поля из объекта полилиния, например ncPoly.Coordinates вылетает ошибка. В связи с этим вопрос: не реализовано что-то, или я делаю что
  4. Добрый день! Вернулся к разработке утилитки для NanCAD-а под Deplhi (версия 2009), Win7 x64 и столкнулся с такой проблемой: после получения объекта приложения ovnanoCAD := GetActiveOleObject('nanoCad.Application'); попытка привести переменную к типу Result := IDispatch(ovnanoCAD) as InanoCADApplication; вызывает ошибку "Interface not supprorted". Подскажите, в какую сторону копать?
×
×
  • Создать...