Hoje um amigo meu me pediu algo que transformasse MINSERT BLOCK em bloco normal, pois ele não conseguia explodir o MINSERT, bom, uns tempos atras tinha uma discussão no forum autolisp sobre proteção de arquivos dwg e uma das opções de proteção que deram lá essa de transformar o desenho em MINSERT… mas logo vimos […]
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
