CAD Fórum : Práce s rastry https://www.cadforum.cz/forum/ Sat, 13 Jun 2026 19:00:11 +0000 Fri, 03 Aug 2007 13:50:17 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=4932 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Práce s rastry : Nikdo neví? V podstatě mě zajímá,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4932&PID=23988&title=prace-s-rastry#23988 Autor: chose
Předmět: 4932
Zasláno: 03.srp.2007 v 13:50

Nikdo neví? V podstatě mě zajímá, jak ve VBA naprogramovat:
- příkaz xref, vyberu si nějáký obrázek a změním název reference
- příkaz xref, vyberu si nějáký obrázek a dám značíst nebo uvolnit
 
]]> Fri, 03 Aug 2007 13:50:17 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4932&PID=23988&title=prace-s-rastry#23988 <![CDATA[Práce s rastry : Zajímalo by mě, jak pracovat s...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4932&PID=23767&title=prace-s-rastry#23767 Autor: chose
Předmět: 4932
Zasláno: 27.čvc.2007 v 11:34

Zajímalo by mě, jak pracovat s rastry ve VBA. Nový rastr načtu takto:

set rastr=ThisDrawing.ModelSpace.AddRaster(jmeno, bod, 1, 1)
rastr.name="rastr"
 
když mu ale změním jméno (kvůli přehlednosti chci nastavit jméno jako je název souboru), toto jméno se nezmění ve správci referencí souborů a při různých jménech rastrového obrázku a jménu ve správcích referencí souborů nejde rastr uvolňovat a načítat. dále pak nevím, jak k tomuto rastru přistupovat a uvolňovat ho a načítat pomocí příkazů.
při vložení výkresu xrefu je přitom tato práce snadná:
 
 Set insertedBlock = ThisDrawing.ModelSpace.AttachExternalReference(jmeno, "XREF", bod, 1, 1, 1, 0, False)
 ThisDrawing.Blocks.Item("XREF").Unload
 ThisDrawing.Blocks.Item("XREF").Reload
ve správci referencí je název, který vložím při načítání reference ("XREF").
 
K rastru mohu přistoupit pomocí:
ThisDrawing.ModelSpace.Item(cislo)
číslo si i zjistím (název v tomto případu pro výběr nemohu použít, nevím proč), ale tímto způsobem nemohu použít Unload nebo Reload.
ThisDrawing.ModelSpace.Item(0).Unload - nefunguje, není definováno
 
Zajímalo by mě tedy, jak nastavit název ve správci referencí souborů a jak pak jednotlivé rastry mohu načítat a uvolňovat.


Upravil chose - 27.čvc.2007 v 13:11]]> Fri, 27 Jul 2007 11:34:18 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4932&PID=23767&title=prace-s-rastry#23767