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

zbq2334

& p% e, r1 n0 k9 `. Z
面齿轮全貌


3 s2 Z" K: s7 v
面齿轮与直齿啮合


现在，制造方采用数控机床按曲面加工面齿轮的齿面，要求有沿齿向的曲线坐标点，见下图

图中沿齿向，我做了5条曲线，在3D草图上取点做的曲线，用的是一位大师的"取草图点的宏"，做了一些适应性小改动。
恳请两位老师帮帮我，做个"宏"，批量做出齿向曲线坐标点(这是与5条曲线一个模式的，5条是其中的)。下面我传上SW文件和"取草图点的宏"代码

4 p8 S2 [4 ~, q. z5 h  \0 Q
) [* q0 |. v7 x& C2 y# q

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

2020-7-8 23:12 上传

点击文件名下载附件

7 e2 r  H1 p( g

* P# @1 m. [( }( _/ p! K

Dim sketch As SldWorks.ISketch

'Const FILE_NAME = "D:\Coordinates.txt"
6 \) ]6 Y! W6 m  F5 c'Const FILE_NAME = "D:\Coordinates.txt"
; a# m9 T7 ~8 ^8 v- T2 B2 OConst FILE_NAME = "D:\Coordinates.sldcrv"

) Z. A- K. q* m0 E3 ]* X

Sub main()
+ T# @: b( Z+ i: a9 VSet swApp = Application.SldWorks
9 y, a! j& s; m" y5 E7 m% R& XSet modelDoc = swApp.ActiveDoc
1 m$ s2 ~. E# w! h9 {'// Check active document
- S) ~$ a" Y$ k  z'
7 B. |& w- v9 KIf modelDoc Is Nothing Then
+ ~$ ^$ B1 T- j6 @& c5 b  SMsgBox "No active document!"
1 a; k$ Y8 @# C7 RExit Sub
End If

'// get active sketch
'
8 H: E) N9 n9 Z! v3 OSet sketch = modelDoc.SketchManager.ActiveSketch
If sketch Is Nothing Then
MsgBox "No active Sketch!"
Exit Sub
' R; D' T& `' A! @1 p5 i) dEnd If
   
'// Output to file
4 L* Q1 Q! T. W! c8 k3 d- e5 ADim iFileNum As Integer
2 X+ m( d" y3 Y8 M$ W2 B) I1 hiFileNum = FreeFile()
" G) `$ W) ?1 `; V$ f4 `Open FILE_NAME For Output As iFileNum
: w% @/ q% B# |- |* lDim i As Integer
Dim sketchPoints As Variant
sketchPoints = sketch.GetSketchPoints2()
For i = 0 To UBound(sketchPoints)

$ B2 Z2 ]1 n1 J, _0 p7 c' @2 Q

'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)

5 `2 o- Q/ Z; K5 e+ I

Next i
Close iFileNum
MsgBox "坐标储存于:" & vbCrLf & FILE_NAME
0 d. R+ P6 ^+ R" F: `1 w7 REnd Sub

/ d: L6 I9 Y( A) p9 n9 h& ?* V" c

zbq2334

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

zbq2334

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