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 […]
Não sei se alguém ai chegou a acessar este blog com o navegador Firefox, mas se acessou, percebeu que alguns scripts não funcionam direito…. pois é, eu também queria saber por que… engraçado, você escreve qualquer porcaria de script num frontpage da vida e o internet explorer aceita na boa, não fica de frescura… aí
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
