[求助]新建一个布局，在这个布局上新建一个视口，应该怎么做呢？

glowz · 发表于 2010-11-27 09:43:00

如题。


 
  Dim acBlkTbl As BlockTable
                        acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, _
                                                     OpenMode.ForRead)
                        Dim acLayoutMgr As LayoutManager
                        acLayoutMgr = LayoutManager.Current
                        Dim acLayout As Layout '= acLayoutMgr.CreateLayout("0")
                        acLayout = acTrans.GetObject(acLayoutMgr.CreateLayout("0"), OpenMode.ForRead)
 
   Dim acBlkTblRec As BlockTableRecord
                        'acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.PaperSpace), OpenMode.ForWrite)
                        acBlkTblRec = acTrans.GetObject(acLayout.BlockTableRecordId, OpenMode.ForWrite)                        '' Create a Viewport
                        Dim acVport As Viewport = New Viewport()
                        acVport.SetDatabaseDefaults()
                        acVport.CenterPoint = New Point3d(220, 148.5, 0)
                        acVport.Width = 420
                        acVport.Height = 297
                        acBlkTblRec.AppendEntity(acVport)
                        acTrans.AddNewlyCreatedDBObject(acVport, True)
 
                        Dim Mtxt_h As New MText
                        Mtxt_h.C
                        Mtxt_h.TextHeight = 2
                        Mtxt_h.Width = 5
                        Mtxt_h.Location = New Point3d(0, 0, 0)
                        Mtxt_h.Attachment = AttachmentPoint.MiddleLeft
                        acBlkTblRec.AppendEntity(Mtxt_h)
                        acTrans.AddNewlyCreatedDBObject(Mtxt_h, True)

奇怪的，视口建不了，但MText加进去了，也不报错？？

雪山飞狐_lzh · 发表于 2010-11-27 09:58:00

see
ViewportTableRecord Class

glowz · 发表于 2010-11-27 10:59:00

acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.PaperSpace), OpenMode.ForWrite)
用这个可以的但是不能选到我建的那个布局上，不知道该怎么弄才能在自己建的布局上建视口

雪山飞狐_lzh · 发表于 2010-11-27 11:21:00

在手册的【定义布局和打印】部分找找

glowz · 发表于 2010-11-27 12:36:00

我谢谢飞狐版主就是从那里找来这些代码的，没说切换到新建的布局上啊

glowz · 发表于 2010-11-27 13:19:00

我想到一个变通的办法用vba里的

copy


Dim layout As AcadLayout = ThisDrawing.Layouts.Item("0") ThisDrawing.ActiveLayout = layout

居然可以了
.net 还要vba来辅助我无语.....

glowz · 发表于 2010-11-27 13:21:00

看看说明 acLayoutMgr.CreateLayout("0")这个有点问题
This function creates a new Layout object given a unique layout name. The default viewports for the new layout are not created until the layout is first activated.