用VB畫樣條曲線為什么不運(yùn)行呢
Dim splineObj As GcadSpline
Dim startTan As Variant
Dim endTan As Variant
Dim fitPoints As Variant
Dim utilObj As Object
Set utilObj =GcadDoc.Utility
utilObj.CreateTypedArray startTan, vbDouble, 0.5, 0.5, 0
utilObj.CreateTypedArray endTan, vbDouble, 0.5, 0.5, 0
utilObj.CreateTypedArray fitPoints, vbDouble, 0, 0, 0, 5, 5#, 10, 0, 0
Set splineObj = GcadDoc.ModelSpace.AddSpline(fitPoints, startTan, endTan)
哪里有錯(cuò)呢？
Dim startTan As Variant
Dim endTan As Variant
Dim fitPoints As Variant
Dim utilObj As Object
Set utilObj =GcadDoc.Utility
utilObj.CreateTypedArray startTan, vbDouble, 0.5, 0.5, 0
utilObj.CreateTypedArray endTan, vbDouble, 0.5, 0.5, 0
utilObj.CreateTypedArray fitPoints, vbDouble, 0, 0, 0, 5, 5#, 10, 0, 0
Set splineObj = GcadDoc.ModelSpace.AddSpline(fitPoints, startTan, endTan)
哪里有錯(cuò)呢？
沒有找到相關(guān)結(jié)果
已邀請:
2 個(gè)回復(fù)
浩辰軟件的糕糕
贊同來自:
您好，請問您目前正在移植的是哪個(gè)版本？有無測試圖紙可以提供？如果方便請聯(lián)系我~我來協(xié)助您排查問題。練習(xí)方式已經(jīng)私信您
又雙叒
贊同來自:
用的浩辰2020 及vb6.0編程
這是前面的獲得CAD控制權(quán)。
直線、圓和標(biāo)注等都可以。就是樣條曲線不行。運(yùn)行出來只有一個(gè)一毫米直線。
On Error Resume Next
Set GcadApp = GetObject(, "gcad.application")
If Err Then
MsgBox "未發(fā)現(xiàn)CAD"
Err.Clear
Exit Sub
End If
Set GcadDoc = GcadApp.ActiveDocument
GcadApp.Visible = True