孤立显示有装配关系对象的宏

只看该作者 · 发表于 2014-6-14 00:28:55

本帖最后由 gt.adan 于 2014-6-14 00:44 编辑

panliang9 发表于 2014-6-13 22:34
太好了，用手机上的论坛，闷大终于出手了，闷大能不能亲手改一下宏，再传上来，我真是这方面的白吃，或者谁 ...

前輩，按悶大六樓的方式去修改就可以了，不用一定要指定悶大呀~
就是把sub改成Function，然後關閉程式重啟再運行一次就可以了。
您動手試下吧~

来自手机 · 发表于 2014-6-14 08:26:46

gt.adan 发表于 2014-6-14 00:28
前輩，按悶大六樓的方式去修改就可以了，不用一定要指定悶大呀~
就是把sub改成Function，然後關閉程式重 ...

谢谢gt.adan版主，今天休息在家，真想现在就跑去办公室试一下！

只看该作者 · 发表于 2014-6-14 10:09:15

panliang9 发表于 2014-6-14 08:26
谢谢gt.adan版主，今天休息在家，真想现在就跑去办公室试一下！

依悶大指導,修改如下,在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

只看该作者 · 发表于 2014-6-15 21:54:05

谢谢分享！

只看该作者 · 发表于 2014-6-16 10:44:53

我也成功了!

謝謝樓主分享，悶老大教學，丹大、梁兄指導細節。

只看该作者 · 发表于 2017-6-27 21:33:07

这个宏对我很有用

只看该作者 · 发表于 2017-6-30 18:39:17

谢谢分享

只看该作者 · 发表于 2018-8-10 14:53:35

特来学习

只看该作者 · 发表于 2018-8-10 19:44:12

这个宏好！顶起来

只看该作者 · 发表于 2018-8-15 06:55:05

谢谢分享

[讨论] 孤立显示有装配关系对象的宏

浏览过的版块