běh sekvence lispu -1
Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=3366
Datum vytištění: 13.kvě.2026 v 09:16
Téma: běh sekvence lispu -1
Odeslal: Ferdinand
Předmět: běh sekvence lispu -1
Datum odeslání: 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]:
-------------
-FerTh-
|
|