Ontem, estava “soldando” umas linhas com a minha rotina MJ4 quando derepente ela me falha!! putz, fiquei cabreiro, afinal havia testando ela de todas as formas que eu pude imaginar!!! Curioso, foi tentar descobrir o que estava acontecendo… mais… Pra minha surpresa, tudo parecia estar em ordem, mas simplesmente não funcionava, não emendava as polilinhas.. […]
Esta rotina abaixo estou usando para rotacionar textos que estão de “cabeça para baixo”, ela faz o seguinte: ao receber um determinado ângulo em radianos, testa se ele faria um TEXT ficar de cabeça para baixo… mesmo se você tiver um UCS diferente do WCS, se estiver, soma 180º a ele, vejam: (defun rot-of-ucs (rot
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
