如何将直线圆弧连接起来

kaifuzi

如何将直线圆弧连接起来形成多段线，类似于Join命令。[em0]

其实我是想创建一个带倒圆角的矩形。我现在是单独创了4个圆弧和4根直线，之后想把这4个圆弧和4根直线合并。

或者有没有更简单的办法来创建带倒圆角的矩形？

雪山飞狐_lzh

参考我的曲线转换类的ge3dex部分 有个topolyline 是把ge复合曲线转成pl的 和你的要求差不多

kaifuzi

雪山飞狐_lzh 发表于 2016-10-11 19:35
参考我的曲线转换类的ge3dex部分 有个topolyline 是把ge复合曲线转成pl的 和你的要求差不多

其实我是想创建一个带倒圆角的矩形。我现在是单独创了4个圆弧和4根直线，之后想把这4个圆弧和4根直线合并。
或者有没有更简单的办法来创建带倒圆角的矩形？

kaifuzi

1. Friend Function CreateArcRectanglePolyline(ByVal acTrans As Transaction, ByVal acBlkTblRec As BlockTableRecord, ByVal sLayerName As String, ByVal rad As Double, _
   
2.                                                ByVal ptLowLeft As Point2d, ByVal ptLowRight As Point2d, ByVal ptTopRight As Point2d, ByVal ptTopLeft As Point2d) As Polyline
   
3.         Dim acArc1 As Arc = New Arc(New Point3d(ptLowLeft.X + rad, ptLowLeft.Y + rad, 0), rad, Math.PI, 1.5 * Math.PI)  '左下角倒圆角
   
4.         Dim acLine1 As Line = New Line(New Point3d(ptLowLeft.X + rad, ptLowLeft.Y, 0), New Point3d(ptLowRight.X - rad, ptLowRight.Y, 0))
   
5.         Dim acArc2 As Arc = New Arc(New Point3d(ptLowRight.X - rad, ptLowRight.Y + rad, 0), rad, 1.5 * Math.PI, 2 * Math.PI)  '右下角倒圆角
   
6.         Dim acLine2 As Line = New Line(New Point3d(ptLowRight.X, ptLowRight.Y + rad, 0), New Point3d(ptTopRight.X, ptTopRight.Y - rad, 0))
   
7.         Dim acArc3 As Arc = New Arc(New Point3d(ptTopRight.X - rad, ptTopRight.Y - rad, 0), rad, 0, 0.5 * Math.PI)  '右上角倒圆角
   
8.         Dim acLine3 As Line = New Line(New Point3d(ptTopRight.X - rad, ptTopRight.Y, 0), New Point3d(ptTopLeft.X + rad, ptTopLeft.Y, 0))
   
9.         Dim acArc4 As Arc = New Arc(New Point3d(ptTopLeft.X + rad, ptTopLeft.Y - rad, 0), rad, 0.5 * Math.PI, Math.PI)  '左上角倒圆角
   
10.         Dim acLine4 As Line = New Line(New Point3d(ptTopLeft.X, ptTopRight.Y - rad, 0), New Point3d(ptLowLeft.X, ptLowLeft.Y + rad, 0))
    
11. 
    
12.         Dim acPoly As Polyline = New Polyline()
    
13. 
    
14.         '将新对象添加到块表记录和事务
    
15.         acBlkTblRec.AppendEntity(acArc1)
    
16.         acTrans.AddNewlyCreatedDBObject(acArc1, True)
    
17.         acBlkTblRec.AppendEntity(acLine1)
    
18.         acTrans.AddNewlyCreatedDBObject(acLine1, True)
    
19.         acBlkTblRec.AppendEntity(acArc2)
    
20.         acTrans.AddNewlyCreatedDBObject(acArc2, True)
    
21.         acBlkTblRec.AppendEntity(acLine2)
    
22.         acTrans.AddNewlyCreatedDBObject(acLine2, True)
    
23.         acBlkTblRec.AppendEntity(acArc3)
    
24.         acTrans.AddNewlyCreatedDBObject(acArc3, True)
    
25.         acBlkTblRec.AppendEntity(acLine3)
    
26.         acTrans.AddNewlyCreatedDBObject(acLine3, True)
    
27.         acBlkTblRec.AppendEntity(acArc4)
    
28.         acTrans.AddNewlyCreatedDBObject(acArc4, True)
    
29.         acBlkTblRec.AppendEntity(acLine4)
    
30.         acTrans.AddNewlyCreatedDBObject(acLine4, True)
    
31.       
    
32. 
    
33.         Return acPoly
    
