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

廣仔依舊

Dim swApp As Object
3 @, J: t( g" E4 G# I, ]Dim Part As Object
. E) \+ c5 W& H/ @
  j- }% E* M; [$ O9 S: TDim boolstatus As Boolean
' A1 N& X% j  ^) @! BDim longstatus As Long, longwarnings As Long
$ O. m9 V% d5 f4 JSub main()
6 {7 a3 P- |* P7 @  R
Set swApp = _
  z) m' u& `" ?: w% P
2 e$ i6 W5 m1 p# l5 q7 JApplication.SldWorks
/ x# X7 U' A3 ~6 }% @* fSet Part = swApp.ActiveDoc

boolstatus = Part.Extension.SelectByID2("前視基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
5 [. S9 G3 n( R% \+ P0 V- pPart.SketchManager.InsertSketch True
Dim skSegment As Object
4 B# W# V: T3 D3 v# ^, S: q+ ?) Y
Set skSegment = Part.SketchManager.CreateLine(0#, 0#, 0#, 0.5, 0.4, 0#)
+ u! a6 r' i' X5 GEnd Sub

& f+ N" q3 B1 i0 U( i! [