求助.net的二维多段线的偏移

363001640

求助使用vb.net语言的二维多段线的偏移，向外偏移。求助示例或者用法。

cairunbin

用这个方法即可：
Public virtual Function GetOffsetCurves(
    offsetDist As double
) As DBObjectCollection

363001640

图A是用二维多段线画的，偏移成图B。vb.net。求助。

tiancao100

没代码啊，你想求助什么都不知道？ 还是你所以都不知道，想求助全部代码？

363001640

2. <CommandMethod("OffsetObject")>
   
3.     Public Sub OffsetObject()
   
4.         '' 获取当前文档和数据库
   
5.         Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
   
6.         Dim acCurDb As Database = acDoc.Database
   
7.         '' 启动事务
   
8.         Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
   
9.             '' 以读模式打开 Block 表
   
10.             Dim acBlkTbl As BlockTable
    
11.             acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)
    
12.             '' 以写模式打开块表记录模型空间
    
13.             Dim acBlkTblRec As BlockTableRecord
    
14.             acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
    
15.             '' 创建多段线
    
16.             Dim acPoly As Polyline = New Polyline()
    
17.             acPoly.AddVertexAt(0, New Point2d(1, 1), 0, 0, 0)
    
18.             acPoly.AddVertexAt(1, New Point2d(1, 2), 0, 0, 0)
    
19.             acPoly.AddVertexAt(2, New Point2d(2, 2), 0, 0, 0)
    
20.             acPoly.AddVertexAt(3, New Point2d(3, 2), 0, 0, 0)
    
21.             acPoly.AddVertexAt(4, New Point2d(4, 4), 0, 0, 0)
    
22.             acPoly.AddVertexAt(5, New Point2d(4, 1), 0, 0, 0)
    
23.             '' 添加新对象到块表记录和事务
    
24.             acBlkTblRec.AppendEntity(acPoly)
    
25.             acTrans.AddNewlyCreatedDBObject(acPoly, True)
    
26.             '' 偏移多段线给定距离
    
27.             Dim acDbObjColl As DBObjectCollection = acPoly.GetOffsetCurves(0.25)
    
28.             '' 遍历得到的新对象
    
29.             For Each acEnt As Entity In acDbObjColl
    
30.                 '' 添加每个对象
    
31.                 acBlkTblRec.AppendEntity(acEnt)
    
32.                 acTrans.AddNewlyCreatedDBObject(acEnt, True)
    
33.             Next
    
34.             '' 保存新对象到数据库
    
35.             acTrans.Commit()
    
36.         End Using
    
37.     End Sub

<CommandMethod("OffsetObject")><br />     Public Sub OffsetObject()<br />         '' 获取当前文档和数据库<br />         Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument<br />         Dim acCurDb As Database = acDoc.Database<br />         '' 启动事务<br />         Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()<br />             '' 以读模式打开 Block 表<br />             Dim acBlkTbl As BlockTable<br />             acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)<br />             '' 以写模式打开块表记录模型空间<br />             Dim acBlkTblRec As BlockTableRecord<br />             acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)<br />             '' 创建多段线<br />             Dim acPoly As Polyline = New Polyline()<br />             acPoly.AddVertexAt(0, New Point2d(1, 1), 0, 0, 0)<br />             acPoly.AddVertexAt(1, New Point2d(1, 2), 0, 0, 0)<br />             acPoly.AddVertexAt(2, New Point2d(2, 2), 0, 0, 0)<br />             acPoly.AddVertexAt(3, New Point2d(3, 2), 0, 0, 0)<br />             acPoly.AddVertexAt(4, New Point2d(4, 4), 0, 0, 0)<br />             acPoly.AddVertexAt(5, New Point2d(4, 1), 0, 0, 0)<br />             '' 添加新对象到块表记录和事务<br />             acBlkTblRec.AppendEntity(acPoly)<br />             acTrans.AddNewlyCreatedDBObject(acPoly, True)<br />             '' 偏移多段线给定距离<br />             Dim acDbObjColl As DBObjectCollection = acPoly.GetOffsetCurves(0.25)<br />             '' 遍历得到的新对象<br />             For Each acEnt As Entity In acDbObjColl<br />                 '' 添加每个对象<br />                 acBlkTblRec.AppendEntity(acEnt)<br />                 acTrans.AddNewlyCreatedDBObject(acEnt, True)<br />             Next<br />             '' 保存新对象到数据库<br />             acTrans.Commit()<br />         End Using<br />     End Sub

已经在书中找到源码。完成了