源代码
boolstatus = Part.AddComponent("F:\SWtu\活齿比5VB生成.SLDPRT", -0.003517944994087, -0.006625186834128, 0.03961012702355)
boolstatus = Part.Extension.SelectByID2("Point1@原点@活齿比5VB生成-2@装配体8", "EXTSKETCHPOINT", 0, 0, 0, True, 256, Nothing, 0)'这一句执行了
boolstatus = Part.Extension.SelectByID2("Spline2@3D草图3@主动轴比5VB生成-2@装配体8", "EXTSKETCHSEGMENT", -0.00133003869757, 0.01855238521221, -0.02428602982743, True, 512, Nothing, 0)'这句也执行了
Dim myMate As Object
Set myMate = Part.AddMate3(15, -1, False, 0.001, 0, 0, 0.001, 0.001, 0.5235987755983, 0.5235987755983, 0.5235987755983, False, longstatus)'关键是这句不执行
Part.ClearSelection2 True
Part.EditRebuild3
目的是让球的中心放在这条曲线上
|