SolidWorks机械工程师网——最大的SolidWorks学习平台»学习社区 › SolidWorks开发与拓展应用 › SolidWorks二次开发（宏，VBA） › 求大佬修改宏，急用！！！！

求大佬修改宏，急用！！！！

查看数: 5066 | 评论数: 15 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

iawifj

发布时间: 2022-7-31 18:12

正文摘要:

Dim swApp As SldWorks.SldWorks Dim Part As SldWorks.ModelDoc2 Dim thisFeat As SldWorks.Feature Dim thisSubFeat As SldWorks.Feature Dim cutFolder As Object Dim BodyCount As Integer Dim custPropMgr As S ...

刘茂机械 发表于 2022-8-1 14:20:02

blnretval = Part.DeleteCustomInfo2("", "展开长度") '删除属性栏上摘要信息的数据
blnretval = Part.DeleteCustomInfo2("", "展开宽度")
blnretval = Part.DeleteCustomInfo2("", "切割长度-外部")
blnretval = Part.DeleteCustomInfo2("", "切割长度-内部")
blnretval = Part.DeleteCustomInfo2("", "穿孔数")
blnretval = Part.DeleteCustomInfo2("", "折弯")
blnretval = Part.DeleteCustomInfo2("", "板厚")
blnretval = Part.DeleteCustomInfo2("", "开料尺寸")
blnretval = Part.AddCustomInfo3("", "展开长度", swCustomInfoText, bjkcd) '添加数据到摘要信息
blnretval = Part.AddCustomInfo3("", "展开宽度", swCustomInfoText, bjkkd)
blnretval = Part.AddCustomInfo3("", "切割长度-外部", swCustomInfoText, qgcdwb)
blnretval = Part.AddCustomInfo3("", "切割长度-内部", swCustomInfoText, qgcdnb)
blnretval = Part.AddCustomInfo3("", "穿孔数", swCustomInfoText, qg)
blnretval = Part.AddCustomInfo3("", "折弯", swCustomInfoText, zw)
blnretval = Part.AddCustomInfo3("", "板厚", swCustomInfoText, bjhd)
blnretval = Part.AddCustomInfo3("", "开料尺寸", swCustomInfoText, bjkcd&”x“&bjkkd&”x“&bjhd)
End Sub

懒懒的高贵 发表于 2022-8-23 17:26:05