Dim swApp As Object
! `5 E3 R* Q D" F3 m7 F0 D, Y! UDim Part As Object
1 E1 m7 N- q5 i9 g% `2 Z5 _. R/ V/ `( G
Dim boolstatus As Boolean
' w9 V0 F! m5 N" SDim longstatus As Long, longwarnings As Long
+ h9 d7 p- A$ cSub main()
/ C9 t$ I: c9 s3 z7 u5 y1 X) P. ]$ b9 V- [& @- c) P: W
Set swApp = _
: F- C' ]$ K2 y& C! G3 x8 o* k. P; ~# g v2 B! S* v
Application.SldWorks
$ T) r3 @( x2 B% p3 HSet Part = swApp.ActiveDoc- x! x4 l7 Z8 C: ]
& h. |$ P* a" N `* Q6 Qboolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)4 Y# a! U4 M u7 K, [4 N
Part.SketchManager.InsertSketch True# ?3 ^! f* {! C0 F$ k0 J% o
Dim skSegment As Object
4 A' G( G8 A, u! Q: T4 S0 y. ?
- N+ G$ D% C" m/ [, SSet skSegment = Part.SketchManager.CreateLine(0#, 0#, 0#, 0.5, 0.4, 0#)1 j c0 A% d/ n: s. y
End Sub
, v" v/ E+ {" @% H9 q |