Acad & VB.Net how can I change the 2D plan view to a Iso?

[RMS]

Anyone have the VB.net command to change the current plan view model space to any Isometric one; but still in the model space. I searched all over with no luck, I must not be using the right key words.....thanks for any help!

Rob

[BIGAL]

Vpoint 1,1,1

[SEANT]

And in .NET terms:

A ViewportTableRecord object can be acquired from Database.CurrentViewportTableRecordId (via transaction).

The view can be modified similar to the vpoint command:
ViewportTableRecord.ViewDirection = New Vector3d(1.0, 1.0, 1.0)
(commit transaction)

Regen the view with:
Editor.UpdateTiledViewportsFromDatabase()

[RMS]

And in .NET terms:

A ViewportTableRecord object can be acquired from Database.CurrentViewportTableRecordId (via transaction).

The view can be modified similar to the vpoint command:
ViewportTableRecord.ViewDirection = New Vector3d(1.0, 1.0, 1.0)
(commit transaction)

Regen the view with:
Editor.UpdateTiledViewportsFromDatabase()

Thanks for the tip, so I am getting close BUT I have this error, is it that I am not using AutoCAD 2011 and a newer .net framework? Or am I missing a reference?

Thanks!

[Kerry Brown]

Editor.ActiveViewportId property is only available for Acad2009 or later

[SEANT]

The .NET API has changed quite a bit since AutoCAD 2005 (version listed in your profile). Consequently, the sample shown below may not work.

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.ApplicationServices



<CommandMethod("IV")> _
Public Sub IsoView()
Dim Doc As Document = Application.DocumentManager.MdiActiveDocument
Dim db As Database = HostApplicationServices.WorkingDatabase
If (db.TileMode = True) Then
Using tran As Transaction = db.TransactionManager.StartTransaction()
Dim vpr As ViewportTableRecord = DirectCast(tran.GetObject(db.CurrentViewportTableR ecordId, OpenMode.ForWrite), ViewportTableRecord)
If vpr IsNot Nothing Then
Dim v3d As Vector3d = New Vector3d(1.0, -1.0, 1.0)
vpr.ViewDirection = v3d
End If
tran.Commit()
End Using
Doc.Editor.UpdateTiledViewportsFromDatabase()
End If
End Sub

[RMS]

Editor.ActiveViewportId property is only available for Acad2009 or later

I was kinda thinking that too but was not sure.......

plan b

[RMS]

The .NET API has changed quite a bit since AutoCAD 2005 (version listed in your profile). Consequently, the sample shown below may not work.

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.ApplicationServices



<CommandMethod("IV")> _
Public Sub IsoView()
Dim Doc As Document = Application.DocumentManager.MdiActiveDocument
Dim db As Database = HostApplicationServices.WorkingDatabase
If (db.TileMode = True) Then
Using tran As Transaction = db.TransactionManager.StartTransaction()
Dim vpr As ViewportTableRecord = DirectCast(tran.GetObject(db.CurrentViewportTableR ecordId, OpenMode.ForWrite), ViewportTableRecord)
If vpr IsNot Nothing Then
Dim v3d As Vector3d = New Vector3d(1.0, -1.0, 1.0)
vpr.ViewDirection = v3d
End If
tran.Commit()
End Using
Doc.Editor.UpdateTiledViewportsFromDatabase()
End If
End Sub

OK, I am using acad 2009 now and the above code is working.

IF anyone is using acad 2006 - 2008 this will work to change current model view to an Isometric one. Got this from a site in China




' set iso mode

Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Edit or
Dim vtr As ViewTableRecord = ed.GetCurrentView()
Dim newVtr As ViewTableRecord = vtr
newVtr.ViewDirection = New Vector3d(1, -1, 1)
ed.SetCurrentView(newVtr)

' close Iso mode