& ?. X6 ]1 b# A U- YDim Part As Object
( a7 u" p4 y8 z9 d+ ^+ Y4 lDim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
! ^" ^1 B7 f9 p: rDim longstatus As Long, longwarnings As Long2 Y- W& N7 r5 t2 C* r j$ J3 \
: _: Q+ c4 Z0 ?( l+ a# ~Sub main()8 I: p' l" M4 c
6 T3 b* s' r, ]) W( _' JSet swApp = _
2 D& r# o" b7 Z( cApplication.SldWorks# e; K% {% L- k. D) q7 Z" l, Q# v! E7 P9 u
/ O; p- U! m/ W% C! bSet Part = swApp.ActiveDoc( m/ d6 z1 u0 g5 c, ?
Part.SketchManager.InsertSketch True/ H. i; g8 r/ G
Part.ClearSelection2 True" |$ J6 e: p w& \, x5 W- u ]
Dim skSegment As Object- v+ K7 K7 H* b( A2 b( r
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]8 p, B$ y8 x. ]3 t- F. @. ?( `' q
Part.SetPickMode$ n2 u5 j' R" X5 ~: }9 _0 _
Part.ClearSelection2 True1 g" C5 @5 ^- ^2 O1 c
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)! {- s# l4 h) q: a9 |5 Z' h$ c. B/ d4 r/ R
Part.SetPickMode/ R- h+ j2 B/ ]( y5 M9 k
% Z( L/ p G& D4 L V& SPart.ClearSelection2 True
4 U9 s$ |; F3 d' T3 U, q, VEnd Sub
9 F+ j8 z, T. |8 t* ~ |