Can someone help me with my macro? I tried to insert Bends with a Macro in a solid part. (With the insert bend feature)
And add some properties (that worked).
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swFeat As SldWorks.Feature
Dim swCustPropMgr As SldWorks.CustomPropertyManager
Dim bret As Boolean
Dim strName As String
Dim strLänge As String
Dim strLängeTrim As String
Const strBenennung As String = "Kassette"
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swModel = swApp.ActiveDoc
Set swFeat = swModel.FirstFeature
Set swCustPropMgr = swModel.Extension.CustomPropertyManager(Empty)
strName = Left(swModel.GetTitle, Len(swModel.GetTitle) - 7)
strLänge = Right(strName, 8)
strLängeTrim = Replace(strLänge, "-", "")
swCustPropMgr.Add3 "Länge", swCustomInfoText, strLängeTrim, swCustomPropertyReplaceValue
swCustPropMgr.Add3 "Benennung", swCustomInfoText, strBenennung, swCustomPropertyReplaceValue
Do While Not swFeat Is Nothing
If swFeat.GetTypeName2 = "Blech" Then 'Search for sheet-metal feature?
bret = swModel.ForceRebuild3(True)
Debug.Print "Positive"
Exit Sub
Else:
boolstatus = Part.Extension.SelectByRay(0.29..., 0.29..., 1.49..., -0.577381545199981, -0.57..., -0.57..., 3.80..., 2, False, 0, 0)
boolstatus = Part.InsertBends2(0.0015, "", 0.5, -1, True, 0.5, True)
bret = swModel.ForceRebuild3(True)
Debug.Print "Negative"
End If
Set swFeat = swFeat.GetNextFeature
Loop
Debug.Print "+#+#+#+" 'just for the command window
End Sub
SolidworksApi/macros