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 ‘+
Na verdade estou tentando modificar esta rotina para que ela não precise usar os layers… pois se você tem um desenho muito grande, ela pode se tornar lenta ao alterar o “LOCK” do layer… (defun get-user-polig (/ pts lst tmp cmd) (setq pts nil lst nil cmd (getvar “cmdecho”) again t) (vlax-for tmp (vla-get-layers (vla-get-activedocument
