;********************************************
        (setq nfile (getvar "DWGNAME"))
        (setq cesta (getvar "DWGPREFIX"))
        (setq scrfile (strcat cesta "DWG-PDF.scr"))
        (setq dlns (strlen nfile))
        (setq nfile (substr nfile 1 (- dlns 4)))
        (setq zn (chr 34))
        (PrintFileName)
        (if (= (findfile scrfile) nil) (setq f (open scrfile "w"))
                                       (setq f (open scrfile "a"))
        )
        (write-line "-PLOT" f)
        (write-line "_Y" f) ;Detailní konfigurace vykreslování? [Ano/Ne] <Ne>: _Y
        (write-line "Model" f) ;Zadejte název rozvržení nebo [?] <Model>: Model
        (write-line "DWG-PDF.pc3" f) ;Zadejte název výstupního zařízení nebo [?] <DWG-PDF.pc3>:
        (write-line FormPDF f) ;Zadejte velikost papíru nebo [?] <TZA1 (594.00 x 841.00 MM)>:
        (write-line "_M" f) ;Zadejte rozměry papíru [Palce/Milimetry] <Milimetry>:
        (write-line natoc f) ;Zadejte orientaci výkresu [na Výšku/na šířKu] <šířKu>: _L
        (write-line "_N" f) ;Kreslit vzhůru nohama? [Ano/Ne] <Ne>: _N
        (write-line "_W" f) ;Zadejte vykreslovanou plochu [Displej/Maximálně/meZe/Pohled/Okno] <meZe>: _W
        (write-line (strcat (rtos (car pt1)) "," (rtos (cadr pt1))) f)
        (write-line (strcat (rtos (car pt2)) "," (rtos (cadr pt2))) f)
        (write-line "_F" f) ;Zadejte měřítko vykreslování (Vykreslené Pixely=Kreslící jednotky) nebo [Maximálně] <Maximálně>: _F
        (write-line "_C" f) ;Zadejte odsazení vykreslování (x,y) nebo [Centrovat] <Centrovat>: _C
        (write-line "_Y" f) ;Vykreslit se styly vykreslování? [Ano/Ne] <Ano>: _Y
        (write-line "TZ_SV_BTk_Ploter.ctb" f) ;Zadejte název tabulky stylu vykreslování nebo [?] (zadejte . pro žádnou) <TZ_SV_BTk_TIFF.ctb>:
        (write-line "_Y" f) ;Vykreslovat s tloušťkou čar? [Ano/Ne] <Ano>: _Y
        (write-line "_W" f) ;Zadejte nastavení stínovaného výkresu [dle Zobrazení/Drátový/Skrytý/Rendering] <Drátový>: _W
        (write-line nfile f)
        (write-line "_N" f) ;Uložit změny do nastavení stránky [Ano/Ne]? <N> _Y
        (write-line "_Y" f) ;Pokračovat s vykreslováním [Ano/Ne] <A>: _Y
        (write-line "_Delay" f)
        (write-line "1000" f)
        (close f)
        (if (= i (- dl 1))
          (progn
            (setq f (open scrfile "a"))
            (write-line "(ukonceni)" f)
            (close f)
          )
          (setq i (1+ i))
        )
      )
    )
  )
  (setq pt1max (list xpt1max ypt1max 0.0))
  (setq pt2max (list xpt2max ypt2max 0.0))
  (command "_LIMITS" pt1max pt2max)
  (command "_ZOOM" "_W" pt1max pt2max)
;********************************************
; Spuštění tisku
;********************************************
  (setvar "FILEDIA" 0)
  (command "_SCRIPT" scrfile)
;***************************************************************************
; Ukončení
;***************************************************************************
(defun ukonceni ()
  (setq prikaz (strcat "del " (chr 34) scrfile (chr 34)))
  (command "_SHELL" prikaz)
  (command "_REGENALL")
  (setvar "CMDDIA" 1)
  (setvar "FILEDIA" 1)
  (setvar "CMDECHO" 1)
  (setvar "ATTDIA" 1)
  (setvar "OSMODE" 255)
  (princ)
)
;***************************************************************************
)

 

 

