Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("Ç°ÊÓ»ù×¼Ãæ", "PLANE", -0.07047592857143, 0.02968625, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Dim equationDriveCurve As Object
Set equationDriveCurve = Part.SketchManager.CreateEquationSpline2("", "(gd-hd)/2*sin(2*bs/nj*x)", "", "0", "nj*pi", False, 0, 0, 0, True, True)
Part.ViewZoomtofit2
上面是我自己写的程序，，，为什么CreateEquationSpline2 后面加入了参数之后（gd，hd，bs，nj）后，给这些参数赋值后命令不能执行，不能生成一条正弦曲线呢？
——我喂自己袋盐
>>UserAgent