Hi Programmers, we meet again 😛
I have a little problem with my code. a little one but one of those which keep you up at night. :S
anyways. the code is as follows and the problem is I cant seem to be able to set the views of the bottom viewport (i-e bottomvp). Any Ideas will be greatly welcome by the awesome community members 🙂
'' Now make two tiled viewports using the example present in create four viewports
'' Switch to the previous Paper space layout
Application.SetSystemVariable("TILEMODE", 0)
LayoutManager.Current.CurrentLayout = name
'acDoc.Editor.SwitchToPaperSpace()
Dim topvp As Viewport = New Viewport
topvp.SetDatabaseDefaults()
topvp.CenterPoint = TopVPCentrepoint
topvp.Height = TopVPHeight
topvp.Width = TopVPwidth
btr.AppendEntity(topvp)
tr.AddNewlyCreatedDBObject(topvp, True)
topvp.On = True
'acedSetCurrentVPort(topvp.UnmanagedObject)
topvp.SetUcs(curUCStr.Id)
Select Case getwhichorientationresult.StringResult
Case "TopToBottom"
topvp.ViewCenter = New Point2d(750, 0)
Case "BottomToTop"
topvp.ViewCenter = New Point2d(750, 0)
Case "RightToLeft"
topvp.ViewCenter = New Point2d(750, 0)
Case "LeftToRight"
topvp.ViewCenter = New Point2d(750, 0)
End Select
Select Case getwhichorientationresult.StringResult
Case "TopToBottom"
topvp.ViewTarget = selLine.StartPoint
Case "BottomToTop"
topvp.ViewTarget = selLine.EndPoint
Case "RightToLeft"
topvp.ViewTarget = selLine.EndPoint
Case "LeftToRight"
topvp.ViewTarget = selLine.StartPoint
End Select
topvp.ViewHeight = 492.5
topvp.TwistAngle = rotangle
topvp.ViewDirection = New Vector3d(0, 0, 1)
'topvp.UcsFollowModeOn = True
'topvp.UcsIconAtOrigin = True
'topvp.ViewTarget = New Point3d(widelnseg.MidPoint.X, highlnseg.MidPoint.Y, 0)
''topvp.ViewCenter = New Point2d(widelnseg.MidPoint.X, highlnseg.MidPoint.Y)
'topvp.ViewHeight = 500
'topvp.ViewDirection = New Vector3d(0, 0, 1)
topvp.Locked = True
Dim bottomvp As Viewport = New Viewport
bottomvp.SetDatabaseDefaults()
bottomvp.CenterPoint = bottomVPCentrepoint
bottomvp.Height = bottomVPheight
bottomvp.Width = bottomVPwidth
btr.AppendEntity(bottomvp)
tr.AddNewlyCreatedDBObject(bottomvp, True)
bottomvp.On = True
'acedSetCurrentVPort(bottomvp.UnmanagedObject)
bottomvp.ViewTarget = selPline.GetPoint3dAt(2)
bottomvp.ViewCenter = New Point2d(selPline.GetPoint2dAt(2).X + 790, selPline.GetPoint2dAt(2).Y + 225)
bottomvp.ViewHeight = 491.5
bottomvp.ViewDirection = (New Vector3d(0, 0, 1))
'btr.Dispose()
'lay.Dispose()
'Dim newdoc As Document = acDocMgr.Add(HAlegalProfTemp)
'' Increment Progress Meter...
pm.MeterProgress()
