按下面方法,把下面的复制到宏文件中
寫多一個宏, 讓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.
出自 https://www.icax.org/thread-911488-2-2.html
出现下面一行红色的字体,
把红色的两行删掉保存后,,可以正常打开软件且不报错,
但在零件改名后,再打开工程图又弹出下面对话框
|