solidworks二次開發，此直線為何畫不出來？

廣仔依舊

Dim swApp As Object
Dim Part As Object

. |' a8 X# a  ]: bDim boolstatus As Boolean
7 `9 J9 w7 a) qDim longstatus As Long, longwarnings As Long
Sub main()

Set swApp = _
8 h, A8 Y$ H1 l$ L
$ M2 T" e( }% H. o  M7 UApplication.SldWorks
Set Part = swApp.ActiveDoc
2 w) E$ {9 r4 P) u  F7 p
9 U. P, C; h( _) \4 |5 a) U, j2 Vboolstatus = Part.Extension.SelectByID2("前視基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
Dim skSegment As Object

# C+ x/ S" R; ^% P3 jSet skSegment = Part.SketchManager.CreateLine(0#, 0#, 0#, 0.5, 0.4, 0#)
End Sub