Help about change view in VBA

[Anonymous]

Deer all,

I have a question and hope you can help me. Sorry for my stupid in Autocad 😞

In my command line, when I type "-vp" and next "1,1,1"

Autocad will change view.

How I can do what similar in VBA.

Hope you can help me as soon as possible.

Thank alot.

[Alfred.NESWADBA]

Hi,

it depends what you want to do then. As long as you are not close enough to development and AutoCAD itself I would do that with SendCommand:

    Call ThisDrawing.SendCommand("_VPOINT" & vbCr & "1,1,1" & vbCr)

- alfred -

[Hallex]

Try this code

          Public Sub setView()
          Dim vdir(0 To 2) As Double
          vdir(0) = 1: vdir(1) = 1: vdir(2) = 1
          ThisDrawing.ActiveViewport.Direction = vdir
          ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport

          End Sub

~'J'~

[Anonymous]

Thanks you so much. I will try both of them.