Dobrý den, mám prográmek na tisk vícestránkového dwf pomocí příkazu "publish" nebo "publikuj"Program v 32bit systému fungoval, v 64 bitovém ne. Nejspíš je chyba v nefunkčnosti příkazu SendKyes".Popis části prográmku:Na disku mám vytvořen soubor xyz.dsd.V programu mám řádky:    DOC.SetVariable "FILEDIA", 0    DOC.SetVariable "BACKGROUNDPLOT", 0    DOC.SendCommand ("-publikuj" & vbCr & xyz.dsd)‘v příkazovém řádku se objeví: -publikuj a nic víc ‘nebo pokud procházím program krok po kroku (F8) tak se v příkazovém řádku objeví: Zadejte název seznamu listů: E:\DWF\xyz.dsd (což je správně)    SendKeys "{ENTER}", True‘ a zde by mělo dojít k vykonání předchozího příkazu, ale nedojde, program jede dále, ale příkaz se nevykoná.Funguje v ACAD2007,2010,2012 32 bitNefunguje v ACAD2010, 2012 64 bitMůžete mi prosím pomoci? Potřebuji tisknout vícestránkové dwf a pdf soubory (tj z modelu a jednotlivých Layoutů) - třeba existuje i jiná cesta než "publish"?Vím, že VBA nen již moc podporováno, ale k přeprogramování celého programu se chystáme až v budoucnosti.Děkuji Petr

Nestačilo by ten ENTER resp. vbCr jen přidat do SendCommand? Tomu SendKeys bych se vyhnul, je to už z principu hodně nespolehlivá funkce.
 
Pokud to nepomůže, zkuste příkaz volat přes LISP - tedy:
[CODE].SendCommand "(command " & chr(34) & "_-PUBLISH" & chr(34) &  "....)" & vbCr[/CODE]

Díky, přidání VbCr do SendCommand nepomohlo,pokud zadám do programu:[CODE].SendCommand "(command " & chr(34) & "_-PUBLISH" & chr(34) &  "....)" & vbCr)[/CODE]nebo.SendCommand "(command " & chr(34) & "_-PUBLISH" & chr(34) &  "....)" & vbCr)neboDOC.SendCommand "(command " & chr(34) & "_-PUBLISH" & chr(34) &  "....)" & vbCr)píše Compile error (na závorce za vbCr).Jak to mám zadat, aby to bylo správně?Díky

Ta závorka za  vbCr tam nepatří. Místo těch "...." má být to co chcete sdělit příkazu PUBLISH.

dal jsem tam jakoprogramový řádek:.SendCommand "(command " & Chr(34) & "_-PUBLISH" & Chr(34) & "xxx" & vbCra při spuštění mi VB dává hlášku: Compile error: Invalid or unqualified referencePetr

Neberte ten můj kód doslova - je to jen návod pro programátora. Ten SendCommand tedy ve vašem případě bude asi (celý váš kód neznám):
 
DOC.SendCommand
 
a u toho "xxx" (předpokládám, že jde o název proměnné obsahující název vašeho DSD souboru) vám chybí závorka uzavírající ten (command) - tedy "xxx)". Pokud to nemá být název LISP proměnné, ale název souboru, pak to musí být psané jako:
 
chr(34) & "nazev.dsd" & chr(34) & ")"
 
 

tak příkaz již prošel, ale výsledek je následující:přík. řádek: (command „_-PUBLISH“dsd_dwf“)a stojí jako dříve. (dsd_dwf je proměnná, ve kterém mám uloženu cestu k souboru *.dsd)

Pořád si nerozumíme - jednak tam nemáte spárované uvozovky a jednak v LISP výrazu můžete maximálně odkazovat LISP proměnné, nikoliv proměnné VBA. Ten výsledný řetězec pro SendCommand musí výsledně vypadat nějak takto:[CODE](command "_-PUBLISH" "C:/TEMP/mujsoubor.dsd")[/CODE]

díky za trpělivost. Jen upřesňuji. Do programu jsem zadal řádek:DOC.SendCommand "(command " & Chr(34) & "_-PUBLISH" & Chr(34) & "e:/xxx.dsd" & Chr(34) & ")"po provedení příkazu programem se na příkazovém řádku acadu objeví:Příkaz: (command „_-PUBLISH“e:/xxx.dsd“)a příkaz se nespustí tj. stejný stav jako na začátku ;-((Petr

Pořád ale máte nespárované uvozovky (a ENTER na konci).
 
Zkuste:
[CODE]DOC.SendCommand "(command " & Chr(34) & "_-PUBLISH" & Chr(34) & Chr(34) & "e:/xxx.dsd" & Chr(34) & ")" & vbCr[/CODE]Vladimír Michl2012-01-18 09:41:12

díky, již jsem zkoušel, výsledek však bohužel úplně stejný.

právě ten enter na konci není funkční, takže to zůstane viset. Příkaz na řádek dostaneme, ale neprovede se. Na ten vbCr na konci to neraaguje.Petr

Měl bych menší dotaz, sice není přímo k tématu,ale je ohledně funkce PUBLISH.
Lze funkci publish použít k hromadnému vykreslení souboru .plt. Zkoušel jsem publikovat rozvržení, kde byl natavený plotr a vykreslení do souboru bylo zaškrtnuté a pokaždé když jsem dal publiovat do "plotr pojmenovaný v nastavení stránky" a vždy mně to tiskne přímo na plotr. Mám dojem že mně to fungovalo u 2009 a nebo ještě ustarčí verze autocadu. Mužete mi poradit jak docílit publikovatní do *.PLT (plot soboru).  děkuji  

Hromadné vykreslení lze provést vytvořením kopie plotru připojeného na port "FILE:", ale pohodlnější je asi použití jiného postupu - publikováním do DWF (popř. PDF) a následným tiskem tohoto publikačního souboru.

Děkuji tak přes připojení na port  "file" funguje, jen mám problem s některými výkresi, že mi to udělá PLT s nulovou velikosti tedy prázdné.
Co se tíče tisku do DWF nebo PDF to dělam stejně jen neumím to hromadně poslat na plotr (Goplot) a procházet jednotlivé soubory obdobně jako v prohlížeči plt ViewCompanion pokud existuji podobné aplikace co to umí nebo to lze ještě jinak rychle vytisknout např. 30 výkresů 6x. Tak bych to tak začal dělat jelikoš stejně musím mít PDF nebop DWF výstup. Ještě jednou Děkuji

Pomocí DWF to uděláte snadno - dávkovým tiskem v Design Review. Podrobně viz tip:
http://www.cadforum.cz/cadforum/davkovy-tisk-nekolika-vykresu-a-kopii-i-na-ruzne-tiskarny-tip8424

Dobrý den, ještě se vracím k nefunkčnímu příkazu SendKyes (u win7 64bit), potažmo nereagování na "Enter" na konci programového řádku, který jsme řešili s p.Michlem výše.Nevíte o nějakém jiném způsobu jak vykreslit do dwf a pdf vícestránkový výstup z výkresu (pomocí programu)?Díky Petr