Program si nejprve ošahá modelový prostor, najde v něm bloky rámečků (musí být stejné - více listů jednoho výkresu) a zjistí maximální rozměry, tedy levý dolní a pravý horní bod. Pak vygeneruje skriptovací soubor s posloupností příkazů _-plot a následně jej spustí. Po dokončení pak pomocí příkazu SHELL skriptovací soubor vymaže.

 

Program zhavaruje na příkazu LIMITS, kde očekává vstupní body. Tedy buď čeká na příkazu LIMITS

nebo skript projede celý i LISP, ale v Podrobnostech publikování a vykreslování vypíše hlášku:

Chyby nevykresleny - Neplatné okno.

Problém je v tom, že skript je vygenerován správně, včetně správně zadaných souřadnic rohů vykreslení.

 

Aby toho nebylo málo, tak se k tomu druží problém s textovým oknem, které sice po zmáčknutí F2 se aktivuje, ale okamžitě zmizí za oknem AutoCADu, takže je nemožné se k němu dostat. Jedině přes druhý monitor nebo zmenšením oken.

 

AutoCAD Mechanical 2016 SP1

Windows 7

Windows 10

 

jen na některých CAD stanicích (na větší polovině to chodí)

http://www.cadforum.cz/cadforum/klavesa-f2-mi-neotevre-textove-okno-autocadu-tip10949 - http://www.cadforum.cz/cadforum/klavesa-f2-mi-neotevre-textove-okno-autocadu-tip10949

Vzpomínám si, že když začaly tyhle problémy, tak tyto hodnoty byly nilové. Přitom ve všech nižších verzích AutoCADu tyto programy pracovaly spolehlivě. Neměli by v Autodesku prověřit proměnné, jestli nedochází k přepisu?

Na některých stanicích tento program nenastavil moje proměnné a zasekl se pak zákonitě na příkazu LIMITS, na stejných dnes proměnné nastavil, zapsal do skriptu, ale ve výsledku vyhodil chybu v Podrobnostech. A na větší polovině CAD stanic funguje.

Chcete říct, že když mi programy běží spolehlivě 10 let a pak najednou ve verzi 2016 havarují za stejných podmínek (rozuměj stejné výkresy), tak je to moje chyba? Napište mi, prosím, v čem. Rád bych ten problém vyřešil. Děkuji.

Body limity jsou vypočteny a zadány správně, ale příkaz LIMITS zahlásil - Neplatné meze, chyba, funkce zrušena.

Příkaz LIMITS přesto chce zadat levý dolní roh a nabízí souřadnice přesně vypočítané programem,

po odklepnutí chce zadat pravý horní roh a nabízí souřadnice přesně vypočítané programem,

pak úspěšně skončí. Když však chci na příkazový řádek zadat:

(command "_LIMITS" pt1max pt2max), tak zahlásí chybu (viz. výše).

Následně vložím řádek:

(command "_ZOOM" "_W" pt1max pt2max), který úspěšně provede.

Tak, a teď "babo" raď.

Prošel jsem dalších pár stanic, ale u nich to funguje dobře.

Vyhodil jsem z programu řádek s příkazem LIMITS a spustil ho.

Program proběhl, ale v Podrobnostech publikování a vykreslování vypíše hlášku:

Co je v AutoCADu Mechanical 2016 nestabilního? A nebo nestíhá vykonávat řádky LISPu interpreterem?

Zkusím dát za každý řádek příkaz DELAY.

Pane Michl, můžete zareagovat? Děkuji

 

Příkaz LIMITS (a asi tedy i ten PLOT W) nejspíše selže proto, že ony uživatelské proměnné určující okno mají v ten okamžik nesprávně nastavenou hodnotu.

Bohužel, nejsem zákazníkem CAD Studia, proto se nemohu přihlásit do Helpdesku.

Vše proběhlo naprosto korektně, skriptovací soubor byl korektně vytvořen, uzavřen a pak spuštěn.

Výkres obsahuje dva listy - u prvního listu se objevilo okénko s průběhem operace, u druhého už ne.

Skončilo to hlášením v Podrobnostech publikování a vykreslování:

Podle staré moudrosti (nejen IT) je 99,9% chyb mezi klávesnicí a židlí. Jen najít tu pravou. Stále méně jsem přesvědčen, že je to ta moje.