VBA: Rotina Purgeall, Audit, Save e Quit no mesmo desenho em Autocad, GstarCad e ZwCad

A seguinte rotina em VBA serve para numa vez só realizarmos o PurgeAll, o audit e por fim gravarmos o desenho e fechar o Autocad.

Para Autocad :

Option Explicit

Sub audit()

ThisDrawing.PurgeAll

ThisDrawing.AuditInfo True

ThisDrawing.Save

ThisDrawing.Application.Quit

End Sub


Para GstarCad :


Option Explicit

Sub audit()

ThisDrawing.PurgeAll

ThisDrawing.AuditInfo True

ThisDrawing.Save

ThisDrawing.Application.Quit

End Sub


Para ZwCad : 

Option Explicit

Sub audit()

ThisDocument.SendCommand "-purge" & vbCr & "all" & vbCr & vbCr & "no" & vbCr

ThisDocument.SendCommand "-audit" & vbCr & "y" & vbCr

ThisDocument.Save

ThisDocument.Application.Quit

End Sub

Obrigado

Boa programação