设为首页收藏本站

开启辅助访问切换到宽版

好品数字

好品数字

SolidWorks机械工程师网——最大的SolidWorks学习平台»学习社区 › SolidWorks开发与拓展应用 › SolidWorks二次开发（宏，VBA） › 求助帖，有没有大神能告知删全部属性的怎么写，目前指挥 ...

发新帖

查看: 1534|回复: 6

上一主题

下一主题

求助帖，有没有大神能告知删全部属性的怎么写，目前指挥删自定义的，两个一起的不会

1 主题	5 帖子	1 金币

Rank: 1

积分: 21

电梯直达

跳转到指定楼层

楼主

楼主| 发表于 2024-3-20 19:03:52 | 只看该作者回帖奖励

回帖奖励

|倒序浏览 |阅读模式

好品数字

求助帖，有没有大神能告知删全部属性的怎么写，目前指挥删自定义的，两个一起的不会

分享到: QQ好友和群 QQ空间 腾讯微博 腾讯朋友

收藏0 转播 教程|习题|模型|技巧0 点赞0 拍砖0

SolidWorks机械工程师网

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

回复

使用道具举报

1 主题	5 帖子	1 金币

Rank: 1

积分: 21

沙发

楼主| 发表于 2024-3-20 19:07:53 | 只看该作者

远东卓越

有大神带带么

SolidWorks机械工程师网

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

回复支持反对

使用道具举报

2 主题	13 帖子	185 金币

Rank: 3 Rank: 3 Rank: 3

积分: 277

板凳

发表于 2024-3-20 21:38:17 | 只看该作者

好品数字

顶一下，坐等高手！

SolidWorks机械工程师网

回复支持反对

使用道具举报

9 主题	265 帖子	401 金币

VIP特别用户组

Rank: 30

积分: 2332

地板

发表于 2024-3-21 08:47:37 | 只看该作者

论坛不就一堆了吗？论坛搜索一下，

SolidWorks机械工程师网

回复支持反对

使用道具举报

0 主题	44 帖子	49 金币

Rank: 2 Rank: 2

积分: 144

5^#

发表于 2024-3-21 10:20:54 | 只看该作者

经典案例图书

SolidWorks机械工程师网，顶一下。

SolidWorks机械工程师网

回复支持反对

使用道具举报

22 主题	1568 帖子	235 金币

Rank: 8 Rank: 8

积分: 5967

6^#

发表于 2024-3-21 10:28:43 | 只看该作者

论坛上有，找找看看

SolidWorks机械工程师网

回复支持反对

使用道具举报

随遇而安9528

1 主题	568 帖子	52 金币

Rank: 6 Rank: 6 Rank: 6

积分: 1603

7^#

发表于 2024-3-22 09:22:58 | 只看该作者

经典案例图书

附件

Dim swApp As Object
Sub main() '删除自定义属性
Dim swApp As Object
Dim swModel2 As SldWorks.ModelDoc2
Dim vCustInfoNameArr2 As Variant
Set swApp = _
Application.SldWorks
Set swModel2 = swApp.ActiveDoc
vCustInfoNameArr2 = swModel2.GetCustomInfoNames
If Not IsEmpty(vCustInfoNameArr2) Then
For Each vCustInfoName2 In vCustInfoNameArr2
bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
Next
End If
End Sub
Sub main() '删除所有配置所有属性
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
CurCFGname = Part.GetConfigurationNames
CurCFGnameCount = Part.GetConfigurationCount
For i = 0 To CurCFGnameCount - 1
Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
Vnamearr = CusPropMgr.GetNames
If Not IsEmpty(Vnamearr) Then
For Each Vnamearr2 In Vnamearr
bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
Next
End If
Next
Set swApp = Application.SldWorks
End Sub

复制代码

SolidWorks机械工程师网

回复支持反对

使用道具举报

发新帖

关闭卷起

关闭卷起

SOLIDWORKS 2023 机械设计从入门到精通

手机版|小黑屋| GMT+8, 2024-5-31 14:10 , Processed in 0.189491 second(s), 34 queries .

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

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

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