CAD Fórum : Náhled souboru https://www.cadforum.cz/forum/ Fri, 12 Jun 2026 06:57:31 +0000 Mon, 11 Feb 2019 08:33:45 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=27777 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Náhled souboru : Dialog otevři vychází ze standardního...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=115546&title=nahled-souboru#115546 Autor: Vladimír Michl
Předmět: 27777
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).]]> Mon, 11 Feb 2019 08:33:45 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=115546&title=nahled-souboru#115546 <![CDATA[Náhled souboru : Právě že nechci soubor otevřít,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=115544&title=nahled-souboru#115544 Autor: Radek Pícha
Předmět: 27777
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á ?
]]> Mon, 11 Feb 2019 07:42:19 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=115544&title=nahled-souboru#115544 <![CDATA[Náhled souboru : Pokud to potřebujete pro externí...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=115502&title=nahled-souboru#115502 Autor: Vladimír Michl
Předmět: 27777
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
]]> Tue, 05 Feb 2019 17:30:27 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=115502&title=nahled-souboru#115502 <![CDATA[Náhled souboru : Není to mimo mísu, stále to není...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=115500&title=nahled-souboru#115500 Autor: Radek Pícha
Předmět: 27777
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.




Upravil Radek Pícha - 05.úno.2019 v 14:47]]> Tue, 05 Feb 2019 14:36:44 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=115500&title=nahled-souboru#115500 <![CDATA[Náhled souboru : Možná už je to mimo mísu, ale...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=115479&title=nahled-souboru#115479 Autor: Navara
Předmět: 27777
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
 
 
 
 
 


Upravil Navara - 04.úno.2019 v 14:51]]> Mon, 04 Feb 2019 14:48:51 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=115479&title=nahled-souboru#115479 <![CDATA[Náhled souboru : Aha, nezkoušel jsem, ale je...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=114079&title=nahled-souboru#114079 Autor: Vladimír Michl
Předmět: 27777
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.]]> Mon, 08 Oct 2018 08:36:47 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=114079&title=nahled-souboru#114079 <![CDATA[Náhled souboru : Zaregistrováno mám, žádnou chybu...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=114077&title=nahled-souboru#114077 Autor: Radek Pícha
Předmět: 27777
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.
]]> Mon, 08 Oct 2018 08:04:54 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=114077&title=nahled-souboru#114077 <![CDATA[Náhled souboru : Máte OCX zaregistrované v systému?...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=114076&title=nahled-souboru#114076 Autor: Vladimír Michl
Předmět: 27777
Zasláno: 08.říj.2018 v 07:36

Máte OCX zaregistrované v systému? Registrace žádnou chybu nehlásila? V Office to funguje?]]> Mon, 08 Oct 2018 07:36:51 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=114076&title=nahled-souboru#114076 <![CDATA[Náhled souboru : Pokouším se použít InventorViewCtrl.ocx,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=114075&title=nahled-souboru#114075 Autor: Radek Pícha
Předmět: 27777
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 ?
]]> Mon, 08 Oct 2018 07:21:46 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=114075&title=nahled-souboru#114075 <![CDATA[Náhled souboru : Dal by se použít ShowOpen, tam...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=114040&title=nahled-souboru#114040 Autor: Radek Pícha
Předmět: 27777
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 ?

]]> Fri, 05 Oct 2018 06:59:38 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=27777&PID=114040&title=nahled-souboru#114040