get-lpt
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) […]
LayCase – layers maiusculos e minusculos
Aí esta a rotina que eu falei: (defun c:laycase (/ dcl op x) (tbn:error-init nil) (setq dcl (load_dialog “laycase.dcl”);opção padrão: op (getcfg “Appdata/laycase/laycase”) op (if op op “maius”));carrega o dialogo: (new_dialog “laycase” dcl);configura as “action” do dialogo: (foreach x ‘(“prma” “minus” “maius” “plsm” “invr”) (action_tile x “(setq op $key)”));marca no dialogo a opção padrao: (set_tile
LayCase – layers maiusculos e minusculos Read More »
StrCase2
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