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

zbq2334

" H+ ^% }, C- {, r" {4 _/ ~
9 ~: t, |  o0 X& \3 g2 H- y) v面齿轮全貌

# m0 D/ }) i# `8 [
( l" h. I! A, Q6 N- ~% {
2 J1 W2 d& h# `6 D, ^面齿轮与直齿啮合


" \( ?+ I1 P. d6 t8 e- k/ e3 G现在，制造方采用数控机床按曲面加工面齿轮的齿面，要求有沿齿向的曲线坐标点，见下图

0 m4 Q/ {( A' k7 G# \! r/ }图中沿齿向，我做了5条曲线，在3D草图上取点做的曲线，用的是一位大师的"取草图点的宏"，做了一些适应性小改动。
恳请两位老师帮帮我，做个"宏"，批量做出齿向曲线坐标点(这是与5条曲线一个模式的，5条是其中的)。下面我传上SW文件和"取草图点的宏"代码
- r' k# l$ k/ W( A1 G% k& j) ]' d5 s5 l

; J: g; H- q5 F$ W; B/ E- [

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

2020-7-8 23:12 上传

点击文件名下载附件

$ g& ~5 A1 W9 ~0 w, v1 M

( d  [, h& A  O6 f& u! q) E! C

Dim sketch As SldWorks.ISketch

'Const FILE_NAME = "D:\Coordinates.txt"
+ `1 Y0 M, G2 g'Const FILE_NAME = "D:\Coordinates.txt"
$ ?& E/ e. s% @: |* _6 UConst FILE_NAME = "D:\Coordinates.sldcrv"

" A# }' N) z6 q" D+ Z/ H$ t0 @- g

Sub main()
! ]0 c! h6 {* \: }' NSet swApp = Application.SldWorks
Set modelDoc = swApp.ActiveDoc
'// Check active document
'
% \, X- [4 u' xIf modelDoc Is Nothing Then
MsgBox "No active document!"
% m7 @$ c+ g1 g, fExit Sub
3 T/ F+ o8 j4 p; X0 K) }End If

2 ~- g6 E; [! @( S! M

'// get active sketch
'
Set sketch = modelDoc.SketchManager.ActiveSketch
4 W( O9 k4 c; G7 I5 v8 EIf sketch Is Nothing Then
/ v6 F' G/ H( j- _: L+ K! fMsgBox "No active Sketch!"
0 n6 d: z2 D" Q* X- }& ]Exit Sub
$ q& y- q1 [. Z$ F  D( zEnd If
   
'// Output to file
, R: Q; N3 ^# tDim iFileNum As Integer
$ A% a- a( _, {9 X+ ziFileNum = FreeFile()
Open FILE_NAME For Output As iFileNum
Dim i As Integer
Dim sketchPoints As Variant
sketchPoints = sketch.GetSketchPoints2()
$ }, C% d. n" D! p. |2 E; q8 LFor i = 0 To UBound(sketchPoints)

: S, C. ~7 M5 _" ?

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

Next i
8 r& J. |2 n# `+ J5 V5 A$ GClose iFileNum
MsgBox "坐标储存于:" & vbCrLf & FILE_NAME
: \5 Z4 y" l% z5 F* x* GEnd Sub

+ ^' L6 x: ?/ F' k7 ^* ]6 K0 l1 `6 V/ B

$ @  L6 |* {( K) R

zbq2334

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

zbq2334

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