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

zbq2334

. ~$ z  h" q) q! i0 }: Y9 E$ M) h面齿轮全貌
0 c6 U; r6 @! ?! M6 K2 g7 w  l
1 d5 X7 g& L) q1 {2 T$ p; N

面齿轮与直齿啮合
+ A/ t1 R6 t& J" }; K4 F
0 S3 |: G# ~% r# }, ?3 b
现在，制造方采用数控机床按曲面加工面齿轮的齿面，要求有沿齿向的曲线坐标点，见下图

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

( s5 G; @) E/ c1 M6 W/ g

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

2020-7-8 23:12 上传

点击文件名下载附件

* ~: `$ j9 W) s+ E( _

Dim sketch As SldWorks.ISketch

0 r5 O* A& \' ^, s9 q

'Const FILE_NAME = "D:\Coordinates.txt"
  J$ p1 b. @! V0 f7 Z" W- i& W& v'Const FILE_NAME = "D:\Coordinates.txt"
Const FILE_NAME = "D:\Coordinates.sldcrv"

Sub main()
  P+ |- I5 D- W+ k- c, T" e, `Set swApp = Application.SldWorks
Set modelDoc = swApp.ActiveDoc
" b- x# S3 W5 J5 ~9 Z'// Check active document
0 D+ Q0 [  V# {4 I+ v* o! J7 Z'
% N; o; o( t$ I$ k! m& a; {; n- @If modelDoc Is Nothing Then
MsgBox "No active document!"
Exit Sub
* B% d! {  Y) S9 v& e7 I, }/ w  l/ wEnd If

  Q# c' [3 G) k0 ]% I- F" h

'// get active sketch
! m! n* x" m) u7 m* C$ }'
Set sketch = modelDoc.SketchManager.ActiveSketch
If sketch Is Nothing Then
MsgBox "No active Sketch!"
Exit Sub
End If
# U- e4 f% @1 f) |+ n: y   
, w- l% x" J6 I0 I'// Output to file
Dim iFileNum As Integer
3 j6 b2 ^: t8 ^iFileNum = FreeFile()
+ [2 ?7 \# f+ {Open FILE_NAME For Output As iFileNum
- `! C" y( T& M/ v  M* [  ^Dim i As Integer
7 U, N8 R* O. L* vDim sketchPoints As Variant
3 D, a, {1 I' n9 B4 d) vsketchPoints = sketch.GetSketchPoints2()
For i = 0 To UBound(sketchPoints)

% }( n' ?* N  L8 ]+ [0 n/ e6 y

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

* `+ m/ ]8 S1 Y4 G# d, ^6 L- G

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

Next i
Close iFileNum
4 y' C: K/ m' a, mMsgBox "坐标储存于:" & vbCrLf & FILE_NAME
End Sub

  _: ?! d2 l$ }; V/ y: N1 o

zbq2334

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

zbq2334

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