用VB语言编的三维模型SolidWorks不执行，已经引用SolidWorks类型库
请问怎么用VB语言在SolidWorks里生成三维模型，写完编程能用VB打开SolidWorks，但是不执行生成模型的语句，求解
回复 2楼 zbjzbj
Private Sub Command2_Click()boolstatus = Part.Extension.SelectBylD2("前视", "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#, Val(Text1.Text) / 2000, 0, 0#)
Part.ShowNamedView2 "*上下二等角轴测", 8
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, Val(Text2.Text) / 1000, 0, False, False, False, False, 0, 0, False, False, False, False, True, True, True, 0, 0, False)
Part.SelectionManager.EnableContourSelection = False
End Sub
这是solidworks执行生成圆柱的语句，但是提醒第一句就有错误，怎么回事啊 大哥