ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Již 10.000+ CAD tipů. Přes 118.500 registrovaných u nás, celkem 1.094.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor. Kompletní příkazy AutoCADu a proměnné AutoCADu 2026.
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

?
CAD 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, 3ds Max, Vault a s dalšími CAD/BIM/PDM 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 (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.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
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
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 Téma: Náhled souboru
    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
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21907
 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 CZ - arkance.world
(podpora viz helpdesk.arkance-systems.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 08:26
Jde mi právě o VBA...
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: 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
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21907
 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 CZ - arkance.world
(podpora viz helpdesk.arkance-systems.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:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21907
 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 CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
Navara Zobrazit panel
ARKANCE support
ARKANCE support
Avatar
Arkance Systems

Přihlášen: 08.zář.2008
Lokalita: ČR (Pha)
Používám:
Inventor
Stav: Offline
Bodů: 1637
 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
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
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21907
 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 CZ - arkance.world
(podpora viz helpdesk.arkance-systems.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:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 21907
 Přímý odkaz na tuto zprávu 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 CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
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 0,242 sekund.
CADfórum
CADfórum
Tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill a další Autodesk aplikace (support firmy ARKANCE). Viz O portálu.
Copyright © 2025 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
KONTAKT:
webmaster.cz@arkance.world | tel. +420 910 970 111
FB LN TW YT TW Blog RSS
.
TOPlist
img