Tangente
Usei esta subrotina, mas não a defini na rotina Mlh2mas ai está: (defun tan (ang) (/ (sin ang) (cos ang)))
Usei esta subrotina, mas não a defini na rotina Mlh2mas ai está: (defun tan (ang) (/ (sin ang) (cos ang)))
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