https://www.cadforum.cz/forum/ Fri, 12 Jun 2026 11:29:17 +0000 Thu, 02 Nov 2006 17:19:04 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=3366 https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ https://www.cadforum.cz/forum/forum_posts.asp?TID=3366&PID=15631&title=beh-sekvence-lispu-1#15631 Autor: Ferdinand
Předmět: 3366
Zasláno: 02.lis.2006 v 17:19

Něco (?) zde chybí - neprovede uložení/obnovení statusu hladin:

   ...
                    ;(command "_-lman" "_delay" 500 "_S" "LAYER_STATE1" "")
   (command "_-lman" "_delay" 500 _S LAYER_STATE1)
    (setq TM (getvar "tilemode"))
    (setvar "tilemode" 1)
    (COMMAND "_-layer" "_T" "*"    "_U" "*" "_ON" "*" "_LW" "0" "*" "_S"
         "0" "")            ;všechny hladiny rozmrazit+odemknout
    (COMMAND "_-vports" "_si")
    (COMMAND "_zoom" "_e")
;;;;;;;;;;;;;;;;;;;;;volání jednotlivých procedur
    (C:NULLTXT)
    (C:CISTI_BODY)            ;(command "killdots")
    (C:DF)
    spacebar
;;;;;;;;;;;;;;;;;;;;;
    (COMMAND "_-purge" "_A" "" "_N")
    (COMMAND "_-purge" "_A" "" "_N")
                ;(command "_-lman" "_delay" 500 "_R" "LAYER_STATE1")
    (command "_-lman" "_delay" 500 _R LAYER_STATE1)
    (setvar "tilemode" TM)
    (COMMAND "_save" "")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;konec cyklu

LAYER_STATE1 se nevytvořil - bez ohledu na to, zda volby byly v uvozovkách <"_S">, <"LAYER_STATE1"> či ne <_S>, <LAYER_STATE1> proběhlo:

Command: (command "_-lman" "_delay" 500 _S LAYER_STATE1)
_-lman Unknown command "-LMAN".  Press F1 for help.

Command: _delay Enter delay time (in milliseconds): 500
Command:
Command:
Command: nil

Přitom funkce je aktivní:

Command: -lman

Current layer state: *UNNAMED*
Enter an option for layer states [?/Import/Export/Save/Restore/Delete/reName]: S

Enter name for saving current layer status [?]: LAYER_STATE1

Layer state: LAYER_STATE1 saved.
Enter an option for layer states [?/Import/Export/Save/Restore/Delete/reName]:

]]> Thu, 02 Nov 2006 17:19:04 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3366&PID=15631&title=beh-sekvence-lispu-1#15631