' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("XXXXX_630S_dechargement_de_650_tendeur_standard-1@xxxxx/63_ensemble_tendeur_palier_(01)-3@XXXXX_630S_dechargement_de_650_tendeur_standard", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.CompConfigProperties4(2, 0, True, True, "Sans moteur", False, False)
Part.ClearSelection2 True
boolstatus = Part.EditRebuild3()
End Sub
Het probleem is dat wanneer ik deze macro opnieuw start, deze niet werkt, ik krijg een foutmelding
"Uitvoeringsfout '450'"
Ongeldig aantal argumenten of onjuiste toewijzing van eigenschappen
Ja, het is raar, als ik dat doe, komt de Solidworks-macrorecorder bijna dezelfde macro uit als jij, maar door "CompConfigProperties5" te zetten en niet "CompConfigProperties4" en dan werkt het omdat "CompConfigProperties5" nog een argument heeft.
En normaal gesproken zou het vanaf de 2019-versie van SW schoner zijn om de functie "CompConfigProperties6" te nemen, die nog een argument heeft...
Ter info, de functie "CompConfigProperties5" verscheen vanaf de 2017-versie, het zou interessant zijn om de evoluties te kennen die u hebt gevolgd in de opeenvolgende installaties van Solidworks en als u de VSTA-optie elke keer opnieuw installeert...
Ja, het is normaal dat het je de functie "CompConfigProperties4" biedt, maar het is raar dat het er ineens een te veel argumenten in stopt!!
Dit betekent dat dit een punt is om te controleren op macro's die uit de recorder komen, maar zoals remrem zei: "In de meeste gevallen, zelfs eenvoudige, macro-opname is niet genoeg.", dit is slechts een hulp om macro's te starten.