Question

VB程序提示错误的参数号或无效的属性赋值，求教，

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0.01949, -0.015343, 0#)
Part.InsertHelix False, True, False, True, 0, 0.01, 0.002, 5, 0, 1.5707963267949
Set myModelView = Part.ActiveView

boolstatus = Part.Extension.SelectByID2("右视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True

Part.EditDelete
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("螺旋线/涡状线1", "REFERENCECURVES", -0.103691956679711, 0.040972638960227, -1.73423377911348E-02, True, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("草图2", "SKETCH", 0, 0, 0, False, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("螺旋线/涡状线1", "REFERENCECURVES", -0.103691956679711, 0.040972638960227, -1.73423377911348E-02, True, 4, Nothing, 0)
Set myFeature = Part.FeatureManager.InsertProtrusionSwept3(False, False, 0, False, False, 0, 0, False, 0, 0, 0, 0, True, True, True, 0, True, True, True, False)
Part.ClearSelection2 True
End Sub
这是程序的一部分，我是用SolidWorks的宏录制功能录制的，调试时错误显示在倒数第3和倒数第四段

Answer 1

第三行和第四行的Text1右边不应该是逗号，而应该是点！表示访问Text1的成员。还有，最后多写了一行End Sub，去掉就可以了。（虽然，事实上我发现，在回答女生提出的问题后，即使回答完全正确，也很少被认可，但我还是依然选择，继续帮助别人而不管其是男是女。）'-'完整代码如下：

Private Sub Command1_Click()
'
Dim y%, m%
y = Val(Text1.Text) ' 注意！这两行，需要改成点"."，而不是逗号","！并且在点右边没有空格！
m = Val(Text2.Text)
Print "本年为;"; y; "年"; m; "月"; IIf(Day(DateSerial(y, 3, 0)) = 29, "闰年", "不是闰年")
Print "目前还是"; Choose((m + 2) \ 3, "春", "夏", "秋", "冬"); "天"
Print "本月有"; Day(DateSerial(y, m + 1, 0)); "天"
'
End Sub

Answer 2

myFeature 未被赋值，在这行代码 Set myFeature = Part.FeatureManager.InsertProtrusionSwept3(False, False, 0, False, False, 0, 0, False, 0, 0, 0, 0, True, True, True, 0, True, True, True, False)
之前加上dim myfeature as object 就不会出现无效的赋值了
然后，在代码内部的最后三个值删除，也就是改成Set myFeature = Part.FeatureManager.InsertProtrusionSwept3(False, False, 0, False, False, 0, 0, False, 0, 0, 0, 0, True, True, True, 0, True,)
然后，就可以完美运行了。