Help with vba instructions for visualstyle and zoom

[Dante Sparda]

Hi everybody, I'm doing an aplication with vba, and autocad opens automatically, always in 2d wire visual style, so I need to change it to conceptual or realistic with vba.

And after I insert some blocks (in 0,0,0) they are not completely visible, so I need to zoom all, also with vba.

And finally, how do I set the viewpoint to be isometric from, I'm not quite sure hot to say it, let's saay... isometric from front-right

 

I really need this, hope anyone can help me

 

thanks in advance!!!!

[fixo]

Hi everybody, I'm doing an aplication with vba, and autocad opens automatically, always in 2d wire visual style, so I need to change it to conceptual or realistic with vba.

And after I insert some blocks (in 0,0,0) they are not completely visible, so I need to zoom all, also with vba.

And finally, how do I set the viewpoint to be isometric from, I'm not quite sure hot to say it, let's saay... isometric from front-right

 

I really need this, hope anyone can help me

 

thanks in advance!!!!

 

Not tested, maybe some mistakes here

partially borrowed from Help

 

Option Explicit

Sub Test()
Dim blkRef As AcadBlockReference
Dim varPt(0 To 2) As Double
Dim i As Integer

For i = 0 To 2
varPt(i) = 0
Next

Set blkRef = ThisDrawing.ModelSpace.InsertBlock(varPt, "MyBlock", 1, 1, 1, 0)
   

   Dim vdir(0 To 2) As Double
   vdir(0) = -1: vdir(1) = -1: vdir(2) = 1

   ThisDrawing.ActiveViewport.Direction = vdir
   ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
   
   Dim minExt As Variant
   Dim maxExt As Variant
   
   blkRef.GetBoundingBox minExt, maxExt
   ZoomWindow minExt, maxExt
   
   ThisDrawing.Regen acActiveViewport

End Sub

[Dante Sparda]

Now the zoom thing is ready

Thank you very much!!

 

now I need to set the realistic visual style, anyone can help ne with this??