;********************************************
        (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.

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.

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

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í: