Para Autocad, GstarCad e Bricscad :
Option Explicit
Sub Purge_all()
ThisDrawing.PurgeAll
End Sub
Para ZwCad:
(Obrigado do Arq alexandre pela dica. O Arq. Alexandre é o representante do ZwCad em Portugal pela empresa IberCad).
(Obrigado do Arq alexandre pela dica. O Arq. Alexandre é o representante do ZwCad em Portugal pela empresa IberCad).
Option Explicit
Sub Purge_all()
ThisDocument.SendCommand "-purge" & vbCr & "all" & vbCr & vbCr & "no" & vbCr
End Sub
Obrigado a todos e um bom ano.
Boa programação
No ZWCAD , para fazer o Purgeall facilmente se resolve com uma pequena rotina de LISP como esta:
ResponderEliminar(defun c:purgeall ()
(command "-purge" "all" "" "no"))
É só fazer COPY/PASTE para o bloco de notas, gravar com a extensão .LSP e abrir no ZWCAD fazendo TOOLS > LOAD APLICATION...
esta rotina também serve para outros programas CAD que suportem LISP como o Autocad, o Gstar, o Bricscad, o Bitcad, o Intellicad, o Progecad, entre muitos outros...
Parabéns pelo excelente trabalho.
Arq. Alexandre, obrigado pela visita e comentário.
ResponderEliminarOlá boa tarde a todos, eu tenho uma forma diferente de fazer o purge_all já desde do cad2004 onde na altura fiz alguns menus pessoais.
ResponderEliminarDeixo aqui a sugestão...
Fazer um novo icon e atribuir um comando:
^C^C(command "purge" "a" "" "n")
Boas Ediniz, antes de mais obrigado pela dica pela visita.
ResponderEliminarO Alexandre enviou-me a solução para VBA.
A ideia nesta situação é querermos fazer uma rotina por exemplo para correr vários desenhos e automaticamente uma das coisas que faz é o purge all, por isso a demonstração em VBA.
Mais uma vez obrigado
Boa tarde,
ResponderEliminarAntes de mais muitos parabens pelo trabalho desenvovid
Na minha empresa eu tenho sempre de fazer o comando purge e depois respoder no... no...no... ate aparecer a caixa de dialogo e entao fazer o purge all.... eu sei que ha uma forma de fazer isto automaticamente... como posso fazer isso??
Muito obrigado
Fabio Fernandes
Caro Fabio,
EliminarObrigado pela visitas e pelo comentário.
Eu uso o comando purgeall num icon.
Criamos um icon novo no CUI, com a seguinte macro:
^C^C_-purge;_A;;N;
Se não perceberes aviso que é um bom tema para um novo post.
Abraço
Francisco
Francisco voçê é o maior..... ja fiz isso e resulta muito bem.... com um simples clique no botao o purge faz-se automaticamente e nem aparece caixa de diálogo.... acabou de me salvar de uma chatice dos diabos... (estar sempre a carregar no n)... obrigado...
Eliminarvamos partilhando mais ideias...
Ainda bem que o ajudou.
EliminarAcompanhe tb aqui: https://www.facebook.com/groups/150690571750770/
e aqui:
https://plus.google.com/u/0/communities/100265446116255298865
Abraço