Biblioteca de Slides

Muito bem... Quem já criou bibliotecas de slides (arquivos *.SLD) já percebeu que é necessário retornar ao bom e velho MS-DOS para poder usar o utilitário do autocad que agrupa os slides numa SLIDE LIBRARY (arquivo SLB)... Creio que a maioria concorda que, mesmo sendo um recurso pouco utilizado, bem que poderia ser mais amigável essa criação, basta ver a explicação do help do autocad de como criar uma lista de arquivos via prompt de comando do MS-DOS... é para isso que criei esta rotinazinha, inclusive já postei ela em alguns forums, mas se alguem não viu, aí esta ela:

---

(defun c:slides  (/ lib shell dir file tmp tmpbat sllib f)
  (if (setq conv (lambda (str)
                   (while (vl-string-search "\\" str)
                     (setq str (vl-string-subst "/" "\\" str)))
                   str)
            lib  (getfiled
"Criar arquivo de slides (salve na pasta onde estão os slides)"
                   "" "slb" 1))
    (progn
      (setq dir    (vl-filename-directory lib)
            tmp    (vl-filename-mktemp "" dir ".txt")
            file   (open tmp "w")
            sllib  (conv (findfile "slidelib.exe"))
            tmpbat (vl-filename-mktemp "" dir ".bat"))

      (foreach x  (vl-directory-files dir "*.sld" 1)
        (write-line (strcat (conv dir) "/" x) file))
      (close file)
      (write-line
        (strcat "\"" sllib "\" \"" (conv lib)
                "\" < \"" (conv tmp) "\"\ndel \""
                tmp "\"\ndel \"" tmpbat "\"")
        (setq file (open tmpbat "w")))
      (close file)
      (startapp tmpbat)))
  (princ))

---

para usar, basta carregar a rotina pelo comando appload do autocad e digitar slides na linha de comando...
irá ser pedido um nome e local onde salvar a biblioteca... o nome é de sua escolha, mas o local, deve ser necessáriamente na pasta onde estão seus slides.