'Const FILE_NAME = "D:\Coordinates.txt"7 }+ `; ^" a- v" n9 y
'Const FILE_NAME = "D:\Coordinates.txt"! _- x O0 p+ Q: w0 A- u
Const FILE_NAME = "D:\Coordinates.sldcrv"
0 W5 B6 g+ z! H% {3 d7 ~: Q* U
Sub main()' W& D% ]$ M( r: s
Set swApp = Application.SldWorks, y# Z) B5 H- |7 t7 l4 q j
Set modelDoc = swApp.ActiveDoc/ T2 k; n$ Y" z* G
'// Check active document 2 H, N0 Z+ t% L5 r$ g) } ~' # g9 K) ? u& U+ GIf modelDoc Is Nothing Then4 z5 C3 R0 e1 k
MsgBox "No active document!" ' l, c# a1 O4 tExit Sub4 H, c! }8 [- K' D2 e" G
End If
4 d/ A E9 ?% X% S1 q) }
'// get active sketch" u0 }3 C+ G$ [" {
' ' J! R; ?. z+ _% Z6 ] u+ fSet sketch = modelDoc.SketchManager.ActiveSketch6 l+ j6 o$ P, |4 r2 o* N2 x
If sketch Is Nothing Then$ {, e) E2 U0 f: n
MsgBox "No active Sketch!" 4 B: F# T& B6 J9 u: I9 a6 }Exit Sub3 A" }, v- ~: R1 B/ X* d
End If " I- S" Q. E3 X8 \6 K . E4 [5 n+ s* O g |
'// Output to file ) G: p" Q* H5 `Dim iFileNum As Integer & Z. I. z5 W# c, l0 P BiFileNum = FreeFile()0 {/ r1 ]% ^5 f/ p% z( B
Open FILE_NAME For Output As iFileNum! w* e8 g) `4 j1 M' O! L
Dim i As Integer 2 P5 `0 u& b% [+ g5 GDim sketchPoints As Variant, b% {) H- v' o. U% n
sketchPoints = sketch.GetSketchPoints2(). |3 v# N- ?' |1 v$ ?, L
For i = 0 To UBound(sketchPoints)
发表于 2020-7-8 23:17:18
