Thanks Tony for the direction. CVPORT? could not get it to work (send commands to command line) except in the modelspace tab. In any paperspace tab the command itself CVPORT does not work?? So I used the p/invoke acedSetCurrentVport() method. there were two great blogs I referenced.
Kean Walmsleys described a method for extracting the function line from the acad.exe file:
http://through-the-interface.typepad.com/through_the_interface/2006/07/calling_objecta.html
And using the afore mentioned example as guide:
http://discussion.autodesk.com/forums/thread.jspa?messageID=6123415?
It seems to be working, (not pretty, but moving forward!):
'pinvoke acedSetCurrentVport function out of acad.exe file
<DllImport("acad.exe", CallingConvention:=CallingConvention.Cdecl, _
EntryPoint:="?acedSetCurrentVPort@@YA?AW4ErrorStatus@Acad@@PBVAcDbViewport@@@Z")> _
Public Shared Function acedSetCurrentVPort(ByVal AcDbVport As IntPtr) As IntPtr
End Function
///////////////////////////////// after switching layout tabs to desired and zoom extents ///////////////////////////////////////////////////////////////
'*************************************** find viewport and activate **************************************
Dim ed As Editor = ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
Dim db As Database = HostApplicationServices.WorkingDatabase
Try
Dim layoutManager__1 As LayoutManager = LayoutManager.Current
layoutManager__1.CurrentLayout = "Floor Plan 100"
Dim vpXdim As String = ("18") 'viewport desired's CenterPoint X value
Dim layout As Layout = TryCast(myTrans.GetObject(layoutManager__1.GetLayoutId _
("Floor Plan 100"), OpenMode.ForRead), Layout)
Dim objectIdCollection As ObjectIdCollection = layout.GetViewports()
For Each VportObjId As ObjectId In objectIdCollection
Dim Vport As Viewport = DirectCast(myTrans.GetObject(VportObjId, OpenMode.ForWrite), Viewport)
' Dim AcDbVport As AcDbViewport = DirectCast(myTrans.GetObject(Vport, OpenMode.ForWrite), AcDbViewport)
Dim X As String = Vport.CenterPoint.X.ToString
If vpXdim = X Then 'center point X value = given X value > this is desired viewport
//////////////////////////////////////////////// heres the gem!! //////////////////////////////////////////////////////////
acedSetCurrentVPort(Vport.UnmanagedObject) 'set Vport as current viewport
myDWG.Editor.SwitchToModelSpace() 'switch to modelspace
Exit For
End If
Next
Catch ex As System.Exception
ed.WriteMessage(vbLf & ex.Message)
ed.WriteMessage(vbLf & ex.StackTrace)
End Try
thanks again Tony, learned a bunch, now how the #$%#$% do you get this to format in a post?
