VB中，怎么把弧的两端和两条直线的两端连接起来？

[jadjedhj]

Private Sub Command1_Click()
Dim PN1(0 To 2) As Double
Dim PN2(0 To 2) As Double
Dim PN3(0 To 2) As Double
Dim PN4(0 To 2) As Double
Dim li1 As AcadLine
Dim ArcObj As AcadArc
Dim startPoint(0 To 2) As Double
PN1(0) = 10: PN1(1) = 10: PN1(2) = 0 '起点座标
PN2(0) = 30: PN2(1) = 10: PN2(2) = 0 '终点座标
PN3(0) = 10: PN3(1) = 15: PN3(2) = 0 '起点座标
PN4(0) = 30: PN4(1) = 15: PN4(2) = 0
'绘制直线
Set li1 = acadapp.ActiveDocument.ModelSpace.AddLine(PN1, PN2)
Set li2 = acadapp.ActiveDocument.ModelSpace.AddLine(PN3, PN4)
Set ArcObj = acadapp.ActiveDocument.ModelSpace.AddArc(startPoint, 20, 15, 30)
ZoomAll
End Sub

[脆皮大雪糕]

首先，你这个问题不是说VB里面怎么连接弧线和直线，而是如何用CAD中的VBA操作CAD画线。 其次，你已经在代码里面调用画了两条线了，已经能够使用起止坐标画出线条了，接下来你要的不就是线条的其中一个端点是弧线的端点么？ 拿到东西先看看，先理解一下代码，跑一下看看效果，思考一下为啥会画出那两条线，为啥是那样画出来的。 大凡思考一下都不会发出这帖