Ik heb een macro gemaakt om de SmartProperties automatisch te starten op elk mechanisch gelast artikel.
Het werkt goed.
Aan de andere kant is het noodzakelijk om de lijst met mechanisch gelaste artikelen bij te werken, anders werkt het niet...
Iedereen weet dat de VBA commando (of macro) om deze update uit te voeren?
(Ik heb al geprobeerd een macro op te nemen en op de opdracht te klikken, maar er blijft niets achter in de gemaakte macro...)
Bedankt voor je hulp
PS: Ik ben op SolidWorks 2013
Hallo
Er is een VBA-voorbeeld in de SolidWorks Help!
In feite lijkt het erop dat de 1e link voor "Fire Post-Notify Event Example" is.
Dit forum praat over de update:
Dank u voor uw hulp.
Ik heb dit gevonden: https://forum.solidworks.com/thread/69294
Een beetje preciezer dan de jouwe.
Maar ik zit vast op de "saltMgr"... Waar komt het mee overeen?
Met de regel Set selMgr = Part.SelectionManager kunt u eenvoudig het onderdeel in het selMgr-object "krijgen" (soort van selecteren).
Dit is nodig voor het goede verloop van de macro.
Dat werkte niet...
Dim deel als ModelDoc2
Dim myPart als PartDoc
Dim myCutlist als BodyFolder
Dim myFeature als functie
Stel swapp in = Toepassing.SldWorks
Deel instellen = swapp. ActiveDoc
Als onderdeel niets is, sluit dan de sub af
Als Part.GetType <> 1 en sluit dan Sub af
Stel myPart = Deel in
Set selMgr = Part.SelectionManager
Als myPart.IsWeldment = false dan exit sub
Stel myFeature in = myPart.FeatureByName("Vaste lichamen")
Stel myCutlist in = myFeature.GetSpecificFeature2
myCutlist.UpdateCutList
"Solid Bodies" is de naam van de map in het Engels!
http://help.solidworks.com/2012/English/SolidWorks/sldworks/Organizing_Solid_Bodies.htm
Heeft u "Solid Bodies" vervangen door de naam van uw map (zoals "bodylijst" of "lijst met gelaste onderdelen")?
Nee, zelfs met de Franse naam werkt het niet.
Dus ik deed een macro zoekopdracht van de CutList map met uw eerste link.
Nu werkt het aan de top, bedankt
____________________________________
Sub maj()
Hoewel het niet swFeat is niets
Als swFeat.GetTypeName2 = "SolidBodyFolder" Dan
Dim swBodyFolder als SldWorks.BodyFolder
Stel swBodyFolder in = swFeat.GetSpecificFeature2
swBodyFolder.UpdateCutList
Einde als
Stel swFeat in = swFeat.GetNextFeature
Gaan
Einde Sub
-