34.     End Function

Friend Function CreateArcRectanglePolyline(ByVal acTrans As Transaction, ByVal acBlkTblRec As BlockTableRecord, ByVal sLayerName As String, ByVal rad As Double, _<br />                                                ByVal ptLowLeft As Point2d, ByVal ptLowRight As Point2d, ByVal ptTopRight As Point2d, ByVal ptTopLeft As Point2d) As Polyline<br />         Dim acArc1 As Arc = New Arc(New Point3d(ptLowLeft.X + rad, ptLowLeft.Y + rad, 0), rad, Math.PI, 1.5 * Math.PI)  '左下角倒圆角<br />         Dim acLine1 As Line = New Line(New Point3d(ptLowLeft.X + rad, ptLowLeft.Y, 0), New Point3d(ptLowRight.X - rad, ptLowRight.Y, 0))<br />         Dim acArc2 As Arc = New Arc(New Point3d(ptLowRight.X - rad, ptLowRight.Y + rad, 0), rad, 1.5 * Math.PI, 2 * Math.PI)  '右下角倒圆角<br />         Dim acLine2 As Line = New Line(New Point3d(ptLowRight.X, ptLowRight.Y + rad, 0), New Point3d(ptTopRight.X, ptTopRight.Y - rad, 0))<br />         Dim acArc3 As Arc = New Arc(New Point3d(ptTopRight.X - rad, ptTopRight.Y - rad, 0), rad, 0, 0.5 * Math.PI)  '右上角倒圆角<br />         Dim acLine3 As Line = New Line(New Point3d(ptTopRight.X - rad, ptTopRight.Y, 0), New Point3d(ptTopLeft.X + rad, ptTopLeft.Y, 0))<br />         Dim acArc4 As Arc = New Arc(New Point3d(ptTopLeft.X + rad, ptTopLeft.Y - rad, 0), rad, 0.5 * Math.PI, Math.PI)  '左上角倒圆角<br />         Dim acLine4 As Line = New Line(New Point3d(ptTopLeft.X, ptTopRight.Y - rad, 0), New Point3d(ptLowLeft.X, ptLowLeft.Y + rad, 0))<br /> <br />         Dim acPoly As Polyline = New Polyline()<br /> <br />         '将新对象添加到块表记录和事务<br />         acBlkTblRec.AppendEntity(acArc1)<br />         acTrans.AddNewlyCreatedDBObject(acArc1, True)<br />         acBlkTblRec.AppendEntity(acLine1)<br />         acTrans.AddNewlyCreatedDBObject(acLine1, True)<br />         acBlkTblRec.AppendEntity(acArc2)<br />         acTrans.AddNewlyCreatedDBObject(acArc2, True)<br />         acBlkTblRec.AppendEntity(acLine2)<br />         acTrans.AddNewlyCreatedDBObject(acLine2, True)<br />         acBlkTblRec.AppendEntity(acArc3)<br />         acTrans.AddNewlyCreatedDBObject(acArc3, True)<br />         acBlkTblRec.AppendEntity(acLine3)<br />         acTrans.AddNewlyCreatedDBObject(acLine3, True)<br />         acBlkTblRec.AppendEntity(acArc4)<br />         acTrans.AddNewlyCreatedDBObject(acArc4, True)<br />         acBlkTblRec.AppendEntity(acLine4)<br />         acTrans.AddNewlyCreatedDBObject(acLine4, True)<br />       <br /> <br />         Return acPoly<br />     End Function

kaifuzi

雪山飞狐_lzh 发表于 2016-10-11 19:35
参考我的曲线转换类的ge3dex部分 有个topolyline 是把ge复合曲线转成pl的 和你的要求差不多

请问哪里可以找到ge3dex这个类，我在贴子中没搜到哦。

雪山飞狐_lzh

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=77565&mobile=2

kaifuzi

1.     Friend Function CreateArcRectanglePolyline(ByVal acTrans As Transaction, ByVal acBlkTblRec As BlockTableRecord, ByVal sLayerName As String, ByVal rad As Double, _
   
2.                                                ByVal ptLowLeft As Point2d, ByVal ptLowRight As Point2d, ByVal ptTopRight As Point2d, ByVal ptTopLeft As Point2d) As Polyline
   
3.         '每部分单独来创建倒圆角矩形
   
4.         'Dim acArc1 As Arc = New Arc(New Point3d(ptLowLeft.X + rad, ptLowLeft.Y + rad, 0), rad, Math.PI, 1.5 * Math.PI)  '左下角倒圆角
   
