更改装配体特征树标准件图标——更新适用2014——2017

arsenal13

   经典图书

更改装配体特征树标准件图标
功能：从装配体中选择一个或多个零件，将其图标更改成“标准件”图标，同样，也可以将图标还原。
操作间下图：






适用sw2013及以下——宏文件下载地址：
ChangeToolboxPartProperty.rar (23.27 KB, 下载次数: 149)

2017-7-5 23:40 上传

点击文件名下载附件
下载积分: 金币 -1

源代码如下：<div class="blockcode"><div id="code_ps5"><ol>'------------------------------------------------------------------------------'ChangeToolboxPartProperty'ChangeToolboxPartProperty.swp-byLunkay,Copyright2017/7/4'Contact:[emailprotected](Lunkay)'功能：'选中零件，更改标准件图标属性。''使用方法：'无'BGU:有时kill文件报错，无权限'-------------------------------------------------------------------------------#IfVBA7ThenPrivateDeclarePtrSafeFunctionGetKeyboardStateLib"user32"(pbKeyStateAsByte)AsLong#ElsePrivateDeclareFunctionGetKeyboardStateLib"user32"(pbKeyStateAsByte)AsLong#EndIfDimswDMAsSwDMApplicationDimswDocAsSwDMDocument12DimmOpenErrorsAsSwDmDocumentOpenErrorDimswCfgMgrAsSwDMConfigurationMgrDimobjClassfacAsSwDMClassFactoryConstSWDMLicenseKey="LicenseKey"DimswAppAsSldWorks.SldWorksDimswModelAsSldWorks.ModelDoc2DimswCompAsSldWorks.Component2DimswCompModelAsSldWorks.ModelDoc2DimArrSelectedObjects()AsVariantDimsCompNameAsStringDimsMgrAsSldWorks.SelectionMgrDimsTypAsSwConst.swSelectType_eDimiReplyAsStringDimswFrameAsSldWorks.Frame'declarestatusbarobjectDimnRetvalAsLongDimbRetAsBooleanDimnErrorsAsLongDimnWarningsAsLongDimmlngSWFileTypeAsLongDimretAsIntegerDimFilePathAsStringDimmlAsStringDimkeys(0To255)AsByteDimnAsLongDimCurSelCountAsLongDimswCompPartNameAsStringDimlongstatusAsLong,longwarningsAsLongPublicBZJAsLongConstMINSELECTIONS=1Submain()FrmChangeToolboxPartProperty.ShowSetswApp=Application.SldWorksSetswModel=swApp.ActiveDocIfswModelIsNothingThenMsgBox"请先打开一个装配体文件！",vbCritical,"更改标准件标记ByLunkay"EndEndIfIfswModel.GetType=2Then'如果模型是“装配体”SetsMgr=swModel.SelectionManagerIfsMgr.GetSelectedObjectCount

HUANGJIANHUA

怎么变脸的？

kenix00125

   经典图书

更改文件的ToolboxPart属性

hbgcjjh

xiaomeng6488

   经典案例图书

方便很多，谢谢分享。

jacksting

謝謝樓主的分享！
是否限定使用版本？

kuaileshuishou

   经典案例图书

好腻害的样子

zisikankan

所用函数，在高版本中任然有，没有被废弃。应该是都可以用的，但是使用了SWDM，不同sw，其SWDMlicense不同，所以没法通用，需要自行修改license。宏文件solidworks对象为前期绑定，不知道到其他soldiworks版本会不会引用丢失。有肯能需要修复。

wshplw

代码简陋，请版主予以完善修正。

xiaoyuer943057

   经典图书

谢谢分享好方法，学习。

progift

谢谢楼主的分享！

allan_

很厉害的样子

drewsone

谢谢分享

cll1205

在SW2017没用成功

hahafeng

加入QQ群
参与讨论和学习

或扫描二维码加入

学习学习！！！

date2007

   经典案例图书

下载顶楼sw2014-2017版本的试下

maoniao

加入QQ群
参与讨论和学习

或扫描二维码加入

改变图标的用意还望楼主明示

711231

   经典案例图书

SW2016及2017版本已测试，可以使用，只是改变后，零件的图标没变化，其实已经改成功了，关闭装配体，重新打开装配体，图标才显示正常。

liyi154

收到，感谢提出问题，针对此问题，已更正顶楼代码，代码适当位置增加了“强制重建模”。请测试。

yiyihe

更改意图场景：
1、从标准件库toolbox中脱出标准件，在上作修改另存当作己用，打开含有此文件的装配文档，文档图标为标准件图标。
2、……待补充……