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
uj5u.com熱心網友回復：
首先，你這個問題不是說VB里面怎么連接弧線和直線，而是如何用CAD中的VBA操作CAD畫線。其次，你已經在代碼里面呼叫畫了兩條線了，已經能夠使用起止坐標畫出線條了，接下來你要的不就是線條的其中一個端點是弧線的端點么？
拿到東西先看看，先理解一下代碼，跑一下看看效果，思考一下為啥會畫出那兩條線，為啥是那樣畫出來的。
大凡思考一下都不會發出這帖
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/11966.html
標籤：VBA