【源码】选取模型空间多段线框，生成布局视口

qq1254582201

1.   [CommandMethod("CPP")]
   
2.         public void MakeVport()
   
3.          {            Document dc = Application.DocumentManager.MdiActiveDocument;
   
4.             Database dtb = dc.Database;
   
5.             Transaction tr = dtb.TransactionManager.StartTransaction();
   
6.             var pl = Select("\n请选择多段线");
   
7.             var Scale = GetScale();
   
8.             Application.SetSystemVariable("TILEMODE", 0);
   
9.             dc.Editor.SwitchToPaperSpace();
   
10.             using (tr)
    
11.             {
    
12.                 BlockTable bta = tr.GetObject(dtb.BlockTableId, OpenMode.ForRead) as BlockTable;
    
13.                 BlockTableRecord btr = tr.GetObject(bta[BlockTableRecord.PaperSpace], OpenMode.ForWrite) as BlockTableRecord;
    
14.                 Polyline newpl = pl.Clone() as Polyline;
    
15.                 Point3d maxPoint = newpl.GeometricExtents.MaxPoint;
    
16.                 Point3d minPoint = newpl.GeometricExtents.MinPoint;
    
17.                 Point3d centerPoint = new Point3d((maxPoint.X + minPoint.X) / 2, (maxPoint.Y + minPoint.Y) / 2, 0);
    
18.                 newpl.Closed = true;
    
19.                 btr.AppendEntity(newpl);
    
20.                 tr.AddNewlyCreatedDBObject(newpl, true);   
    
21.                 Viewport vp = new Viewport();
    
22.                 btr.AppendEntity(vp);
    
23.                 tr.AddNewlyCreatedDBObject(vp, true);
    
24.                 vp.NonRectClipEntityId = newpl.Id;
    
25.                 vp.CenterPoint = centerPoint;  //视口插入位置
    
26.                 var pt = new Point2d(centerPoint.X, centerPoint.Y);
    
27.                 vp.ViewCenter = pt; //模型空间中心位置
    
28.                 vp.ViewHeight = maxPoint.Y - minPoint.Y; //模型空间高度
    
29.                 vp.Height = Scale * vp.ViewHeight;  //视口高度
    
30.                 vp.NonRectClipOn = true;
    
31.                 vp.Locked = true;
    
32.                 vp.On = true;
    
33.                 tr.Commit();
    
34.             }
    
35.         }
    
36. 
    
37. 
    
38.         /// <summary>
    
39.         /// 选择多段线
    
40.         /// </summary>
    
41.         /// <param name="word">提示选择文字</param>
    
42.         /// <returns>多段线实体</returns>
    
43. 
    
44.         public static Polyline Select(string word)
    
45.         {
    
46.             Document doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;
    
47.             Database db = doc.Database; Editor ed = doc.Editor;
    
48.             Polyline entity = null;
    
49.             PromptEntityResult ent = ed.GetEntity(word);
    
50.             if (ent.Status == PromptStatus.OK)
    
51.             {
    
52.                 using (Transaction transaction = db.TransactionManager.StartTransaction())
    
53.                 {
    
54.                     entity = (Polyline)transaction.GetObject(ent.ObjectId, OpenMode.ForWrite, true);
    
55.                     transaction.Commit();
    
56.                 }
    
57.             }
    
58.             return entity;
    
59.         }
    
60.         /// <summary>
    
61.         /// 获取设定视口的比例
    
62.         /// </summary>
    
63.         /// <returns></returns>
    
64.         public double GetScale()
    