5.         'Dim acLine1 As Line = New Line(New Point3d(ptLowLeft.X + rad, ptLowLeft.Y, 0), New Point3d(ptLowRight.X - rad, ptLowRight.Y, 0))
   
6.         'Dim acArc2 As Arc = New Arc(New Point3d(ptLowRight.X - rad, ptLowRight.Y + rad, 0), rad, 1.5 * Math.PI, 2 * Math.PI)  '右下角倒圆角
   
7.         'Dim acLine2 As Line = New Line(New Point3d(ptLowRight.X, ptLowRight.Y + rad, 0), New Point3d(ptTopRight.X, ptTopRight.Y - rad, 0))
   
8.         'Dim acArc3 As Arc = New Arc(New Point3d(ptTopRight.X - rad, ptTopRight.Y - rad, 0), rad, 0, 0.5 * Math.PI)  '右上角倒圆角
   
9.         'Dim acLine3 As Line = New Line(New Point3d(ptTopRight.X - rad, ptTopRight.Y, 0), New Point3d(ptTopLeft.X + rad, ptTopLeft.Y, 0))
   
10.         'Dim acArc4 As Arc = New Arc(New Point3d(ptTopLeft.X + rad, ptTopLeft.Y - rad, 0), rad, 0.5 * Math.PI, Math.PI)  '左上角倒圆角
    
11.         'Dim acLine4 As Line = New Line(New Point3d(ptTopLeft.X, ptTopRight.Y - rad, 0), New Point3d(ptLowLeft.X, ptLowLeft.Y + rad, 0))
    
12.         ''将新对象添加到块表记录和事务
    
13.         'acBlkTblRec.AppendEntity(acArc1)
    
14.         'acTrans.AddNewlyCreatedDBObject(acArc1, True)
    
15.         'acBlkTblRec.AppendEntity(acLine1)
    
16.         'acTrans.AddNewlyCreatedDBObject(acLine1, True)
    
17.         'acBlkTblRec.AppendEntity(acArc2)
    
18.         'acTrans.AddNewlyCreatedDBObject(acArc2, True)
    
19.         'acBlkTblRec.AppendEntity(acLine2)
    
20.         'acTrans.AddNewlyCreatedDBObject(acLine2, True)
    
21.         'acBlkTblRec.AppendEntity(acArc3)
    
22.         'acTrans.AddNewlyCreatedDBObject(acArc3, True)
    
23.         'acBlkTblRec.AppendEntity(acLine3)
    
24.         'acTrans.AddNewlyCreatedDBObject(acLine3, True)
    
25.         'acBlkTblRec.AppendEntity(acArc4)
    
26.         'acTrans.AddNewlyCreatedDBObject(acArc4, True)
    
27.         'acBlkTblRec.AppendEntity(acLine4)
    
28.         'acTrans.AddNewlyCreatedDBObject(acLine4, True)
    
29. 
    
30.         Dim acPoly As Polyline = New Polyline()
    
31.         acPoly.Layer = sLayerName
    
32.         acPoly.AddVertexAt(0, New Point2d(ptLowLeft.X, ptLowLeft.Y + rad), Math.Tan(0.5 * Math.PI / 4), 0, 0)  '左下角倒圆角起点
    
33.         acPoly.AddVertexAt(1, New Point2d(ptLowLeft.X + rad, ptLowLeft.Y), 0, 0, 0)  '左下角倒圆角终点
    
34.         acPoly.AddVertexAt(2, New Point2d(ptLowRight.X - rad, ptLowRight.Y), Math.Tan(0.5 * Math.PI / 4), 0, 0)  '右下角倒圆角起点
    
35.         acPoly.AddVertexAt(3, New Point2d(ptLowRight.X, ptLowRight.Y + rad), 0, 0, 0)  '右下角倒圆角终点
    
36.         acPoly.AddVertexAt(4, New Point2d(ptTopRight.X, ptTopRight.Y - rad), Math.Tan(0.5 * Math.PI / 4), 0, 0)  '右上角倒圆角起点
    
37.         acPoly.AddVertexAt(5, New Point2d(ptTopRight.X - rad, ptTopRight.Y), 0, 0, 0)  '右上角倒圆角终点
    
38.         acPoly.AddVertexAt(6, New Point2d(ptTopLeft.X + rad, ptTopLeft.Y), Math.Tan(0.5 * Math.PI / 4), 0, 0)  '左上角倒圆角起点
    
39.         acPoly.AddVertexAt(7, New Point2d(ptTopLeft.X, ptTopLeft.Y - rad), 0, 0, 0)  '左上角倒圆角终点
    
