会唿吸就会的巨集录制范例(7)(最终回)

a37502696

   经典图书

假设有一需求需要将相同的零件以三十个零件图档表示，图档档名为Demo1.2.3.4......100(实务上这种事适乎不可能发生，不过这是藉由api例子来说明透过程式可提升工作效率)

我们将程式修正如下：
其中红色文字表新宣告与迴圈内容。
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
'Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim PathName As String'路径变数
Dim PathName1 As String '路径变数
Dim i As Integer

'Dim Feature As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
'Set SelMgr = Part.SelectionManager
PathName = "C:\Demo"

For i = 1 To 30
  PathName1 = PathName & i & ".SLDPRT"
  longstatus = Part.SaveAs2(PathName1, 0, False, False)
Next
  
End Sub

执行完毕C:\ 路径中将会有30个档案，有兴趣试试吧。:b

wpj147258

最近很想学巨集...
可是看完这七篇,我发现.....我恐怕是不会唿吸...:r

csmyax

   经典图书

第一篇跟第七篇的等级感觉跳了一大截!!
我看我必须要再重新看过一次了。

jq1633

快给我氧气~我快停止唿吸了

woodenheart

   经典案例图书

第一篇，感觉很简单，
看到第二篇开始 就头晕目眩了。
第七篇就 想要 自己迴圈 回到第一篇开始。

cxtony

快速过了一遍，以前学过VBA，对代码还比较熟。不过怎么运用到实际的SW使用场景，不知道有什么更深入的教程？

szty_w

   经典案例图书

首先还是感谢fang9595大佬愿意分享自己的经验与教学，我自己之前有一点用过Excel VBA的经验，看了这几篇之后知道，
SW 巨集的方式跟Excel一样就只是使用的软体不同，在这里变成我们要使用与了解的是SW本身的函数功能与VB的相关函数功能才会进阶使SW自动化！
在SW的使用者来说有多少人可以是除了建模、做工程图面之外又能编译程式呢？
我相信这又是另一个门，往软体自动化与自我成长的门！.....