65.         {
    
66.             Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
    
67.             PromptDoubleOptions  optDou = new PromptDoubleOptions ("\n请输入视口比例");
    
68.             optDou.AllowNegative=false;
    
69.             optDou.AllowZero=false;
    
70.             optDou.UseDefaultValue = true;
    
71.             optDou.DefaultValue = 1.00;
    
72.             PromptDoubleResult resDou = ed.GetDouble(optDou);
    
73.             if (resDou.Status == PromptStatus.OK)
    
74.             {
    
75.                 double Scale = resDou.Value;
    
76.                 return Scale;
    
77.             }
    
78.             else
    
79.                 return 1.00;
    
80.         }
    

  [CommandMethod("CPP")]<br />         public void MakeVport()<br />          {            Document dc = Application.DocumentManager.MdiActiveDocument;<br />             Database dtb = dc.Database;<br />             Transaction tr = dtb.TransactionManager.StartTransaction();<br />             var pl = Select("\n请选择多段线");<br />             var Scale = GetScale();<br />             Application.SetSystemVariable("TILEMODE", 0);<br />             dc.Editor.SwitchToPaperSpace();<br />             using (tr)<br />             {<br />                 BlockTable bta = tr.GetObject(dtb.BlockTableId, OpenMode.ForRead) as BlockTable;<br />                 BlockTableRecord btr = tr.GetObject(bta[BlockTableRecord.PaperSpace], OpenMode.ForWrite) as BlockTableRecord;<br />                 Polyline newpl = pl.Clone() as Polyline;<br />                 Point3d maxPoint = newpl.GeometricExtents.MaxPoint;<br />                 Point3d minPoint = newpl.GeometricExtents.MinPoint;<br />                 Point3d centerPoint = new Point3d((maxPoint.X + minPoint.X) / 2, (maxPoint.Y + minPoint.Y) / 2, 0);<br />                 newpl.Closed = true;<br />                 btr.AppendEntity(newpl);<br />                 tr.AddNewlyCreatedDBObject(newpl, true);   <br />                 Viewport vp = new Viewport();<br />                 btr.AppendEntity(vp);<br />                 tr.AddNewlyCreatedDBObject(vp, true);<br />                 vp.NonRectClipEntityId = newpl.Id;<br />                 vp.CenterPoint = centerPoint;  //视口插入位置<br />                 var pt = new Point2d(centerPoint.X, centerPoint.Y);<br />                 vp.ViewCenter = pt; //模型空间中心位置<br />                 vp.ViewHeight = maxPoint.Y - minPoint.Y; //模型空间高度<br />                 vp.Height = Scale * vp.ViewHeight;  //视口高度<br />                 vp.NonRectClipOn = true;<br />                 vp.Locked = true;<br />                 vp.On = true;<br />                 tr.Commit();<br />             }<br />         }<br /> <br /> <br />         /// <summary><br />         /// 选择多段线<br />         /// </summary><br />         /// <param name="word">提示选择文字</param><br />         /// <returns>多段线实体</returns><br /> <br />         public static Polyline Select(string word)<br />         {<br />             Document doc = Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.ApplicationServices.Application.DocumentManager.MdiActiveDocument;<br />             Database db = doc.Database; Editor ed = doc.Editor;<br />             Polyline entity = null;<br />             PromptEntityResult ent = ed.GetEntity(word);<br />             if (ent.Status == PromptStatus.OK)<br />             {<br />                 using (Transaction transaction = db.TransactionManager.StartTransaction())<br />                 {<br />                     entity = (Polyline)transaction.GetObject(ent.ObjectId, OpenMode.ForWrite, true);<br />                     transaction.Commit();<br />                 }<br />             }<br />             return entity;<br />         }<br />         /// <summary><br />         /// 获取设定视口的比例<br />         /// </summary><br />         /// <returns></returns><br />         public double GetScale()<br />         {<br />             Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;<br />             PromptDoubleOptions  optDou = new PromptDoubleOptions ("\n请输入视口比例");<br />             optDou.AllowNegative=false;<br />             optDou.AllowZero=false;<br />             optDou.UseDefaultValue = true;<br />             optDou.DefaultValue = 1.00;<br />             PromptDoubleResult resDou = ed.GetDouble(optDou);<br />             if (resDou.Status == PromptStatus.OK)<br />             {<br />                 double Scale = resDou.Value;<br />                 return Scale;<br />             }<br />             else<br />                 return 1.00;<br />         }<br />

演示图片：

utopio

`中微子 发表于 2023-2-18 16:11
这不是AUTOLISP代码，里面怎么还有大括号。我保存为LSP文件加载不了。

这里是NET板块

羊羊羊

`中微子 发表于 2023-2-18 16:11
这不是AUTOLISP代码，里面怎么还有大括号。我保存为LSP文件加载不了。

人家这是C#代码 不是 lsp 代码

羊羊羊

`中微子 发表于 2023-2-18 16:11
这不是AUTOLISP代码，里面怎么还有大括号。我保存为LSP文件加载不了。

这是c#代码

jun353835273

随便把图框图名图号给布置了就比较更方便了

/fendou结构绘图

楼主，怎么使用

magicheno

不知道该咋使用，这个复制后保存成什么格式呢，然后怎么加载呢，目前只会加载lsp的

czb203

感谢楼主分享 下载试试!

999999

支持支持，，目前对CAD的认知有限，对布局还不知道怎么利用，先收藏一下，谢谢楼主分享

czb203

感谢楼主分享下载试试!

999999

顶起，谢谢楼主分享

dmxcs

请教下怎么使用，感谢！！

mycad

感谢楼主分享下载试试!