As vezes nas nossas rotinas, pedimos para o usuário informar o nome de uma layer qualquer e este responde com uma string… Bem, nem sempre validamos essa string… pelo que eu percebi, ninguém faz isso… aí podem ocorrer erros, pois estaremos tentando criar um layer que não pode existir… Exemplo: (vla-add (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) “>layer”) […]
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
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
