get-lst-elmts

(defun get-lst-layer (tit maxl lst)
;pegue a lista de elmers do desenho em ordem alfabetica:
(get-lst-elmts tit (vl-sort (get-tableof “layers”) ‘<) lst maxl))

(defun get-lst-elmts (tit listelmts lstpresel maxl / tmp file filename
dcl n qtd elm key)
;sub-rotina para atualizar a tela do diálogo
(setq
;cria um nome de arquivo temporário:
filename (vl-filename-mktemp “gll.dcl”)
;cria o arquivo e abre ele para edição:
file (open filename “w”)
n 0
;se nao foi fornecido o numero de linhas, assume que sejam 15
maxl (if maxl maxl 15)
;quantidade de elmers no desenho:
qtd (length listelmts))
;inicia a criação do diálogo:
(write-line
(strcat “getlstelmer : dialog {width = 50; label = “”
tit “”;n:row { :column {“) file)
;escreve tantas linhas quanto fornecido pela variavel MAXL:
(repeat (min maxl qtd)
(setq n (1+ n))
(write-line
(strcat “:row { :toggle { key = “tg” (itoa n)
“”;} :text{ width=50; key = “tx”
(itoa n) “”;}}”)
file))
;finaliza a criação do dcl construindo os botões:
(write-line
(strcat “}n”
(if (> qtd maxl)
(strcat
“:slider { key = “s”; min_value = 0; max_value = “
(itoa (– qtd maxl)) “; big_increment = “ (itoa maxl)
“; layout = vertical;}”) “”)
“} :row{ :button {key = “ALL”; label = “Tudo”;}
:button {key = “NEM”; label = “Nenhum”;} “
;botão ok:
“:button {label = “Ok”; key=”accept”;
is_default=true;}”
;botão cancel:
“:button {label = “Sair”; key=”cancel”;
is_cancel=true;}}}”)
file)
;fecha o arquivo, ele está pronto!
(close file)
;carrega o arquivo DCL na memória do cad:
(setq dcl (load_dialog filename)
s (– qtd maxl)) ;posição do slider…
;abre um quadro de diálogo:
(new_dialog “getlstelmer” dcl)
;define as ações de cada elemento do diálogo…
(action_tile “s” ;slider
“(update-lst-listelmts (atoi $value))”)
(action_tile “ALL”
“(progn (setq lstpresel listelmts)
(update-lst-listelmts s))”);botao todos
(action_tile “NEM”
“(progn (setq lstpresel nil)
(update-lst-listelmts s))”);botão nenhum
;marca a posição do slider:
(set_tile “s” (itoa s))
;atualiza o estados das toggles…:
(update-lst-listelmts s)
;inicia o diálogo, e salva o resultado
(setq lstpresel (if (= 1 (start_dialog)) lstpresel))
;descarrega o diálogo
(unload_dialog dcl)
;apaga o dcl temporário que criamos
(vl-file-delete filename)
lstpresel)