Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy Arkance Systems [www.cadforum.cz]
CZ | SK | EN | DE
Přihlášení
či registrace
   právě nás čte: 7909 
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

 

NápovědaCAD diskuze, rady, výměna zkušeností

 
CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion 360, 3ds Max a s dalšími CAD aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy Arkance Systems (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.cadstudio.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenoNáhled souboru

 Odpovědět Odpovědět archiv
Autor
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Dodáváme produkty Autodesk
Stav: Offline
Bodů: 21434
Přímý odkaz na tuto zprávu Téma: Náhled souboru
    Zasláno: 11.úno.2019 v 08:33
Dialog otevři vychází ze standardního dialogu Windows. Takže buď přes ten Apprentice viz výše, nebo - protože v souboru je náhled uložen jako standardní document.container - jde použít univerzální vytahovač thumbnail obrázků (používáme např. v katalogu bloků zde na CADfóru).
Vladimír Michl (moderátor)
Arkance Systems s.r.o. - www.arkance-systems.cz
(podpora viz hd.cads.cz)
Zpět nahoru
Radek Pícha Zobrazit panel
Diskutér
Diskutér

Přihlášen: 04.říj.2004
Lokalita: Czech Republic
Používám:
Inventor
Stav: Offline
Bodů: 66
Přímý odkaz na tuto zprávu Zasláno: 11.úno.2019 v 07:42
Právě že nechci soubor otevřít, příliš to zatěžuje systém.
Např. hledám nějakou velkou sestavu, soubor má desítky MB a načítá se několik minut. Najít ten správný trvá klidně hodiny.
Inventor to dokáže - Otevřít a tam je náhled, ještě před otevřením. Nedal by se ten dialog rozpitvat a zjistit jak to dělá ?
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Dodáváme produkty Autodesk
Stav: Offline
Bodů: 21434
Přímý odkaz na tuto zprávu Zasláno: 05.úno.2019 v 17:30
Pokud to potřebujete pro externí (nenačtený) dokument, musíte jej ve VBA otevřít (nejlépe jako neviditelný). Následující kód částečně funguje, ale jsou tam potíže v komunikaci procesů VBA a Inventor. Zřejmě z toho důvodu zafunguje vždy až napodruhé. Ale můžete když tak zkoumat. UserForm1 je normální formulář s polem obrázku (Image1).


Const strNew_Filename = "c:\Users\UZIVATEL\Documents\SoucastRnd.ipt"

Sub GO()

Dim oDoc As Document
Set oDoc = ThisApplication.Documents.Open(strNew_Filename, False)
UserForm1.Show
Dim oPropSets As PropertySets
Set oPropSets = oDoc.PropertySets
Dim summaryInfo As PropertySet
Set summaryInfo = oPropSets.Item("Inventor Summary Information")
Dim thumbProp As Inventor.Property
Set thumbProp = summaryInfo.Item("Thumbnail")
Dim thumbnail As stdole.IPictureDisp
Set thumbnail = thumbProp.Value
UserForm1.Image1.Picture = thumbnail
oDoc.Close

End Sub
Vladimír Michl (moderátor)
Arkance Systems s.r.o. - www.arkance-systems.cz
(podpora viz hd.cads.cz)
Zpět nahoru
Radek Pícha Zobrazit panel
Diskutér
Diskutér

Přihlášen: 04.říj.2004
Lokalita: Czech Republic
Používám:
Inventor
Stav: Offline
Bodů: 66
Přímý odkaz na tuto zprávu Zasláno: 05.úno.2019 v 14:36
Není to mimo mísu, stále to není vyřešené.

Tohle zobrazí náhled otevřeného dokumentu a to nepotřebuji. Chtěl jsem zobrazit náhled dokumentu před otevřením.

Moje představa je zobrazit to co je v přiloženém obrázku v červeném rámečku.


Připojené náhledyPřihlaste se pro zobrazení plné verze - 82/Nahled.jpg




Upravil Radek Pícha - 05.úno.2019 v 14:47
Zpět nahoru
Navara Zobrazit panel
Arkance Systems support
Arkance Systems support
Avatar
Arkance Systems

Přihlášen: 08.zář.2008
Lokalita: ČR (Pha)
Používám:
Inventor
Stav: Offline
Bodů: 1636
Přímý odkaz na tuto zprávu Zasláno: 04.úno.2019 v 14:48
Možná už je to mimo mísu, ale zobrazení náhledu je ve VBA velice jednoduché.
Stačí vytvořit formulář s jedním objektem Image a na kliknutí do formuláře napsat kód
 
Private Sub Image1_Click()
    Me.Image1.Picture = ThisApplication.activeDocument.PropertySets("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}")("Thumbnail").value
End Sub
 
 
 
Připojené náhledyPřihlaste se pro zobrazení plné verze - 9996/4-2-2019_14-45-14.png

 
 


Upravil Navara - 04.úno.2019 v 14:51
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Dodáváme produkty Autodesk
Stav: Offline
Bodů: 21434
Přímý odkaz na tuto zprávu Zasláno: 08.říj.2018 v 08:36
Aha, nezkoušel jsem, ale je možné že to naráží na nějakou kolizi - ten prvek nebyl určen pro použití v Inventoru, ale právě v externích aplikacích typu Office nebo ERP/PDM.
Vladimír Michl (moderátor)
Arkance Systems s.r.o. - www.arkance-systems.cz
(podpora viz hd.cads.cz)
Zpět nahoru
Radek Pícha Zobrazit panel
Diskutér
Diskutér

Přihlášen: 04.říj.2004
Lokalita: Czech Republic
Používám:
Inventor
Stav: Offline
Bodů: 66
Přímý odkaz na tuto zprávu Zasláno: 08.říj.2018 v 08:04
Zaregistrováno mám, žádnou chybu nehlásil.
V Office to neodzkouším, mám verzi 2013 a tam je staré VBA (6.5) a pokud si to dobře pamatuji, je to 32 bitová verze. Knihovnu do References... vložím, ale v Additional Controls... se vůbec neobjeví.
V Inventoru vložím objekt InventorViewControl do formuláře a jakmile chci vybrat ve FileName nějaký soubor (v jeho Properties - FileName kliknu na [...], vyskočí okno Property Pages, karta Filename, kliknu na tlačítko [ ... ]) Inventor spadne.
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Dodáváme produkty Autodesk
Stav: Offline
Bodů: 21434
Přímý odkaz na tuto zprávu Zasláno: 08.říj.2018 v 07:36
Máte OCX zaregistrované v systému? Registrace žádnou chybu nehlásila? V Office to funguje?
Vladimír Michl (moderátor)
Arkance Systems s.r.o. - www.arkance-systems.cz
(podpora viz hd.cads.cz)
Zpět nahoru
Radek Pícha Zobrazit panel
Diskutér
Diskutér

Přihlášen: 04.říj.2004
Lokalita: Czech Republic
Používám:
Inventor
Stav: Offline
Bodů: 66
Přímý odkaz na tuto zprávu Zasláno: 08.říj.2018 v 07:21
Pokouším se použít InventorViewCtrl.ocx, ale při pokusu vložit mu FileName spadne Inventor.
Inventor View Control mám verzi 1.0, Inventor 2018, 64bit.
Funguje to někomu ?
Zpět nahoru
Radek Pícha Zobrazit panel
Diskutér
Diskutér

Přihlášen: 04.říj.2004
Lokalita: Czech Republic
Používám:
Inventor
Stav: Offline
Bodů: 66
Přímý odkaz na tuto zprávu Zasláno: 05.říj.2018 v 06:59
Dal by se použít ShowOpen, tam náhledy fungují. Ale nevím jak se postavit s kurzorem na odpovídající soubor. Zkusil jsem použít SendKeys, ale to občas funguje, občas ne. Asi by bylo nutné nějak mazat buffer klávesnice, ale jak ?

Call ThisApplication.CreateFileDialog(oF)
Sbr="soubor"
oF.InitialDirectory = "cesta"
oF.Filter = Sbr + "|" + Sbr + "|Soubory Inventoru (iam / ipt / idw)|*.iam;*.ipt;*.idw"
oF.FilterIndex = 1
SendKeys "%H", True
SendKeys "+{TAB}+{TAB}", True
SendKeys Sbr, True
oF.ShowOpen

Je zajímavé, že se to chová jinak když chci zobrazit soubor z lokálního disku anebo ze serveru.
Příkaz:
oF.FileName = "cesta+soubor"
neudělá nic, ten zřejmě funguje jen pro ShowSave...

Nějaký nápad ?

Zpět nahoru
Radek Pícha Zobrazit panel
Diskutér
Diskutér

Přihlášen: 04.říj.2004
Lokalita: Czech Republic
Používám:
Inventor
Stav: Offline
Bodů: 66
Přímý odkaz na tuto zprávu Zasláno: 03.říj.2018 v 08:26
Jde mi právě o VBA...
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Dodáváme produkty Autodesk
Stav: Offline
Bodů: 21434
Přímý odkaz na tuto zprávu Zasláno: 03.říj.2018 v 08:07
Myslíte mimo prostředí Inventoru? Ve VBA je to problém vzhledem ke způsobu jakým komunikuje s 64bitovým Inventorem. Ale jde to např. přes Inventor Apprentice (VB.Net):
 
Imports Inventor
Imports Microsoft.VisualBasic
'References: Autodesk.Inventor.Interop, Microsoft.VisualBasic.Compatibility, stdole
 
Dim Apprentice As New ApprenticeServerComponent
Dim doc As ApprenticeServerDocument
doc = Apprentice.Open("C:\MyFolder\Part1.ipt")
Dim summaryInfo As PropertySet
summaryInfo = doc.PropertySets.Item("Inventor Summary Information")
Dim thumbProp As Inventor.Property
thumbProp = summaryInfo.Item("Thumbnail")
Dim thumbnail As stdole.IPictureDisp
thumbnail = thumbProp.Value
If Not thumbnail Is Nothing Then
   Dim img As Image = Compatibility.VB6.IPictureDispToImage(thumbnail)
   ' Call SavePicture(img, "C:\Img\Thumb.bmp")
End If
Vladimír Michl (moderátor)
Arkance Systems s.r.o. - www.arkance-systems.cz
(podpora viz hd.cads.cz)
Zpět nahoru
Radek Pícha Zobrazit panel
Diskutér
Diskutér

Přihlášen: 04.říj.2004
Lokalita: Czech Republic
Používám:
Inventor
Stav: Offline
Bodů: 66
Přímý odkaz na tuto zprávu Zasláno: 03.říj.2018 v 07:50
Při otevírání souboru v Inventoru mám v levé části okna Otevřít náhled souboru na kterém stojím. Dá se takový náhled zobrazovat pomocí VBA ? Jde mi zejména o iam, ipt a idw.
<font color=BLUE>Ing. Radek Pícha[/COLOR] (konstruktér)

ITS BENDA s.r.o.
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 10542:Nefungují náhledy ve Vault klientu v MSIE10.
Tip 12460:Jak zobrazit náhledy souborů Inventoru v Total Commanderu?
Tip 9261:Zapnutí a vypnutí náhledů v souborových dialozích AutoCADu.
Tip 10387:Jak omezit stahování vybraného souboru v A360 Team?
Tip 7437:VIPVault: chybí náhledy/miniatury některých dokumentů ("Náhled dokumentu chybí")
Tip 7182:VIPNefungující náhled před tiskem.


 Odpovědět Odpovědět

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 1,900 sekund.