导入同一文件夹下多个txt文件的宏问题

zbq2334

5 s4 f. e# i0 x( f' _/ m8 r, F
$ @, @2 Z% Y8 X( @& D9 V8 Y8 h+ N0 E6 B
" b. B: P2 `8 A( `1 t8 G" S

' g. Z, w4 u1 @& o面齿轮全貌

+ M/ ^5 W7 W% ^" N7 m/ b, v
' k5 M/ E* ^4 U, c7 a; N* F
面齿轮与直齿啮合
' \. i, s) u' D" P) _
: [4 [% i1 k; C" A# }
现在，制造方采用数控机床按曲面加工面齿轮的齿面，要求有沿齿向的曲线坐标点，见下图

' X* |& y6 z  O. _( _( H$ @图中沿齿向，我做了5条曲线，在3D草图上取点做的曲线，用的是一位大师的"取草图点的宏"，做了一些适应性小改动。
恳请两位老师帮帮我，做个"宏"，批量做出齿向曲线坐标点(这是与5条曲线一个模式的，5条是其中的)。下面我传上SW文件和"取草图点的宏"代码
2 ]: I. T7 Z$ C: a& O
& P; i/ @; r# Q' f, a) G; F6 D

面齿轮齿面上沿齿向的曲线.zip (246.9 KB, 下载次数: 0)

2020-7-8 23:12 上传

点击文件名下载附件

5 D1 {) U) m" K" f. J  i

$ A+ ?) J- D7 i- `" t

Dim sketch As SldWorks.ISketch

'Const FILE_NAME = "D:\Coordinates.txt"
: i2 g% ?' d/ R: c'Const FILE_NAME = "D:\Coordinates.txt"
Const FILE_NAME = "D:\Coordinates.sldcrv"

- ?$ N1 W: M9 E& _: f

Sub main()
+ I2 |  j* o' J1 s6 g; eSet swApp = Application.SldWorks
Set modelDoc = swApp.ActiveDoc
'// Check active document
6 d) C6 _, L$ |" I9 F7 T9 G'
If modelDoc Is Nothing Then
MsgBox "No active document!"
& t  D, a" G" [+ u1 R; y( @1 O; pExit Sub
End If

'// get active sketch
'
! s3 l8 P( R, R( T- `5 @Set sketch = modelDoc.SketchManager.ActiveSketch
$ H: h* ?6 W3 QIf sketch Is Nothing Then
MsgBox "No active Sketch!"
2 s! M( b( {! a1 |Exit Sub
% I& }( N; a# q6 \1 s5 S' YEnd If
4 ~8 h% W/ _& K' J$ I, a( E   
'// Output to file
! `0 Z; f3 G- Q! M) BDim iFileNum As Integer
# [$ V* D- _& D( q% [  d5 l5 ViFileNum = FreeFile()
Open FILE_NAME For Output As iFileNum
Dim i As Integer
" z% `0 _5 f: T8 UDim sketchPoints As Variant
/ w! h1 `& _+ m# o5 ssketchPoints = sketch.GetSketchPoints2()
For i = 0 To UBound(sketchPoints)

7 U4 Q" O) I5 y2 z; j# H

'Print #iFileNum, "(" & Round(sketchPoints(i).X * 1000, 2) & "," & Round(sketchPoints(i).Y * 1000, 2) & ", " & Round(sketchPoints(i).Z * 1000, 2) & ")"

Print #iFileNum, Round(sketchPoints(i).X * 1000, 5) & "," & Round(sketchPoints(i).Y * 1000, 5) & ", " & Round(sketchPoints(i).Z * 1000, 5)

2 D: t  b6 I( O. S

Next i
- b% M% \$ n- r4 \5 M- jClose iFileNum
. E& }  M8 p; ?9 J% DMsgBox "坐标储存于:" & vbCrLf & FILE_NAME
. I" Q( r3 M1 k- V6 s2 |6 M  w- ZEnd Sub

8 p  H8 X; @. q  F* C4 E' q; b

, {5 o4 ]7 P' ?4 e

. Q4 b. |0 [) P2 [

zbq2334

批量做齿向的曲线，比较密，间隔0.025mm，整个齿高上有100条曲线，一条一条做重复劳动工作量大。
( s, v7 J0 p" r) ?3 N我的思路是循环语句一步一步地改变3D草图的基准面到坐标原点的距离，从而得到一系列坐标点，然后取出坐标点成.sldcrv文件……可是我不会"改变3D草图的基准面到坐标原点的距离"宏语句，非常希望得到两位老师的指导和帮助，我先谢谢你们了。

zbq2334

年纪大了，老眼昏花，传图也没传好，啰里啰嗦，可能也没说到点子上，耽误两位老师的时间了，非常抱歉。