用VB畫樣條曲線為什么不運行呢
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)
哪里有錯呢？
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)
哪里有錯呢？
沒有找到相關結果
已邀請:
2 個回復
浩辰軟件的糕糕
贊同來自:
您好，請問您目前正在移植的是哪個版本？有無測試圖紙可以提供？如果方便請聯系我~我來協助您排查問題。練習方式已經私信您
又雙叒
贊同來自:
用的浩辰2020 及vb6.0編程
這是前面的獲得CAD控制權。
直線、圓和標注等都可以。就是樣條曲線不行。運行出來只有一個一毫米直線。
On Error Resume Next
Set GcadApp = GetObject(, "gcad.application")
If Err Then
MsgBox "未發現CAD"
Err.Clear
Exit Sub
End If
Set GcadDoc = GcadApp.ActiveDocument
GcadApp.Visible = True