Не открывается документ в KOMPAS-Invisible

[lavgirb]

Очень интересная задача, и тут нужны будут, меню, которые можно скрыть, всякие флаги и т.д.

Не понял, о чем вы написали. Можете пояснить?

Пока есть два способа получить ссылки на внешние файлы
1 Чтение путей из загруженных файлов КОМПАС.
2 Чтение метаданных.
Первый медленный, но 100%-ный.
Второй быстрый, но не качественный. Содержит "мусор".
Пока остановился на первом.

[UU]

Все правильно, hidemessage.

[p3452]

Информация для размышления
"Метаданные" хранятся в определенном СТАНДАРТИЗОВАННОМ формате (! - не путать, XML это "язык", а не "формат").
Осталось выяснить какой именно СТАНДАРТ метаданных используется в файлах чертежей...   

[Toptotal]

"Метаданные" хранятся в определенном СТАНДАРТИЗОВАННОМ формате (! - не путать, XML это "язык", а не "формат").
Осталось выяснить какой именно СТАНДАРТ метаданных используется в файлах чертежей...   

Я не нашел ссылку  в чертежах на 3д модель

[Валерий Изранов]

1 Чтение путей из загруженных файлов КОМПАС.

Вот это может помочь приблизиться к решению.

Код Выделить Развернуть

Private Sub ПодключитьЧертежуИсточник()
Dim Kompas7 As KompasAPI7.IApplication
Dim kompas_document As KompasAPI7.IKompasDocument
Dim KompasДокумент2D1 As KompasAPI7.IKompasDocument2D1
Dim iViewsAndLayersManager As KompasAPI7.ViewsAndLayersManager
Dim iViews As KompasAPI7.Views
Dim iView As KompasAPI7.View
Dim iAssociationView As KompasAPI7.AssociationView
Dim view_type As Integer
Dim i As Integer
Dim КоличествоВидов As Integer
Dim temp As Integer
 
temp = Kompas7.HideMessage
Kompas7.HideMessage = 2

Set KompasДокумент2D = Kompas7.ActiveDocument
Set KompasДокумент2D1 = KompasДокумент2D            'KompasДокумент2D  пришел в функцию
Set iViewsAndLayersManager = KompasДокумент2D.ViewsAndLayersManager
Set iViews = iViewsAndLayersManager.Views

КоличествоВидов = iViews.Count - 1 'Количество видов включая системный
 
For i = 0 To КоличествоВидов
    Set iView = iViews.View(i)
    view_type = iView.viewType
   
    'vt_Normal 1 Обычный вид
    'vt_Arbitrary 2 Произвольный вид
    'vt_Standart 3 Стандартный вид
   
    If view_type = Kompas6Constants.vt_Normal Or view_type = Kompas6Constants.vt_Arbitrary Or view_type = Kompas6Constants.vt_Standart Then
        Set iAssociationView = iView
        iAssociationView.SourceFileName = ПапкаКудаКопировать + "\" + ИмяФайла + РасширениеФайлаМодели 'Сюда пишешь путь до модели, к которой нужно подключить  чертеж
        iView.Update
    End If
Next
 
KompasДокумент2D1.RebuildDocument
Set KompasДокумент2D = KompasДокумент2D1
'KompasДокумент2D.Save
'KompasДокумент2D.Close (kdDoNotSaveChanges)

Kompas7.HideMessage = temp      '1    '0    '2

End Sub


[feron]

Вот это может помочь приблизиться к решению.

[feron]

Валерий Изранов, стоя у алтаря будучи изможденным -> не нужно не чего..   

вот стоите у моря кодиннга и кажется мир у ваших ног но нет сил на первый шаг <?/> или нет веры в действие?

Что есть цель ? и что есть сила что движет реализацией, ею ? как абсолютная пустота управляется некой силой ? из пустоты рождаются фреймворки ..

Здесь нет силы в знаниях или что то в подомном инсайдере..  Как крупная cad  в многомилионном своем обороте обрела свою философию ?

Бояться конкуренции после конкуренции с Автодеском?! Программисты-прикладники тут не причём,

как пользователь простой дороги, нет сил смотреть выше облаков...

ибо исхожу из простой логики в которую почему то так ярко и легко интегрировалось некая cad.. движущая сила не в сокрытых тайнах ?  а в логической простоте ?


Люди возятся в земле ища веру.. и кад что опустилась до этих низов  - обрела крылья в глазах их ?  похоже что только этот фронт готов идти в рядах производства??

вспомнил песню - стучался во все двери -> не кто не открыл не кто не поверил..

[feron]

Валерий Изранов,  страшно уйти и не оставить после себя какого то следа..    что так и не принес огонек ..

[feron]

Валерий Изранов, я просматривал многотомники зарубежных "писателей" не могу понять откуда у людей такая сила в формировании своей мысли? не важно какой вектор - прост к чему веду -> что от понимания только этого, формируется устойчивая логика в котором расщепляется данный вопрос