Esta rotina em VBA serve para fazer um save ao desenho. É de extrema importância se queremos salvar o desenho quando finalizarmos a rotina.
Para Autocad :
Option Explicit
Sub GravarDesenho()
ThisDrawing.Save
End Sub
Para GstarCad :
Option Explicit
Sub GravarDWG()
thisDrawing.Save
End Sub
Para ZwCad :
Option Explicit
Sub GravarDWG()
ThisDocument.Save
End Sub
Obrigado
Boa programação
Sem comentários:
Enviar um comentário