各位前辈，求助一个宏，运行宏让装配体内的零件（含装配体)视图类型修改为隐藏所有...

liuzhanping9605 发表于 2019-4-10 08:10
Option Explicit

谢谢分享

谢谢分享

Option Explicit


Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.SetUserPreferenceToggle(swUserPreferenceToggle_e.swViewDisplayHideAllTypes, True)
End Sub

这是录制的

人穷貌丑 发表于 2019-4-7 10:27
谢谢大鹿先生，请问鸟事宏是什么宏呀！

请见连接：https://www.icax.org/thread-926875-1-1.html
[分享] 宏例子: 打開指定目錄逐一處理所有零件的瑣事

大鹿 发表于 2019-4-5 23:39
两个办法
1. 改写遍历宏
2. 使用鸟事宏

谢谢大鹿先生，请问鸟事宏是什么宏呀！

两个办法
1. 改写遍历宏
2. 使用鸟事宏