Conversão de bases numéricas não é lá um tema muito interessante, mas vou postar algumas rotinas para isso: ;função que converte inteiro para a base selecionada:(defun i2base (n letras / lst u ex base) (setq lst nil ex 0 n (fix n) base (float (length letras)));inteiros grandes… (while (not (equal n 0.0 0.0001)) (setq u […]
Uns tempos atrás muitos estavam atrás duma função parecida com o GETFILED, mas que em vez de procurar um arquivo, procurasse uma pasta… eu inclusive… e garimpando na internet encontrei esta rotina: (defun BrowseForFolder ( text / ret shell);acessa o shell do windows: (setq shell (vlax-get-or-create-object “shell.application”));invoca o metodo “BrowseForFolder” e se o cara escolher
Uma rotina que complementa a função VL-MKDIR: (defun mkdir2 (path / pos lst drive f);limpa a string: (while (vl-string-search “” path) (setq path (vl-string-subst “/” “” path)));remove a barra do final, se ela existir: (setq path (vl-string-right-trim “/” path));desmonta a string numa lista: (while (setq pos (vl-string-search “/” path)) (setq pasta (substr path 1 pos)
