求助！

214152df

Dim swApp As Object
Dim Part As modeldoc2

Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Private Sub Command1_Click()
Set swApp = CreateObject("SldWorks.Application")
swApp.UserControl = True
Dim Part As Object
Set Part = swApp.NewPart
Part.InsertSkecth2 True
Part.CreateCircle 0, 0, 0, 1, 0, 0
Part.ClearSelection
Part.InsertSkecth2 True
Part.SaveAs2 "D:\part5.SLDPRT", 0, False, False
swApp.exieapp

End Sub
程序运行的时候，标红的那句话会出错，是啥问题啊？求助！

bass

没弄过这个啊，帮顶！