设为首页收藏本站
开启辅助访问 切换到宽版

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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

好品数字
好品数字
SolidWorks机械工程师网——最大的SolidWorks学习平台»学习社区 › SolidWorks开发与拓展应用 › SolidWorks二次开发（宏，VBA） › 装配或零件下名称后显示材料名
12下一页
返回列表 发新帖
查看: 5113|回复: 25
打印 上一主题 下一主题

装配或零件下名称后显示材料名

  [复制链接]
567890

2

主题

59

帖子

487

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1240

最佳新人活跃会员热心会员宣传达人
跳转到指定楼层
楼主
 楼主| 发表于 2024-3-9 14:26:07 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
装配或零件下运行文件，可以批量修改零件名称后的显示状态，隐藏其它的树显示项目，只保留配置名称和说明，将材料名添加到配置说明并显示。效果见图


名称后显示材料名.rar

（10.81 KB, 下载次数: 30 售价: 10 金币 ）

评分

参与人数 1威望 +5 金币 +28 贡献 +5 收起 理由
马老大 + 5 + 28 + 5 赞一个!

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏3 转播转播 分享教程|习题|模型|技巧 点赞点赞 拍砖拍砖
SolidWorks机械工程师网
提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）
回复

使用道具 举报

567890

2

主题

59

帖子

487

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1240

最佳新人活跃会员热心会员宣传达人
推荐
 楼主| 发表于 2024-3-13 21:06:37 | 只看该作者
感谢大家的回复，确实程序在装配体有压缩零件时运行会报错，考虑不全，请多包涵，下面是修改后的代码：有两处需要修改，第一处原文代码:
  1. If Not swComp Is Nothing And Not swComp.IsSuppressed And swComp.GetModelDoc2.GetType = swDocumentTypes_e.swDocPART Then
  2.                     Document swComp.GetModelDoc2
  3.                 End If
复制代码
修改为:
  1. If Not swComp Is Nothing And Not swComp.IsSuppressed And Not swComp.GetModelDoc2 Is Nothing Then
  2.                     If swComp.GetModelDoc2.GetType = swDocumentTypes_e.swDocPART Then
  3.                         Document swComp.GetModelDoc2
  4.                     End If
  5.                 End If
复制代码
第二处原文代码:
  1. Set swFeatTree = swComp.GetModelDoc2.FeatureManager
  2.             ConfigureFeatureManager swFeatTree
复制代码
修改为:
  1. If Not swComp Is Nothing And Not swComp.IsSuppressed Then
  2.                 Dim compModel As SldWorks.ModelDoc2
  3.                 Set compModel = swComp.GetModelDoc2
  4.         
  5.                 If Not compModel Is Nothing Then
  6.                     Set swFeatTree = compModel.FeatureManager
  7.                     ConfigureFeatureManager swFeatTree
  8.                 End If
  9.             End If
复制代码


SolidWorks机械工程师网
提示：建议使用谷歌浏览器浏览本网站！如单击这里下载！否则，可能无法下载附件文件！（支持大多数版本的谷歌浏览器，支持360和QQ浏览器的极速模式，即谷歌内核模式，使用IE和Edge浏览器，浏览个别网页以及下载文件时，会误报“***不安全”，此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载，另外，本网站不含任何不安全的文件，已联系微软公司解决，纯属IE和Edge浏览器误报）
回复 支持 1 反对 0

使用道具 举报

沉默的人

3

主题

1128

帖子

237

金币

传奇

Rank: 8Rank: 8

积分
3795

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
板凳
发表于 2024-3-9 16:40:16 | 只看该作者
感谢楼主分享，很不错！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

z460515477

16

主题

236

帖子

631

金币

传奇

Rank: 8Rank: 8

积分
3246

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
地板
发表于 2024-3-11 00:06:11 | 只看该作者
好东西，努力学习学习！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

随遇而安9528

1

主题

568

帖子

52

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1603

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
5#
发表于 2024-3-12 08:26:18 | 只看该作者

   经典案例图书
很不错，顶一下！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

18753845346

1

主题

29

帖子

108

金币

VIP用户组

Rank: 100Rank: 100Rank: 100Rank: 100

积分
731

最佳新人活跃会员宣传达人
6#
发表于 2024-3-12 08:53:10 | 只看该作者
运行错误， 91
winth块变量未设置

企业微信截图_17102046775905.png

企业微信截图_17102046791455.png
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

wjbg2019

9

主题

257

帖子

358

金币

