改變座標

宣告
Dim x, y As Double



y = Val(Text1.Text)
x = y

修改

Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, x, 0#, 0#)


執行結果