Bibliotecas de Slides SLB

Você chegou ler aquele post sobre a dimensão dos slides? Cosneguiu usar pra alguma coisa? espero que sim, hehehe

Agora suponha que tenhamos uma biblioteca de slides (*.SLB), e queremos mostrar alguns deles… você sabe os nomes dos slides que que compõe a biblioteca? Se sabe, ótimo, se não sabe, bem, use esta lisp:


;extrai a lista de slides de uma biblioteca de slides SLB

(defun slb2list (filename / file lst str)
(
setq file (open filename “r”)) ;abre o arquivo para leitura
(repeat 31 (read-char file)) ;pula a informação da SLB
;enquanto nao lê caractere zero:
(while (/= 0 (setq char (read-char file)))
;leu um caractere diferente de zero:
(setq str (chr char))
;lê mais 31 então, para formar o nome completo:
(repeat 31
(setq str (strcat str (chr (read-char file)))))
;pula o lixo:
(repeat 4 (read-char file))
;armazena o nome criado na lista:
(setq lst (cons str lst)))
;fecha o arquivo:
(close file)
;devolve a lista:
(reverse lst))


Para usar é simples:
(slb2list “F:/autocad/drenagem e esgoto/Drenagem/de_fonts.slb”)
Deverá retornar uma lista parecida com isso:
(“65” “66” “teste” “slide”)

Deixe um comentário

Carrinho de compras
Rolar para cima