Dobrý den. Mám dotaz a prosbu na někoho znalého, komu ACAD a VBA funguje.  Je tento jazyk použitelný pro automatizaci výpočtů a vkládání vypočítaných výsledků do výkresů dwg? Bohužel v Helpech není nic moc a nějaká ta literatura na internetu je moc obecná nebo moc akademická. Mám zvládnutý ACAD, VB i VBA, ale potřebuji začátek. Jak vlastně do ACADu makra VBA dostat, zda se dají přivěsit k souboru dwg stejně jako v Excelu nebo Wordu atd. Můžete mi někdo poradit? Děkuji předem

Jindřich Mollin

Několik komentovaných ukázek VBA aplikací AutoCADu najdete v sekci Téma - programování na tomto serveru:
http://www.cadforum.cz/cadforum/tema.asp

Vhodným úvodem do programování VBA je i rozsáhlá práce (online učebnice) Vývojové prostředky AutoCADu - tamtéž.

LT podle mého dosud v žádné verzi VBA nemělo a o (legální) možnosti doplnění nevím. Že je LT záměrně omezený produkt by vám při jeho pořízení mělo být jasné už ze srovnání cen.

Jisté možnosti automatizace v LT jsou. Je tu určité riziko plýtvání prací - nikdo Vám nezaručí, že to bude fungovat i v nové verzi. Pro odborně fundovanější a s lepším přístupem k informacím jistě existuje víc možností, ale já používám:

1. menu s výrazy DIESELu

2. Programy ve VB, které vytvářejí (nebo modifikují) soubory DXF a jejich následné vkládání do výkresu. Dá se to spojit tak, že uživatel ani nepozná, že se drbe přes hlavu :-). Mám třeba tak udělanou nadstavbu pro válcované profily, spojovací materiál, nebo jednoúčelové kreslení schémat skladových regálů.

3. Extrakci atributů a následné zpracování programem, databází.

Připojené soubory

2005-07-13_100702_Module1.zip

Pokud uvažujete, že se vydáte cestou ad 2., mohu Vám pro inspiraci poskytnout kousek kódu pro vytváření DXF. Volá se vždy nejprve OpenDXF, pak libovolný počet DXFLine, DXFCircle (a dalších, které v zaslaném modulu nejsou) a nakonec DXFClose.

Pak je ještě jedna metoda, např. pro řádek nadstavby. Vytvořím blok a do hodnot atributů dám klíčová slova. Uložim jako DXF. V programu pak načtu do stringu, klíčová slova nahradím požadovanými texty a uložím.

Děkuji za ukázku. Ono mi asi nic jiného než DXF nezbude. U nás ve firmě se tento postup používá pro vytváření výkresů sestav. Jenomže si určitě dovedete představit, že ta aplikace, která umí vytvořit výkres sestavy v DWG importem DXF, je psaná na zakázku kdesi v Holandsku, je strašně velká, drahá, licencovaná, nepřenosná, nemá výstupy pro kreslení detailů a nefunguje pod Windows, ale pod Unixem. Vypracování výstupů k detailům se čeká ode mě. Tak mě napadá cesta nejmenšího odporu a tím je právě VB, když přes VBA cesta v Autocadech LT nevede. Prostě krása. Jste první, kdo mi dokázal aspoň trochu poradit.