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

zbq2334

) A' m# t0 i9 Y: V: S9 U

2 [1 O3 U; A" S1 @6 |, }
+ u7 w8 d" j3 M5 p) F% k% w1 N面齿轮全貌
: A- r& m  C2 g2 i; n& b- Z- \0 |: D
0 u' ~* v$ \$ @- @5 }

1 S2 e& @9 v9 A7 i! Z面齿轮与直齿啮合

) T1 g; l, ~! T' x! r
4 F4 k4 {+ G6 v0 \" b2 m. d4 Q现在，制造方采用数控机床按曲面加工面齿轮的齿面，要求有沿齿向的曲线坐标点，见下图

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

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

2020-7-8 23:12 上传

点击文件名下载附件

' @- s/ x& `. x5 z5 c6 [7 q0 E5 a. p: d4 U

$ u; ?5 V  `4 T* [( K0 B

* S, l! E/ z3 ^0 a% F- h0 i

Dim sketch As SldWorks.ISketch

' }/ A' o! i! d+ g  s  e$ l- m

'Const FILE_NAME = "D:\Coordinates.txt"
' A  @2 [9 Q, r) P8 a'Const FILE_NAME = "D:\Coordinates.txt"
Const FILE_NAME = "D:\Coordinates.sldcrv"

/ v* i# s+ n6 u6 c: G, c

Sub main()
Set swApp = Application.SldWorks
Set modelDoc = swApp.ActiveDoc
. {9 W* x* l, ~0 M; h'// Check active document
'
If modelDoc Is Nothing Then
* E% J; {. S9 oMsgBox "No active document!"
Exit Sub
End If

/ e+ I2 E" ^# _3 r, h

'// get active sketch
'
$ a, l$ I7 B- z$ Q* C( QSet sketch = modelDoc.SketchManager.ActiveSketch
If sketch Is Nothing Then
/ y" i! W( }" H; u1 M5 m  ]' SMsgBox "No active Sketch!"
/ n* \/ f& p! f. K, y' }1 {5 T: OExit Sub
: M; G# b/ `7 r* ?' J; kEnd If
0 T+ M0 K9 |' Y1 y3 x, }; B# \7 J4 p   
'// Output to file
Dim iFileNum As Integer
iFileNum = FreeFile()
Open FILE_NAME For Output As iFileNum
8 g/ P6 D% Y2 [% W' M4 D" v& h- DDim i As Integer
5 C* q4 b$ d& ?' b8 V  JDim sketchPoints As Variant
# D$ F, y4 n8 i7 T7 u: c: A& wsketchPoints = sketch.GetSketchPoints2()
/ N! b  P" A6 D3 O8 Z( y) w" ^/ xFor i = 0 To UBound(sketchPoints)

'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 B. C# q' l3 j3 l1 Y. y* V8 g9 x

Next i
3 Q  ?& O; [4 d* QClose iFileNum
$ k7 Y0 E2 n- d5 A. pMsgBox "坐标储存于:" & vbCrLf & FILE_NAME
End Sub

; P& |- K; m1 e

* H: c! n" D# \/ w9 d! f3 [

6 x, I+ Q: E  H

zbq2334

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

zbq2334

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