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

只看该作者 · 发表于 2019-4-5 10:36:01

本帖最后由人穷貌丑于 2019-4-5 10:42 编辑

只看该作者 · 发表于 2019-4-5 23:39:08

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

只看该作者 · 发表于 2019-4-7 10:27:04

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

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

只看该作者 · 发表于 2019-4-8 08:53:26

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

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

只看该作者 · 发表于 2019-4-10 08:10:18

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-5-29 22:55:27

谢谢分享

只看该作者 · 发表于 2020-11-17 10:18:13

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

谢谢分享

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

本帖子中包含更多资源