求助vb 二次开发

kingxqx

Private Sub Command1_Click()
   
   Dim swapp As Object
    Dim part As Object
    Dim boolstatus As Boolean
'定义接口
    Set swapp = CreateObject("SldWorks.Application")
    Set part = swapp.NewPart()
    swapp.Visible = True
  '获取SOLIDWORKS软件接口并新建一个零件文件
    part.InsertSketch2 True
    boolstatus = part.Extension.SelectByID("前视", "PLANE", 0, 0, 0, False, 0, Nothing)
    part.InsertSketch2 True
    part.CreateCircle 0, 0, 0, 0, Val(R.Text) / 10005, 0
    part.ShowNamedView2 "*上下二等角轴测", 8
    part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, Val(H.Text) / 1000, 0.01, False, False, False, False, 0, 0, False, False, False, False, 1, 1, 1
  '建立模型
    End Sub
红色处出现“实时错误424 要求对象”
求解答