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)

exemplo de como desenhar um TEXT com o entmakex: (defun get-alh-alv () (setq ali (vl-position (strcase ali) ‘(“L” “C” “R” “A” “M” “F” “TL” “TC” “TR” “ML” “MC” “MR” “BL” “BC” “BR”)) alh (nth ali ‘(0 1 2 3 4 5 0 1 2 0 1 2 0 1 2)) alv (nth ali ‘(0 0