常駐宏（在7樓下載）

另一段宏（當開啟檔案時執行）的效果：

Francis 发表于 2013-12-20 13:20
感謝梁大幫忙測試。

交代一下細節：

已測試成功,
謝謝分享及指導{:soso_e179:}{:soso_e183:}

其實這是『常駐宏』的一個簡單例子，其普遍性比起『宏特徵』更高，而且產生的自動化功能更是神不知鬼不覺。

怎麼除了梁兄外就沒人討論？

请问“常驻宏”是solidwork的事件吗？

langzhi 发表于 2014-2-13 13:12
请问“常驻宏”是solidwork的事件吗？

是有關的，但不是等同。

原理是利用“類模塊”常駐代碼到SLDWORKS.exe的內存中，
等同於利用“窗體”，在不關掉情況下，變相常駐了“窗體”內的代碼到SLDWORKS.exe的內存中。

那些代碼運用了SldWorks的事件，自動地執行一些容易被遺忘的任務，
就如7樓所提供的宏，在“類模塊”中編寫了兩段的函數：
第一段函數——當收到SldWorks的“切換文件”事件信息，就按照模型內的特定自定義屬性修改系統選項，達到『文件屬性 操縱 系統選項』的目的。
第二段函數——當收到SldWorks的“打開文件”事件信息，就抽取當前目錄名稱，填寫進自定義屬性之內。

Francis 发表于 2014-2-13 14:40
是有關的，但不是等同。

原理是利用“類模塊”常駐代碼到SLDWORKS.exe的內存中，

谢谢闷大细心讲解。

可能大家都未能領悟箇中訣竅, 再來一個例子, 希望可以為各位帶來方便.

---

以一個叫做"图号名称分离"宏為例(不是悶人所寫的), 可以分離文件名稱為代號及名稱, 但必須手動運行, 忘記就出錯.
而嵌合宏問題多羅羅, 步驟繁瑣且有版本危機.

寫多一個宏, 讓SW在每次切換文件時都自動執行指定的宏, 那就可以避免忘記按動按鈕.

1.
在C:盤建立"Macros"的文件夾, 並複制宏"partitionTM.swp"於其中.

2.
新建一個宏, 儲存到"C:\Macros\AutoRun.swp"
把以下代碼完全取代模塊的內容:
Public AutoRun As 类1
Sub main()
Set AutoRun = New 类1
End Sub
再插入"類模塊", 名稱為"类1", 內容如下:
Private WithEvents SwApp As SldWorks.SldWorks
Private Sub Class_Initialize()
Set SwApp = Application.SldWorks
End Sub
Private Function SwApp_ActiveModelDocChangeNotify() As Long
Dim runMacroError As Long
SwApp.RunMacro2 "C:\Macros\partitionTM.swp", "partitionTM1", "main", 0, runMacroError
End Function
儲存宏及關閉SW.

3.
執行SW並一起載入宏的方法
"安裝位置\SLDWORKS.exe" /m "C:\Macros\AutoRun.swp"

Francis 发表于 2014-6-16 21:58
可能大家都未能領悟箇中訣竅, 再來一個例子, 希望可以為各位帶來方便.

---

以一個叫做"图号名称分离"宏為 ...

按教程操作完全成功~感謝悶大的分享與指導！
讓分離圖號名稱宏得以達到此堪稱完美的用法~

補充一下討論的連結：
https://www.3dportal.cn/discuz/fo ... wthread&tid=1250784

https://www.3dportal.cn/discuz/f ... &extra=page%3D1

有關Class Modules(物件類別模組 或 类模块), 可參閱:
https://msdn.microsoft.com/en-us ... 2%28v=vs.60%29.aspx

Francis 发表于 2014-6-17 11:06
有關Class Modules(物件類別模組 或 类模块), 可參閱:
https://msdn.microsoft.com/en-us/library/aa733572 ...

謝謝悶大提供資料~~