VIP特别用户组

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

积分
2216

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
7#
发表于 2024-3-12 13:38:56 | 只看该作者

   经典案例图书
好东西，努力学习学习！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

dengchenghui

2

主题

370

帖子

4

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1467

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
8#
发表于 2024-3-12 14:26:14 | 只看该作者
楼主辛苦了！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

Yemao丶

0

主题

151

帖子

257

金币

堂主

Rank: 4

积分
823

最佳新人活跃会员热心会员宣传达人灌水之王
9#
发表于 2024-3-12 17:04:06 来自手机 | 只看该作者
很不错，顶一下！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

dengchenghui

2

主题

370

帖子

4

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1467

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
10#
发表于 2024-3-13 11:11:09 | 只看该作者
楼主太有才了，膜拜中……
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

dengchenghui

2

主题

370

帖子

4

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1467

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
11#
发表于 2024-3-13 14:39:30 | 只看该作者
18753845346 发表于 2024-3-12 08:53
运行错误， 91
winth块变量未设置

我也有这个问题，你的解决了没有？
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

hhh001

1

主题

1992

帖子

1471

金币

传奇

Rank: 8Rank: 8

积分
7405

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
12#
发表于 2024-3-13 18:56:29 | 只看该作者
18753845346 发表于 2024-3-12 08:53
运行错误， 91
winth块变量未设置

同样也有这个问题，感觉一部分原因是装配体中有压缩文件，才报错
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

hhh001

1

主题

1992

帖子

1471

金币

传奇

Rank: 8Rank: 8

积分
7405

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
13#
发表于 2024-3-14 11:22:58 | 只看该作者
567890 发表于 2024-3-13 21:06
感谢大家的回复，确实程序在装配体有压缩零件时运行会报错，考虑不全，请多包涵，下面是修改后的代码：有两 ...

感谢楼主分享，改了后可以用
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

hdgd501

6

主题

611

帖子

834

金币

实习版主

Rank: 7Rank: 7Rank: 7Rank: 7

积分
5299

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
14#
发表于 2024-3-14 12:36:51 | 只看该作者
楼主太有才了，膜拜中……
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

淡淡的雲

22

主题

1537

帖子

225

金币

传奇

Rank: 8Rank: 8

积分
5835

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
15#
发表于 2024-3-15 15:52:49 | 只看该作者
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

感谢楼主分享，很不错！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

yni621

7

主题

424

帖子

787

金币

传奇

Rank: 8Rank: 8

积分
4500

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
16#
发表于 2024-3-15 16:02:06 | 只看该作者

   经典案例图书
567890 发表于 2024-3-13 21:06
感谢大家的回复，确实程序在装配体有压缩零件时运行会报错，考虑不全，请多包涵，下面是修改后的代码：有两 ...

正想上来问怎么改压缩报错，就有答案了，非常给力。
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

dengchenghui

2

主题

370

帖子

4

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1467

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
17#
发表于 2024-3-15 16:54:16 | 只看该作者
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

567890 发表于 2024-3-13 21:06
感谢大家的回复，确实程序在装配体有压缩零件时运行会报错，考虑不全，请多包涵，下面是修改后的代码：有两 ...

楼主能把改好的发一个给我吗？我改了以后还是不行。649798756@qq.com  谢谢
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

dengchenghui

2

主题

370

帖子

4

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1467

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献
18#
发表于 2024-3-15 16:56:43 | 只看该作者

   经典案例图书
楼主帮帮忙发一下给我，谢谢

d6c15e02eb033c435e26e854702236d.png
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

XBCYANP

1

主题

125

帖子

153

金币

堂主

Rank: 4

积分
815

最佳新人活跃会员热心会员宣传达人灌水之王
19#
发表于 2024-3-18 19:45:37 | 只看该作者
楼主辛苦了！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

tommyshy

0

主题

104

帖子

51

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
430

最佳新人活跃会员热心会员宣传达人
20#
发表于 2024-3-20 08:41:00 | 只看该作者
楼主很专业，写得很好！
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭 卷起
关闭 卷起

手机版|小黑屋| GMT+8, 2024-5-2 19:58 , Processed in 0.220938 second(s), 39 queries .

SolidWorks机械工程师网 ( 鲁ICP备14025122号-2 ) 鲁公网安备 37028502190335号

声明：本网言论纯属发表者个人意见，与本网立场无关。
如涉版权，可发邮件： admin@swbbsc.com

快速回复 返回顶部 返回列表