Hi,
In this blog post: Automatically Run Macro On Model Open I explain two ways and provide source code to automatically run VBA code when model is opened
In both cases it is not requried to create add-in or install any additional software.
Thanks,
Artem
Hi Vladimir,
I'm sorry, I'm not sure I understand your request. If you follow the link there is source code available for both macros.
Thanks,
Artem
Hi Artem,
I still believe that for those who don't have an expert knowledge in API it would be very useful to see how it works on particular SW file(s) attached.
Hi Vladimir,
Thank you for the clarification. I will record a demo video which explains this and shows few examples.
Thanks,
Artem
I was looking at your blog and had a question. Is there a way to trigger a macro run on only initial model creation and only on that which is made from a certain model template? I would like to run a macro that added some custom properties but only to parts that were made from a Weldment model template.
Thanks
Hi Matt,
Yes, this is definitely possible (I will include this into tutorial). Just curious, why not just add those properties into the template itself (you already have a different template and you can add properties in there)?
Thanks,
Artem
Adding them to the template themselves would be preferable and considerably less complex, but for some reason SW does not carry over weldment properties in the weldment feature. You put them in the template, create a part and they are not there in the new part.
This is one of the many issues I've been having with weldments. A slew of them have been fixed with SP5, but not that one.
Thanks
Hi Matt,
I was trying to reproduce your issue. I'm on SW 2018 SP2. Please see video attached. It seems to be working OK for me without any additional macros. Could you please clarify the steps you are doing to reproduce this issue?
Thanks,
Artem
Wow, that's weird. Same exact thing for me does not work. I verified that it was pulling the template from the same file that I saved the properties to.
Weldment Properties in template.
Part Started with template
Hmmm, that's interesting. Could you please clarify what is your Service Pack version?
SP5. We just installed SP5 last week and this was the first thing I tried. SP5 seemed to fix a whole lot of issues with Weldments and custom properties but nothing changed with this issue. I assumed at that point that it was something that wasn't supposed to happen so I moved on to other ways to try and accomplish it.
I sent in a support ticket to my VAR on this issue yesterday. I will see how they respond. I'm pretty sure I've seen that others here have had the same issue as I have. In fact I think you're the first person that I have seen that it actually works for.
Thanks
Thank you for the clarification. For this you can use the macro I have provided. Just follow steps in the video/article and paste the following code into the HandlerModule module. In your template just add properties into file custom properties and those will be copied to the weldment in the template (you do not need to add any properties to the weldment - just file custom proeprties)
Dim swApp As SldWorks.SldWorks
Sub main(model As SldWorks.ModelDoc2)
Set swApp = Application.SldWorks
Set model = swApp.ActiveDoc
Dim swWldFeat As SldWorks.Feature
Set swWldFeat = GetWeldmentFeature(model)
If Not swWldFeat Is Nothing Then
Dim vPropNames As Variant
Dim vPropTypes As Variant
Dim vPropValues As Variant
model.Extension.CustomPropertyManager("").GetAll vPropNames, vPropTypes, vPropValues
Dim i As Integer
Dim swFeatPrpMgr As SldWorks.CustomPropertyManager
Set swFeatPrpMgr = swWldFeat.CustomPropertyManager
For i = 0 To UBound(vPropNames)
swFeatPrpMgr.Add3 CStr(vPropNames(i)), CInt(vPropTypes(i)), CStr(vPropValues(i)), swCustomPropertyAddOption_e.swCustomPropertyReplaceValue
Next
Else
Err.Raise vbError, "", "No weldment feature found"
End IfEnd Sub
Function GetWeldmentFeature(model As SldWorks.ModelDoc2) As SldWorks.Feature
Dim swFeat As SldWorks.Feature
Dim pos As Integer
pos = 0
Set swFeat = model.FeatureByPositionReverse(pos)
While Not swFeat Is Nothing
If swFeat.GetTypeName2 = "WeldmentFeature" Then
Set GetWeldmentFeature = swFeat
Exit Function
End If
pos = pos + 1
Set swFeat = model.FeatureByPositionReverse(pos)
Wend
End Function
Wow, Thanks.
I will work thru your online tutorial and this code and see if I can get it to work.
Thanks again.
I have published first video tutorial which explains how to use event handle approach to automatically assign file name based on a shared counter to the newly generated file: Automatically assign next part number to SOLIDWORKS file using macro - YouTube
Another video for the second approach with macro feature is on its way.
I have published another video which is using the macro feature to run macro on model load: https://www.youtube.com/watch?v=BTM5NZNdON8
In the video I demonstrate how to automatically log the entry into a text file when the document opens.
Thank you Artem, very interesting.
Would you, please, upload a simplified samples of both cases?