Quem (assim como eu) acha massante desenhar aquelas famigeradas linhas verticais e horizontais das malhas de coordenadas UTM nos desenhos? pior ainda se você quer recortá-las na altura do carimbo não é mesmo? bom, uns tempos atraz eu coloquei esta rotina pra download, mas acho que aqui pode-se aproveitar ela melhor… (defun c:mlh2 (/ paper? […]
Sem rodeios: ponto médio entre dois pontos… sim é so isso ; calcula o ponto médio entre dois pontos (defun media (p1 p2 / x y) (mapcar ‘(lambda (x y) (/ (+ x y) 2)) p1 p2)) também uso pra caramba
Quando vamos escrever um número via autolisp, precisamos que ele esteja formatado com separadores de milhar essas coisas… ;|formata um numero real em uma string com f casas decimais e com separador de milhar, exemplo: (fnum 123456789.123456789 3)|;(defun fnum (num f / int pos fp) (setq int (rtos num 2 f) pos (vl-string-search “.” int)
