VBA: Regen em Viewports em Autocad, GstarCad, ZwCad e BricsCad

Fica aqui uma rotina para  fazer o Regen em uma Viewport ou em várias, infelizmente não tenho onde experimentar no ZwCad e no BricsCad.

Para Autocad :

Sub regenVP()

ThisDrawing.Regen (gcActiveViewport) 'regen ao viewport activo
ThisDrawing.Regen (gcAllViewports) 'regen a todos os viewports

End Sub


 ou


Sub regenVP()

ThisDrawing.Regen (acActiveViewport) 'regen ao viewport activo
ThisDrawing.Regen (acAllViewports) 'regen a todos os viewports

End Sub


Para GstarCad :




Sub regenVP()

ThisDrawing.Regen (gcActiveViewport) 'regen ao viewport activo
ThisDrawing.Regen (gcAllViewports) 'regen a todos os viewports

End Sub

 ou

Sub regenVP()

ThisDrawing.Regen (acActiveViewport) 'regen ao viewport activo
ThisDrawing.Regen (acAllViewports) 'regen a todos os viewports

End Sub

Para ZwCad : 
(Infelizmente não tenho possibilidade de experimentar neste Cad fica a possível solução)

Sub regenVP()

ThisDocument.Regen (zcActiveViewport) 'regen ao viewport activo
ThisDocument.Regen (zcAllViewports) 'regen a todos os viewports

End Sub


Para Bricscad :
(Infelizmente não tenho possibilidade de experimentar neste Cad fica a possível solução)



Sub regenVP()

ThisDrawing.Regen (acActiveViewport) 'regen ao viewport activo
ThisDrawing.Regen (acAllViewports) 'regen a todos os viewports

End Sub




Obrigado a todos.

Boa programação