Community
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()