Как открыть документ КОМПАСА из VB

[Илья Муромец]

Подскажите как правильно написать процедуру в VB 2010 чтобы открыть документ КОМПАСа?

[krayan87]

а что такое VB-2010?

[Sabahs]

http://ru.wikipedia.org/wiki/Visual_Basic

[Николай]

А что, функции ShellExecute в VB-2010 нет?

[Sabahs]

Есть функции Компаса ksDocument2D::ksOpenDocument, ksChoiceFiles и ksChoiceFile.

[Илья Муромец]

Про функции я в курсе, вот только как правильно написать код с их применением это не понятно. В SDK слишком запутанно, надо максимально просто....

[Sabahs]

Вы, как нибудь напишите, можно не правильно, но Вас возможно, кто то поймёт и поможет, это буду не я, с Бэйсиком я завязал более 20 лет назад и возвращаться, не планирую.

[Илья Муромец]

Public Class Form1
    Public Kompas As Object
    Public ksdoc As New Kompas6API5.Document2D
    Private Sub Form1_Load() Handles MyBase.Load

        Kompas = CreateObject("KOMPAS.Application.5")
        Kompas.Visible = True

        ksdoc.ksOpenDocument("D:\Временные\Чертеж.cdw", True) 'открываем шаблон

    End Sub
End Class

КОМПАС запускается, а файл не открывается

[Sabahs]

Операционная система, какая?

[Николай]

 А какие либо изменения чертежа предполагается совершать с помощью VB? Или только "...\Чертеж.cdw" следует открыть через VB и всё?

[Илья Муромец]

Windows 7 Компас 13. Предполагается из сборки выбрать детали кот. имеют вид "развертка" создать лист без оформления с видом развертка и сохранить его в формат dxf

[Sabahs]

Windows 7 использует Unicode.
Но я думаю проблема в ksdoc.ksOpenDocument("D:\Временные\Чертеж.cdw", True), Вы запускаете документ в слепом режиме, замените на ksdoc.ksOpenDocument("D:\Временные\Чертеж.cdw", False)

[Илья Муромец]

выдает "ссылка на объект не ссылается на экземпляр объекта"

[Илья Муромец]

Sabahs 
Может вы напишете аналогичный код на дельфи, может по аналогии пойму

[Sabahs]

Вы делаете EXE файл или DLL?
Если EXE, то смотрите пример ksContrl, там есть готовый код.
Если DLL, то можете попробовать так, но работоспособность не обещаю:

' Головная функция библиотеки - вызывается при выборе пункта меню библиотеки
Public Sub ExternalRunCommand(ByVal command As Integer, ByVal mode As Integer, ByVal kompas_ As Kompas6API5.Application)
  Set Kompas = kompas_                        ' Интерфейс приложения КОМПАС
  Dim ksdoc As Kompas6API5.Document2D           ' Интерфейс ksDocument2D
   
  ' Получить интерфейс 2D документа
  Set ksdoc = Kompas.Document2D               ' Возьмем пустой интерфейс 2D документа
 
  ksdoc.ksOpenDocument("D:\Временные\Чертеж.cdw", False)
 
End Sub

[Илья Муромец]

делаю EXE фйл, но это потом..после компиляции. Проблема с примерами в том, что они на VB6 с VB2010 большая разница. Даже конвертация из старой версии в новую не помогает.

[Sabahs]

В части нюансов в Вашем языке не помогу, но рекомендую самому разобраться, где и что, в Delphi примеры, тоже не на XE2 написаны.