添加自定义属性宏代码报错

最新推荐文章于 2025-01-14 09:17:54 发布

Nex_2021

最新推荐文章于 2025-01-14 09:17:54 发布

阅读量1.2k

点赞数

文章标签： solidworks vba

本文链接：https://blog.csdn.net/Nex_2021/article/details/119707491

版权

在尝试使用VBA在SolidWorks自定义属性中添加公式时遇到错误。代码段展示了尝试设置物料编码和名称的逻辑，但遇到了问题。求助如何修改代码以成功将计算后的值写入自定义属性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

下面一段代码，想在自定义属性中加入一串公式：Part.Extension.CustomPropertyManager("").Set("物料编码",Rtrim(Left(Part.GetTitle,InStr(Part.GetTitle," "))))，如图，以下代码总是报错，求大神帮助看怎么改，才能成功把后面打红的成功写入到自定义属性里，像图2的成功效果图片

'从这里开始复制:
'定义solidwork
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Dim strmat As String
Dim strmass As String
Dim strYes As String
Dim tempvalue As String
Sub main()
'link solidworks
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc

vCustInfoNameArr2 = Part.GetCustomInfoNames

If Not IsEmpty(vCustInfoNameArr2) Then
For Each vCustInfoName2 In vCustInfoNameArr2
bRet = Part