用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 个回复
龙8软件的糕糕
赞同来自:
您好，请问您目前正在移植的是哪个版本？有无测试图纸可以提供？如果方便请联系我~我来协助您排查问题。练习方式已经私信您
又双叒
赞同来自:
用的龙82020 及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