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

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里 的

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.

雪山飞狐_lzh 发表于 2010-11-27 14:20:00

LayoutManager.CurrentLayout Property

glowz 发表于 2010-11-27 18:05:00

谢谢 飞狐版主又解决我的一个难题呵呵

zhu1983 发表于 2012-5-7 23:00:00

请问版主不使用LayoutManager.CurrentLayout可以吗？使用LayoutManager.CurrentLayout的话程序运行起来效率比较低。既然可以添加Mtext为何添加不了视口？

查看完整版本: [求助]新建一个布局，在这个布局上新建一个视口，应该怎么做呢？