QQ登录

只需一步,快速开始

登录 立即注册

我想批量清除配置特定属性里的所有内容,宏怎么写

[复制链接]
查看: 6167|回复: 13
蓝血刺猬 发表于 2017-2-8 14:26:18
如题
SOLIDWORKS.com.cn/portal.php?mod=list&catid=70" target="_blank" class="relatedlink">PDM里的数据卡识别的都是配置特定里的属性,之前的宏命令都是先清除自定义属性,再把属性写到自定义和配置特定里,但是不知道怎么写代码能直接把配置特定里的内容先清空,求教

用的下面这个清楚自定义属性的代码,还有更好的方法不?

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set cpm = swModel.Extension.CustomPropertyManager("")

vCustInfoNameArr2 = swModel.GetCustomInfoNames
  If Not IsEmpty(vCustInfoNameArr2) Then
     For Each vCustInfoName2 In vCustInfoNameArr2
         bRet = swModel.DeleteCustomInfo(vCustInfoName2)
      Next
  End If


这个能改成清空配置特定的不,或者用其他的啥代码
我和你 发表于 2017-2-26 16:40:34
1.删除当前配置的所有属性
  1. Set swApp = Application.SldWorks
  2. Set Part = swApp.ActiveDoc
  3. ConfName = Part.GetActiveConfiguration.Name
  4. Set CusPropMgr = Part.Extension.CustomPropertyManager(ConfName)
  5. Vnamearr = CusPropMgr.GetNames
  6.   If Not IsEmpty(Vnamearr) Then
  7.     For Each Vnamearr2 In Vnamearr
  8.     bRet = Part.DeleteCustomInfo2(ConfName, Vnamearr2)
  9.     Next
  10.   End If
复制代码
2.删除所有配置的所有属性
  1. Set swApp = Application.SldWorks
  2. Set Part = swApp.ActiveDoc
  3. CurCFGname = Part.GetConfigurationNames
  4. CurCFGnameCount = Part.GetConfigurationCount
  5. For i = 0 To CurCFGnameCount - 1
  6.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
  7.     Vnamearr = CusPropMgr.GetNames
  8.     If Not IsEmpty(Vnamearr) Then
  9.         For Each Vnamearr2 In Vnamearr
  10.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
  11.         Next
  12.     End If
  13. Next
复制代码


回复 支持 1 反对 0

使用道具 举报

hdgd501 发表于 2017-9-20 15:47:49
谢谢楼主无私奉献
vboicq 发表于 2017-10-18 10:31:08

谢谢楼主无私奉献
jsb03 发表于 2017-11-7 08:46:43
解决我一大难题
yuanming8847 发表于 2018-4-11 20:34:06
谢谢 学习了
innocencejeff 发表于 2018-4-17 15:52:50
楼主问题解决没啊
jyzas 发表于 2018-8-31 09:09:24
谢谢分享
回复

使用道具 举报

蓝心88 发表于 2019-1-16 19:23:01 来自手机
缺少End Sub怎么解决
LYNN.KEVIN 发表于 2019-3-1 16:41:37
我和你 发表于 2017-2-26 16:40
1.删除当前配置的所有属性
2.删除所有配置的所有属性

怎么使用这个宏代码呀,直接复制进新建宏,运行不了呀
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|京ICP备11009482号-2  

400 - 818 - 3535 (中国地区咨询电话) | 达索析统(上海)信息技术有限公司北京分公司

京ICP备11009482号-2 | 电话:01065362288

北京市朝阳区建国路79号华贸中心2号写字楼707-709室,邮编:100025

GMT+8, 2020-2-20 03:39 , Processed in 0.108976 second(s), 35 queries .

Copyright © 2002-2018 Dassault Systèmes - All rights reserved

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