40.         acPoly.Closed = True  '闭合多段线
    
41. 
    
42.         '将新对象添加到块表记录和事务
    
43.         acBlkTblRec.AppendEntity(acPoly)
    
44.         acTrans.AddNewlyCreatedDBObject(acPoly, True)
    
45. 
    
46.         Return acPoly
    
47.     End Function

    Friend Function CreateArcRectanglePolyline(ByVal acTrans As Transaction, ByVal acBlkTblRec As BlockTableRecord, ByVal sLayerName As String, ByVal rad As Double, _<br />                                                ByVal ptLowLeft As Point2d, ByVal ptLowRight As Point2d, ByVal ptTopRight As Point2d, ByVal ptTopLeft As Point2d) As Polyline<br />         '每部分单独来创建倒圆角矩形<br />         'Dim acArc1 As Arc = New Arc(New Point3d(ptLowLeft.X + rad, ptLowLeft.Y + rad, 0), rad, Math.PI, 1.5 * Math.PI)  '左下角倒圆角<br />         'Dim acLine1 As Line = New Line(New Point3d(ptLowLeft.X + rad, ptLowLeft.Y, 0), New Point3d(ptLowRight.X - rad, ptLowRight.Y, 0))<br />         'Dim acArc2 As Arc = New Arc(New Point3d(ptLowRight.X - rad, ptLowRight.Y + rad, 0), rad, 1.5 * Math.PI, 2 * Math.PI)  '右下角倒圆角<br />         'Dim acLine2 As Line = New Line(New Point3d(ptLowRight.X, ptLowRight.Y + rad, 0), New Point3d(ptTopRight.X, ptTopRight.Y - rad, 0))<br />         'Dim acArc3 As Arc = New Arc(New Point3d(ptTopRight.X - rad, ptTopRight.Y - rad, 0), rad, 0, 0.5 * Math.PI)  '右上角倒圆角<br />         'Dim acLine3 As Line = New Line(New Point3d(ptTopRight.X - rad, ptTopRight.Y, 0), New Point3d(ptTopLeft.X + rad, ptTopLeft.Y, 0))<br />         'Dim acArc4 As Arc = New Arc(New Point3d(ptTopLeft.X + rad, ptTopLeft.Y - rad, 0), rad, 0.5 * Math.PI, Math.PI)  '左上角倒圆角<br />         'Dim acLine4 As Line = New Line(New Point3d(ptTopLeft.X, ptTopRight.Y - rad, 0), New Point3d(ptLowLeft.X, ptLowLeft.Y + rad, 0))<br />         ''将新对象添加到块表记录和事务<br />         'acBlkTblRec.AppendEntity(acArc1)<br />         'acTrans.AddNewlyCreatedDBObject(acArc1, True)<br />         'acBlkTblRec.AppendEntity(acLine1)<br />         'acTrans.AddNewlyCreatedDBObject(acLine1, True)<br />         'acBlkTblRec.AppendEntity(acArc2)<br />         'acTrans.AddNewlyCreatedDBObject(acArc2, True)<br />         'acBlkTblRec.AppendEntity(acLine2)<br />         'acTrans.AddNewlyCreatedDBObject(acLine2, True)<br />         'acBlkTblRec.AppendEntity(acArc3)<br />         'acTrans.AddNewlyCreatedDBObject(acArc3, True)<br />         'acBlkTblRec.AppendEntity(acLine3)<br />         'acTrans.AddNewlyCreatedDBObject(acLine3, True)<br />         'acBlkTblRec.AppendEntity(acArc4)<br />         'acTrans.AddNewlyCreatedDBObject(acArc4, True)<br />         'acBlkTblRec.AppendEntity(acLine4)<br />         'acTrans.AddNewlyCreatedDBObject(acLine4, True)<br /> <br />         Dim acPoly As Polyline = New Polyline()<br />         acPoly.Layer = sLayerName<br />         acPoly.AddVertexAt(0, New Point2d(ptLowLeft.X, ptLowLeft.Y + rad), Math.Tan(0.5 * Math.PI / 4), 0, 0)  '左下角倒圆角起点<br />         acPoly.AddVertexAt(1, New Point2d(ptLowLeft.X + rad, ptLowLeft.Y), 0, 0, 0)  '左下角倒圆角终点<br />         acPoly.AddVertexAt(2, New Point2d(ptLowRight.X - rad, ptLowRight.Y), Math.Tan(0.5 * Math.PI / 4), 0, 0)  '右下角倒圆角起点<br />         acPoly.AddVertexAt(3, New Point2d(ptLowRight.X, ptLowRight.Y + rad), 0, 0, 0)  '右下角倒圆角终点<br />         acPoly.AddVertexAt(4, New Point2d(ptTopRight.X, ptTopRight.Y - rad), Math.Tan(0.5 * Math.PI / 4), 0, 0)  '右上角倒圆角起点<br />         acPoly.AddVertexAt(5, New Point2d(ptTopRight.X - rad, ptTopRight.Y), 0, 0, 0)  '右上角倒圆角终点<br />         acPoly.AddVertexAt(6, New Point2d(ptTopLeft.X + rad, ptTopLeft.Y), Math.Tan(0.5 * Math.PI / 4), 0, 0)  '左上角倒圆角起点<br />         acPoly.AddVertexAt(7, New Point2d(ptTopLeft.X, ptTopLeft.Y - rad), 0, 0, 0)  '左上角倒圆角终点<br />         acPoly.Closed = True  '闭合多段线<br /> <br />         '将新对象添加到块表记录和事务<br />         acBlkTblRec.AppendEntity(acPoly)<br />         acTrans.AddNewlyCreatedDBObject(acPoly, True)<br /> <br />         Return acPoly<br />     End Function

