保存触发的常驻宏，宏的自动更新，自动执行

chandox · 发表于 2019-9-4 17:30:49

经典图书

这个宏是根据楠柠檬、版大和国外的一个大神的程序改编的，实现保存就触发，楠柠檬和版大的宏只能根据切换窗口或者打开文件触发。单根据切窗自动执行宏，如果我新建了一个文件，然后以图号和名字命名好，我还没切换过窗口，那这个时候零件的属性栏还是不会有图号和名称，我直接从零件图创建工程图，工程图就无法链接零件图的图号，我再需要进行切换窗口的操作，这个操作是多余的，如果我点了保存就触发图号名称分离宏，那就不需要切窗了。

常驻宏.zip (13.65 KB, 下载次数: 319)

jasondanny · 发表于 2019-9-11 10:58:06

谢谢正需要

surfly · 发表于 2019-9-4 17:36:36

经典图书

下面是搬运别人的原程序
模块：
Option Explicit
Public notifyWrapper As Class1

Sub main()
Set notifyWrapper = New Class1
notifyWrapper.monitorSolidWorks
End Sub
类模块：
Option Explicit
Public WithEvents swApp As SldWorks.SldWorks
Public WithEvents swAssDoc As SldWorks.AssemblyDoc
Public WithEvents swDrawDoc As SldWorks.DrawingDoc
Public WithEvents swPartDoc As SldWorks.PartDoc
Private Function swApp_ActiveModelDocChangeNotify() As Long
Dim swModelDoc As SldWorks.ModelDoc2
Set swModelDoc = swApp.ActiveDoc
Select Case swModelDoc.GetType
Case SwConst.swDocASSEMBLY
  Set swAssDoc = swModelDoc
Case SwConst.swDocDRAWING
  Set swDrawDoc = swModelDoc
Case SwConst.swDocPART
  Set swPartDoc = swModelDoc
End Select
Set swModelDoc = Nothing
End Function
Private Function swAssDoc_FileSaveAsNotify2(ByVal FileName As String) As Long
preSave FileName
End Function
Private Function swAssDoc_FileSaveNotify(ByVal FileName As String) As Long
preSave FileName
End Function
Private Function swDrawDoc_FileSaveAsNotify2(ByVal FileName As String) As Long
preSave FileName
End Function
Private Function swDrawDoc_FileSaveNotify(ByVal FileName As String) As Long
preSave FileName
End Function
Private Function swPartDoc_FileSaveAsNotify2(ByVal FileName As String) As Long
preSave FileName
End Function
Private Function swPartDoc_FileSaveNotify(ByVal FileName As String) As Long
preSave FileName
End Function
Public Sub monitorSolidWorks()
Set swApp = Application.SldWorks
End Sub
Sub preSave(sFileName As String)
MsgBox sFileName & " is about to be saved!"
End Sub

qhdwyx · 发表于 2019-9-4 17:36:36

下面是搬运别人的原程序
模块：
Option Explicit
Public notifyWrapper As Class1

Sub main()
Set notifyWrapper = New Class1
notifyWrapper.monitorSolidWorks
End Sub
类模块：
Option Explicit
Public WithEvents swApp As SldWorks.SldWorks
Public WithEvents swAssDoc As SldWorks.AssemblyDoc
Public WithEvents swDrawDoc As SldWorks.DrawingDoc
Public WithEvents swPartDoc As SldWorks.PartDoc
Private Function swApp_ActiveModelDocChangeNotify() As Long
Dim swModelDoc As SldWorks.ModelDoc2
Set swModelDoc = swApp.ActiveDoc
Select Case swModelDoc.GetType
Case SwConst.swDocASSEMBLY
  Set swAssDoc = swModelDoc
Case SwConst.swDocDRAWING
  Set swDrawDoc = swModelDoc
Case SwConst.swDocPART
  Set swPartDoc = swModelDoc
End Select
Set swModelDoc = Nothing
End Function
Private Function swAssDoc_FileSaveAsNotify2(ByVal FileName As String) As Long
preSave FileName
End Function
Private Function swAssDoc_FileSaveNotify(ByVal FileName As String) As Long
preSave FileName
End Function
Private Function swDrawDoc_FileSaveAsNotify2(ByVal FileName As String) As Long
preSave FileName
End Function
Private Function swDrawDoc_FileSaveNotify(ByVal FileName As String) As Long
preSave FileName
End Function
Private Function swPartDoc_FileSaveAsNotify2(ByVal FileName As String) As Long
preSave FileName
End Function
Private Function swPartDoc_FileSaveNotify(ByVal FileName As String) As Long
preSave FileName
End Function
Public Sub monitorSolidWorks()
Set swApp = Application.SldWorks
End Sub
Sub preSave(sFileName As String)
MsgBox sFileName & " is about to be saved!"
End Sub

sw45381941 · 发表于 2019-9-4 17:44:09

经典案例图书

这是我改动的，只执行保存触发的宏，需要点击执行的

azhangyi · 发表于 2019-9-4 19:10:08

这个好，收藏学习了！谢谢楼主！

john152 · 发表于 2019-9-4 19:10:08

经典案例图书

这个好，收藏学习了！谢谢楼主！

windwalkers · 发表于 2019-9-5 08:53:43

图号分离宏是直接放在路径里还是建立新类别、怎么建立、

zyxhhy · 发表于 2019-9-5 09:11:12

楼主看到后加下我QQ:347811850 帮忙指导下、公司正好想这样用、谢了！

fengsui · 发表于 2019-9-5 09:11:12

经典图书

楼主看到后加下我QQ:347811850 帮忙指导下、公司正好想这样用、谢了！

xiaochuang · 发表于 2019-9-5 09:17:51

......还是你自己慢慢研究吧solidworks网，必须顶一下
，先把楠柠檬的帖子研究透

qinxin004 · 发表于 2019-9-5 09:17:51

......还是你自己慢慢研究吧solidworks网，必须顶一下
，先把楠柠檬的帖子研究透

ouming · 发表于 2019-9-5 09:19:40

你首先要有图号名字分离的宏

tianqiang0316 · 发表于 2019-9-5 09:19:40

你首先要有图号名字分离的宏

yaoxubo · 发表于 2019-9-5 10:15:42

加入QQ群
参与讨论和学习

或扫描二维码加入

我明白了你这个是常驻宏、然后结合楠柠檬的模式一起使用

xiaobao2005 · 发表于 2019-9-5 10:15:42

经典案例图书

我明白了你这个是常驻宏、然后结合楠柠檬的模式一起使用

mingself · 发表于 2019-9-6 10:10:47

加入QQ群
参与讨论和学习

或扫描二维码加入

搞定了、非常感谢！！

anndy73952 · 发表于 2019-9-6 10:10:47

经典案例图书

搞定了、非常感谢！！

benliz · 发表于 2019-9-10 13:55:31

使用挺好，谢谢楼主！！

A135886886886 · 发表于 2019-9-11 08:59:17

感谢zhang兄分享，学习了

		自动登录	找回密码
密码			立即注册

保存触发的常驻宏，宏的自动更新，自动执行

浏览过的版块