Существует ли возможность сделать превью файлов?

[brigval]

Существует ли возможность средствами программирования CATIA, или еще как-то, сделать превью файлов CATIA?

[booSter]

Вообще-то есть стандартная функциональность:

Preview_checkbox.png (34.69 КБ) Просмотров: 10332

[brigval]

Нужно на форму поместить превью.

[RDV]

Почитай тут: http://vbaccelerator.com/home/NET/Code/ ... rticle.asp Может и получится чего

[brigval]

Может и получится чего

Сложновато, да и про CATIA ничего не сказано. Спасибо.

[Sten]

Сложновато, да и про CATIA ничего не сказано. Спасибо

Для Катьки тоже работает. Я лет 5 назад такое делал.

[RDV]

Сложновато, да и про CATIA ничего не сказано

В катийных документах сохраняются эскизы стандартным для Винды способом. Их можно увидеть, включив в проводнике режим просмотра эскизов. Поэтому тут и не нужен какой-то специальный API.

[brigval]

>RDV >Sten
Буду разбираться подробнее с материалами на указанном сайте. Тем более, что только что нашел там классы и для VB6.

[brigval]

Почитай тут: http://vbaccelerator.com/home/NET/Code/ ... rticle.asp Может и получится чего

Все получилось. Большое спасибо.

psbdesmodelsCATIA.gif (90.95 КБ) Просмотров: 10286

[brigval]

Получил личное сообщение. Поскольку личного в нем нет, отвечаю на форуме.
Замечу, ссылку на это сообщение по личке не удалось послать. Возможно, у спрашивающего отключено получение ЛС.

У меня возникла похожая задача, только эти превью надо ещё и сохранять в отдельный файл.
Подскажите пожалуйста, каким способом вы вытягивали эти картинки, и если не трудно с примером кода.
Спасибо

По усказанной выше ссылке нашел два класса cThumbnailGenerator и cMemDC
Поместил их в модуль классов и написал следующие функции

Код: Выделить всё

Public Function GetThumbnail(ByVal ffn As String) As stdole.IPictureDisp
   Dim cThumb As New cThumbnailGenerator
   Dim cMemDC As pcMemDC
   With cThumb
      .Options = IEIFLAG_ASPECT Or IEIFLAG_SCREEN
      .DesiredWidth = 96
      .DesiredHeight = 96
      .Filename = ffn
      Set cMemDC = .GetThumbnail()
   End With
   Set GetThumbnail = cMemDC.Picture
End Function

Private Function ShowThumbnail(ByVal fn As String, ByVal sDir As String)
   Dim sbmp    As New clsSaveBMP
   Dim ffnCAT  As String
   Dim ffnBMP  As String
   ffnCAT = sDir + "\" + fn + ".CATPart"
   ffnBMP = sDir + "\" + fn + ".bmp"
   ' Загружаем картинку превью
   Set Picture1.Picture = GetThumbnail(ffnCAT)
   ' Сохраняем BMP
   sbmp.Capture Picture1.hwnd, ffnBMP
End Function

Надо иметь ввиду
1 Работа функций, в виде для этого сообщения, не проверялась.
2 Всякие проверки и особенности конкретного кода опущены.
3 Из интернента был скачан класс clsSaveBMP для создания файла BMP из Picture (по существу делает захват картинки с экрана, поэтому Picute должен быть виден в момент сохранения BMP). Где нашел - не помню.

[brigval]

Почему-то просмотр превью дома работает хорошо, а на работе не показывает. Причина пока не ясна.