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 […]
Civil 3d… é até parece perfeito, mas… algumas vezes depois de criar aquele alinhamento enorme, colocar todas as labels, criar perfis, etc, me aparece alguem e diz: “a estaca inicial não é essa!! é xxx”, onde xxx é o número de sorte do camarada… bem, a principio é so mudar o parâmetro “station” em “Station
Um programa para o civil 3d, e usando algumas das funções da TLB dele!! este programa cria profileviews dos alinhamentos selecionados, util quando se está criando “corridors” com varios alinhamentos auxiliares numa interseção, o como foi um caso em que estou trabalhando, uma rua com 4 cruzamentos, cada um com 4 alinhamentos auxiliares, para criar
