我还没运行，写完这一行，就报错了，表示这个语法应该有问题。作者: 鲁东秀才 时间: 2021-11-10 15:26
solidworks API 帮助例子
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swFeat As SldWorks.Feature
Dim swCustPropMgr As SldWorks.CustomPropertyManager
Dim nRetVal As Long
Dim vNameArr As Variant
Dim vName As Variant
Dim bRet As Boolean
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Set swFeat = swSelMgr.GetSelectedObject6(1, 0)
Set swCustPropMgr = swFeat.CustomPropertyManager
Debug.Print "File = " & swModel.GetPathName
Debug.Print " " & swFeat.Name & " [" & swFeat.GetTypeName & "]"
' Add custom property
bRet = swCustPropMgr.Add3("Date added", swCustomInfoType_e.swCustomInfoDate, "17-Apr-2005", swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd)
' Get all custom properties
vNameArr = swCustPropMgr.GetNames: If IsEmpty(vNameArr) Then Exit Sub
For Each vName In vNameArr
Debug.Print " " & vName & " [" & swCustPropMgr.GetType(vName) & "] = " & swCustPropMgr.Get(vName)
Next vName
End Sub作者: 鲁东秀才 时间: 2021-11-10 15:28
我一般用c#，你去掉括号试试 作者: 鲁东秀才 时间: 2021-11-10 15:31
这是solidworks API 帮助，自定义属性可以参考这个
Add and Get Custom Properties Example (VBA)
This example shows how to add and get a custom property assigned to a weldment feature.
'--------------------------------------------------------------
' Preconditions:
' 1. Open public_documents\samples\tutorial\api\weldment_box3.sldprt.
' 2. Select the Weldment feature in the FeatureManager design
' tree.
' 3. Open the Immediate window.
'
' Postconditions:
' 1. Adds a custom property named Date added to the selected
' weldment feature.
' 2. To verify:
' * Examine the Immediate window.
' * Right-click the Weldment feature in the FeatureManager
' design and click Properties.
'
' NOTE: Because the part is used elsewhere, do not save
' changes.
'-------------------------------------------------------------
Option Explicit
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swFeat As SldWorks.Feature
Dim swCustPropMgr As SldWorks.CustomPropertyManager
Dim nRetVal As Long
Dim vNameArr As Variant
Dim vName As Variant
Dim bRet As Boolean
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Set swFeat = swSelMgr.GetSelectedObject6(1, 0)
Set swCustPropMgr = swFeat.CustomPropertyManager
Debug.Print "File = " & swModel.GetPathName
Debug.Print " " & swFeat.Name & " [" & swFeat.GetTypeName & "]"
' Add custom property
bRet = swCustPropMgr.Add3("Date added", swCustomInfoType_e.swCustomInfoDate, "17-Apr-2005", swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd)
' Get all custom properties
vNameArr = swCustPropMgr.GetNames: If IsEmpty(vNameArr) Then Exit Sub
For Each vName In vNameArr
Debug.Print " " & vName & " [" & swCustPropMgr.GetType(vName) & "] = " & swCustPropMgr.Get(vName)
Next vName
End Sub作者: belibe 时间: 2021-11-10 15:41
.GIF)
