Sabe aquelas polilinhas que você desenha conectando pontos de levantamento topográfico? então… já reparou que se você receber mais dados de campo e racalcular as poligonais de fechamento e reinserir todos os pontos no desenho, apagando os anteriores, as vezes dependendo da nova distribuição do erro, os pontos “saem” um pouquinho do lugar? não chega […]
Uma função complementar a “vl-princ-to-string”, “itoa”, “rtos”: (defun tostring (v / tp spc tmp) (SETQ tp (type v)) (cond ((= tp ‘STR) (strcat “”” v “””)) ((= tp ‘REAL) (rtos v 2 16)) ((= tp ‘INT) (itoa v)) ((null v) “nil”) ((listp v) (setq spc “”) (setq tmp “”) (foreach x v (setq tmp (strcat
pega aqui!! (defun c:dtal (/ cr pe d ds pts compt dist getent lay tmp) (tbn:error-init (list;lista de variaveis a serem configuradas: (list “cmdecho” 0);função a executar em caso de erro: ‘(high-ligth (list cr pe) nil)));função que pede a seleção de uma linha:;ela aceita “não selecionar” para terminar a rotina (setq getent (lambda (s) (while
