Esta rotina desenha um bloco contendo as coordenadas X, Y e Z e o Nome de um ponto clicado. Este bloco aponta uma polilinha para esta posição e ambas as estidades respondem a comandos de edição com Reactors, conferindo uma certa inteligência a este bloco…Experimente usar o Stretch, Move, Attedit… e verás… as subrotinas que […]
As rotinas abaixo, servem para dar um toque mais profissional nas rotinas, assim como o acet-error-init do Express Tools, elas controlam o que acontece com a rotina em caso de erro. Isso evita que tenhamos Undos e Redos desnecessários, fazendo a rotina se comportar como um comando do cad.Elas devem ser usadas assim: (defun c:sualisp
;| subrotina auxiliar, calcula a área de um polígono fechado, mas sem dividir por 2, nem retirar o sinalObs: pts é a lista de corrdenadas, ex: ((x1 y1) … (xn yn)) |;(defun ia_proclpt (pts) (setq pts (append pts (list (car pts)))) (– (apply ‘+ (mapcar ‘* (mapcar ‘car pts) (cdr (mapcar ‘cadr pts)))) (apply ‘+
