Creio que faltou esta rotina na MJ4: (defun get-lpt (q r pt / l n) (setq l nil n 1) (repeat q (setq l (append l (list (polar pt (/ (* n 2 pi) q) r))) n (1+ n))) l) get-lpt (q r pt) -> gera uma lista de pontos de um poligono com (q) […]
Lembram daquela exemplo do layers maiúsculos e minúsculos? me ocorreu que derrepente eu posso querer só a primeira letra maiúscula e o resto minúscula… ou invertido, sei lá… mas o strcase so faz dum jeito ou do outro… entao bolei na corrida isto: (defun strcase2 (str opcao / tmp s) (cond;tudo minusculo: ((or (equal t
Vou postar as rotinas que estavam faltando na RTC3: (defun put-xdata2 (ent hands app /) (remake-ent ent -3 (list (cons app hands)))) (defun get-xdata2 (ent app /) (setq app (strcase app)) (mapcar ‘cdr (cdr (assoc app (mapcar ‘(lambda (x) (cons (strcase (car x)) (cdr x))) (dxf -3 ent)))))) (defun del-xdata2 (ent app / old) (setq
