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 […]
Uma subrotina para permutações. Ver… (defun permuteme (lst / global recursive subst2 swap) (setq ;função que substitui um elemento por outro numa lista: subst2 (lambda (lst pos elm / tmp) (repeat pos (Setq tmp (cons (car lst) tmp) lst (cdr lst))) (append (reverse tmp) (list elm) (cdr lst))) ;função que inverte as posições de 2
Este trecho de código abaixo, que não é bem uma subrotina, criar algumas variaveis globais que uso nos meus programas e carrega a TLB do civil 3d (2007 e 2008) e deve ser usada sempre que aparecer funções começando com “cvl*”. para facilitar, elas estão destatacadas assim: “cvl*”, pode parecer estranho, mas se você escreve
