SolidWorks專門論壇 SolidWorks forum

 找回密碼
 註冊
查看: 19128|回復: 7

會呼吸就會的巨集錄製範例(7)(最終回)

[複製鏈接]
發表於 2008/7/19 21:51:48 | 顯示全部樓層 |閱讀模式
假設有一需求需要將相同的零件以三十個零件圖檔表示,圖檔檔名為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

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有賬號?註冊

x
發表於 2009/9/4 14:28:13 | 顯示全部樓層
最近很想學巨集...
可是看完這七篇,我發現.....我恐怕是不會呼吸...:r
timmy0208 該用戶已被刪除
發表於 2011/12/13 15:37:43 | 顯示全部樓層
第一篇跟第七篇的等級感覺跳了一大截!!
我看我必須要再重新看過一次了。
發表於 2011/12/14 16:14:55 | 顯示全部樓層
快給我氧氣~我快停止呼吸了
kevinboy 該用戶已被刪除
發表於 2013/3/15 23:38:16 | 顯示全部樓層
第一篇,感覺很簡單,
看到第二篇開始 就頭暈目眩了。
第七篇就 想要 自己迴圈 回到第一篇開始。
發表於 2018/9/5 17:01:40 | 顯示全部樓層
快速过了一遍,以前学过VBA,对代码还比较熟。不过怎么运用到实际的SW使用场景,不知道有什么更深入的教程?
發表於 2020/6/27 07:32:38 | 顯示全部樓層
首先還是感謝fang9595大大願意分享自己的經驗與教學,我自己之前有一點用過Excel VBA的經驗,看了這幾篇之後知道,
SW 巨集的方式跟Excel一樣就只是使用的軟體不同,在這裡變成我們要使用與了解的是SW本身的函數功能與VB的相關函數功能才會進階使SW自動化!
在SW的使用者來說有多少人可以是除了建模、做工程圖面之外又能編譯程式呢?
我相信這又是另一個門,往軟體自動化與自我成長的門!.....
您需要登錄後才可以回帖 登錄 | 註冊

本版積分規則

論壇統計|手機版上論壇|論壇來自幾何科技 論壇架構版次 20240312

GMT+8, 2024/3/28 20:47 , Processed in 0.119321 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2023 Discuz! Team.

快速回復 返回頂部 返回列表