kaifuzi

http://379910987.blog.163.com/blog/static/33523797201011184552167/

630051689

我的土办法，还挺管用的

<CommandMethod("S2")> Public Sub 转为多段线()

        Dim dm As DocumentCollection = Application.DocumentManager
        Dim ed As Editor = dm.MdiActiveDocument.Editor
        '获取当前数据库作为目标数据库
        Dim Db As Database = dm.MdiActiveDocument.Database
        Dim 起始图形 As Entity
        Dim pl As Polyline
        '拾取对象----------------------------------------------------------
        Dim optEnt As New PromptEntityOptions(vbCrLf & "请选择对象")
        Dim resEnt As PromptEntityResult = ed.GetEntity(optEnt)
        If resEnt.Status = PromptStatus.OK Then

            Using trans As Transaction = Db.TransactionManager.StartTransaction()
                起始图形 = trans.GetObject(resEnt.ObjectId, OpenMode.ForWrite)

                pl = Polyline_Select.转换为多段线(起始图形, False)
                起始图形.Erase()
                Db.AddToCurrentSpace(pl)

                Dim resSel As PromptSelectionResult = ed.SelectAll
                ' 得到选择集对象.
                Dim sSet As SelectionSet = resSel.Value
                ' 得到选择集中所有对象的ObjectId集合.
                Dim ids As ObjectId() = sSet.GetObjectIds()

                Dim rb As ResultBuffer = New ResultBuffer
                rb.Add(New TypedValue(ResBufCode.String, "_PEDIT"))
                rb.Add(New TypedValue(ResBufCode.ObjectId, pl.ObjectId))
                rb.Add(New TypedValue(ResBufCode.String, "_J"))
                rb.Add(New TypedValue(ResBufCode.PickSet, sSet))
                ed.AcedCmd(rb)
                dm.MdiActiveDocument.SendCommand("  ")

                trans.Commit()
            End Using

        End If
    End Sub


Public Shared Function 转换为多段线(ent As Entity, ByRef isOK As Boolean) As Polyline
        Dim pl As Polyline = New Polyline
        Dim l As Line
        Dim ac As Arc
        Dim pol As Polyline = New Polyline
        isOK = False
        Try

            If TypeOf ent Is Line Then
                l = ent
                pl.AddVertexAt(0, New Point2d(l.StartPoint.X, l.StartPoint.Y), 0, 0, 0)
                pl.AddVertexAt(1, New Point2d(l.EndPoint.X, l.EndPoint.Y), 0, 0, 0)
                isOK = True
            ElseIf TypeOf ent Is Arc Then
                ac = ent
                Dim 角度差 As Double = ac.EndAngle - ac.StartAngle
                If 角度差 < 0.0 Then 角度差 += Math.PI * 2
                Dim tD As Double = Math.Tan(角度差 / 4)
                pl.AddVertexAt(0, New Point2d(ac.StartPoint.X, ac.StartPoint.Y), tD, 0, 0)
                pl.AddVertexAt(1, New Point2d(ac.EndPoint.X, ac.EndPoint.Y), tD, 0, 0)
                isOK = True
            ElseIf TypeOf ent Is Polyline Then
                pol = ent
                pl = pol.Clone
                isOK = True
            End If

        Catch
            MsgBox("转换失败")

        End Try

        Return pl

    End Function