VB.net solidworks 二次開發學習--報錯

windows窗體應用程式：

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim swapp As SldWorks.SldWorks
        Dim part As SldWorks.ModelDoc2
        Dim sketchmer As SldWorks.SketchManager
        swapp = CreateObject("sldworks.application")
        part = swapp.ActiveDoc
        sketchmer = part.SketchManager
        sketchmer.InsertSketch(True)
        sketchmer.CreateLine(-0.05, 0, 0, 0.05, 0, 0)
        sketchmer.CreateLine(-0.05, 0, 0, 0, 0.05 * 3 ^ 0.5, 0)
        sketchmer.CreateLine(0.05, 0, 0, 0, 0.05 * 3 ^ 0.5, 0)
        sketchmer.PerimeterCircle(0, 0.05 * 3 ^ 0.5, -0.05, 0, 0.05, 0)
        sketchmer.CreateCircle(0, 0.05 / 3 ^ (1 / 2), 0, 0.05, 0, 0)
        sketchmer.PerimeterCircle(0, 0, -0.025, 0.025 * 3 ^ (1 / 2), 0.025, 0.025 * 3 ^ (1 / 2))
        sketchmer.CreateCircleByRadius(0, 0.05 / 3 ^ (1 / 2), 0, 0.1)
        sketchmer.PerimeterCircle(0.1, 0, 0, 0.1, -0.1, 0)
        sketchmer.InsertSketch(True)
    End Sub
End Class
           

使用 sketchmer.PerimeterCircle時出現以下錯誤“遇到無效參數”（使用sketchmer.CreateCircle建立圓時正常）。沒能解決

另 出現過“ sketchmer = part.SketchManager” 未将對象引用設定到對象的執行個體

，重新開機計算機後故障解除