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

glowz

如题。

3.   Dim acBlkTbl As BlockTable
4.                         acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, _
5.                                                      OpenMode.ForRead)
6.                         Dim acLayoutMgr As LayoutManager
7.                         acLayoutMgr = LayoutManager.Current
8.                         Dim acLayout As Layout '= acLayoutMgr.CreateLayout("0")
9.                         acLayout = acTrans.GetObject(acLayoutMgr.CreateLayout("0"), OpenMode.ForRead)
11.    Dim acBlkTblRec As BlockTableRecord
12.                         'acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.PaperSpace), OpenMode.ForWrite)
13.                         acBlkTblRec = acTrans.GetObject(acLayout.BlockTableRecordId, OpenMode.ForWrite)
15.                         '' Create a Viewport
16.                         Dim acVport As Viewport = New Viewport()
17.                         acVport.SetDatabaseDefaults()
18.                         acVport.CenterPoint = New Point3d(220, 148.5, 0)
19.                         acVport.Width = 420
20.                         acVport.Height = 297
21.                         acBlkTblRec.AppendEntity(acVport)
22.                         acTrans.AddNewlyCreatedDBObject(acVport, True)
24.                         Dim Mtxt_h As New MText
25.                         Mtxt_h.C
26.                         Mtxt_h.TextHeight = 2
27.                         Mtxt_h.Width = 5
28.                         Mtxt_h.Location = New Point3d(0, 0, 0)
29.                         Mtxt_h.Attachment = AttachmentPoint.MiddleLeft
30.                         acBlkTblRec.AppendEntity(Mtxt_h)
31.                         acTrans.AddNewlyCreatedDBObject(Mtxt_h, True)

  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

see

ViewportTableRecord Class

glowz

acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.PaperSpace), OpenMode.ForWrite)

用这个可以的 但是 不能选到我建的那个布局上 ，不知道 该怎么弄 才能在自己建 的布局上建视口

雪山飞狐_lzh

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

http://www.mjtd.com/helpcenter/netguide/

 

glowz

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

glowz

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

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

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

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

glowz

看看说明 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

LayoutManager.CurrentLayout Property

glowz

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

zhu1983

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