SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 孤立显示有装配关系对象的宏 [打印本页]

作者: aszarn 时间: 2014-6-13 15:10
标题: 孤立显示有装配关系对象的宏
装配中发生错误经常需要调整，在层次很多的情况下，针对某个装配关系，很难选定有关系的两个对象进行调整。
我搜到国外SW论坛，有人针对这个问题开发了相应的只显示宏，国外原贴在此https://forum.SolidWorks机械工程师论坛.com/thread/24079
按照贴子里的宏的描述，选定一个装配关系，运行这个宏，即可将有关系的两个对象孤立显示
现在的问题是，我的SW2007无法使用这个宏，
软件显示：
运行时错误“91”，对象变量或with block变量未设置！
我将宏贴上来，不知道是我的SW2007有问题，还是不支持2007版本，还是什么问题，大家帮我看一下！

IsoMate.zip (23.97 KB, 下载次数: 116)

IsoMateModified.zip (23.97 KB, 下载次数: 154)

作者: 84172246 时间: 2014-6-13 15:12
我也是一樣的情況 (2010)

作者: wulfwulf 时间: 2014-6-13 15:16
那是怎么一回事呢，进入调试，似乎在宏的最后一句出了问题：
——————————————————————————
Sub EndIM()
Cfg.ApplyDisplayState nDisp
Cfg.DeleteDisplayState "IsoMateTemp"
Model.ViewZoomtofit2
End Sub
——————————————————————————
我不懂VBA，大概猜测这个宏需要建立一个临时的名叫IsoMateTemp的显示状态，但我的软件不让它建立还是怎么的！
也许是这个宏需要系统的某一个选项还是参数必须是特定的，不懂，全是猜测！

作者: uy8jj5tm7tu 时间: 2014-6-13 15:16
@gt.adan
版主，请一定帮研究一下，这个宏对我很有用呢！

作者: 本来面目 时间: 2014-6-13 15:17
盡力傳達~能解決的話不只對前輩有用，其他人也跟著受惠呢！

作者: 6704gy7kgl 时间: 2014-6-13 15:17
宏內有兩段程序, 一段是主程序, 另一段是副程序.
直接咝械脑

作者: dujinji 时间: 2014-6-13 15:23
工程师太給力了~謝謝您。可是怎麼會這麼慢…><

作者: haoman521 时间: 2014-6-13 15:24
可以了~原帖的討論裡有說到更改了一下宏的內容，似乎變得更快了
建議大家下載第二個檔案：IsoMate Modified ，然後按大侠的方法設置或修改即可。
效果如下：

作者: lzwpan1012 时间: 2014-6-13 15:25
謝謝分享
2012 SP4 64位元
執行 " IsoMate.swp " OR " IsoMate Modified.swp " 如下皆正常

作者: 微笑后的我 时间: 2014-6-13 15:27
太好了，用手机上的论坛，大侠终于出手了，大侠能不能亲手改一下宏，再传上来，我真是这方面的白吃，或者谁帮忙照大侠的想法改了帮忙传上来！
我真是一点都不会弄呢，惭愧！

作者: 无烟虫 时间: 2014-6-13 15:29
前輩，按工程师六樓的方式去修改就可以了，不用一定要指定工程师呀~
就是把sub改成Function，然後關閉程式重啟再咝幸淮尉涂梢粤恕

作者: 蓝欣 时间: 2014-6-13 15:30
谢谢gt.adan版主，今天休息在家，真想现在就跑去办公室试一下！

作者: chenbo 时间: 2014-6-13 15:30
依工程师指導,修改如下,在2012測試正常,
但手上沒2007版可試!
'Sub EndIM()
'Cfg.ApplyDisplayState nDisp
'Cfg.DeleteDisplayState "IsoMateTemp"
'Model.ViewZoomtofit2
'Set cMateComps = Nothing
'End Sub
'如上 Sub EndIM() 副程式改用" Function " 可適用 2007 版
Function EndIM()
Cfg.ApplyDisplayState nDisp
Cfg.DeleteDisplayState "IsoMateTemp"
Model.ViewZoomtofit2
Set cMateComps = Nothing
End Function

作者: fenggloria 时间: 2014-6-13 15:35
谢谢分享！

作者: lyc2000lyc 时间: 2014-6-13 15:35
我也成功了!
謝謝樓主分享，大侠教學，大侠、梁兄指導細節。

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)