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
Como você faz para inserir um formato no desenho? você tem os blocos de A0 ao A4 já desenhados, certo? e insere eles normalmente como blocos… ok, eu também… mas e quando você precisa dum formato de dimensões fora do padrão? as veze acontece, não é? e aí? explode um formato parecido, etc… mais… (defun
