as vezes recebemos desenhos de terceiros, ou nós mesmos fazemos isso, que tem layers com nomes em maiúsculos, outros em minúsculos… o que resulta numa bagunça, ruim para ler…. pelo menos eu acho mais interessante manter de um jeito ou de outro… bom, com esta rotina abaixo, converto tudo para maiúsculo: (vl-load-com);carrega as vls (vlax-for […]
então… continuando com lsp2htm, atualizei ele, agora ele converte tanto lisp como dcl para html ou phpbb se bem que o phpbb fica horrorosa a edição do código… é mais interessante implementar o highlighter em php no próprio código do forum phpbb (lugar mais provável de se ver programas lisp) já tem um site, o
No forum autolisp, postei esta rotinazinha: (defun c:est (/ ss dist ent comp compt pt1 pt2 lay offset ang angp) (tbn:error-init (list (list “cmdecho” 0) T)) (vl-load-com) (prompt “nSelecione os objetos…n”) (setq ss (ssget ‘( (0 . “*LINE,~MLINE;ARC”))) dist (getdist “Distância entre os pontos :n”) offset (getdist “nEntre com o tamanho da marca “) offset
