CAD Forum

Stefan Sterk

But . . . you have to do that for each configuration. That seems odd because when you open the scene properties window and edit it there, the setting applies to all the configurations. I didn't know you could even have different scenes for different configurations. Dwight Hi Dwight, use this code i...

Stefan Sterk

Hi bnemec, Not sure if this will help, but try compare it "1/1/1800" instead of a empty string. If you add a date (for example, DrawnDate), as a property, the software does not require you to enter a date for Value / Expression. However, if you do not enter a date, Microsoft interprets the...

Stefan Sterk

Hi Sjbennett88, Have you seen the macro in the link below?
https://www.codestack.net/solidworks-ap ... m-options/

Stefan Sterk

Hi Loeb, You could use ReorderFeature ' to place a new 'sub' folder within a folder. As shown in the code below. Sub main() Set swApp = Application.SldWorks Set swDoc = swApp.ActiveDoc If swDoc Is Nothing Then End If swDoc.GetType <> 1 And swDoc.GetType <> 2 Then End Set swDocExt = swDoc.Extension S...

Stefan Sterk

Hi Petertha, First thing, this topic has a better fit under the API section rather than the Macro Library . I've tried using ChatGPT, but I often had to make adjustments. I wouldn't recommend it for beginners, as it can sometimes lead you in the wrong direction. As for the 'o' in oDoc, I believe it ...

Stefan Sterk

For me Quick Access does works fine on Win11.

Stefan Sterk

Thx for sharing

By the way, you should call it Fruit Ninja

Stefan Sterk

@mihkov

RMB on the Annotations folder in the feature design tree and then disable 'Show Feature Dimensions'

Stefan Sterk

Can you help me understand the first line: Declare PtrSafe Function StrCmpLogicalW Lib "shlwapi" (ByVal s1 As String, ByVal s2 As String) As Integer -Thank You Hi Loeb, Just declaring a function from the shlwapi.dll . Having this line makes the code more copy past friendly. Otherwise you ...

Stefan Sterk

Funny you ask, there was some activity on my solution at the SOLIDWORKS forum yesterday. The code below should do the trick. UU Option Explicit Declare PtrSafe Function StrCmpLogicalW Lib "shlwapi" (ByVal s1 As String, ByVal s2 As String) As Integer Sub main() Dim swApp As SldWorks.SldWork...

Stefan Sterk

Just noticed SW24 SP05 is downloadable. Who has tried already?
They have addressed 23 SPR's for this SP.

Stefan Sterk

I have tried running the new macro, but when importing the userform, I get the following error. image.png UserForm1.log Line 8: Property OleObjectBlob in UserForm1 had an invalid file reference. I see. Got the same error when importing. Not sure why it's doing that. I have edited the post, you need...

Stefan Sterk

ok ... this might be a big ask ... im really not sure. feel free to tell me to bugger off if it is. Im just wondering if you might be able to modify this macro so that a selection box would pop up and allow you to select which display states you would want the macro to process? Is that doable? Yes ...

Stefan Sterk

Well, these are the changes you need to make to make that happen. These are just quick edits, so keep in mind that the code can still be optimized. But it will do the job. UU Simply change the following line with in Main() ExportFile swModel, OUT_NAME_TEMPLATES, ALL_CONFIGS, outFolder to ' ####### L...

Stefan Sterk

Thanks Stefan! It looks like this one will only export configurations .. but not display states. I have seen a few of these, but cant find any that will work with display states. Like a said, you would need to make some changes to the code. Use the following line for for OUT_NAME_TEMPLATES OUT_NAME...

Stefan Sterk

Hi Bradrordzzz,

Have you seen this macro from codestack.net?
https://www.codestack.net/solidworks-api/import-export/export-multi-formats/

Only need some changes, so it adds the name of the current/active display state to the name.

Stefan Sterk

josh wrote: ↑Mon Jun 03, 2024 11:42 am ...
Relations deleted using this macro cannot be un-deleted by exiting the sketch with the red "X".
...

Not sure, but couldn't this be fixed by using the following StartRecordingUndoObject Method (IModelDocExtension) - 2024 - SOLIDWORKS API Help?

Stefan Sterk

I also tried to imitated these conditions, and also got only TRUE values for WasResolved, since the value cleary wasn't as is shown in the attached image below. Using SOLIDWORKS 2023. image.png Used the code below to create the resultes in immediate windows. Option Explicit Sub main() Dim swApp As S...

Stefan Sterk

Hi mp3-250 , There are a few examples on codestack.net Macro Feature - Add Watermark Feature - Model Configurator - Link And Auto Update General Table To Excel - Generate Box Geometry - Link Cut-List Custom Properties To File Custom Properties - Automatically Run Macro On Model Load - Create MultiBo...

Stefan Sterk

Hi Craig, the code below will give a unique color to each component in a assembly. Thought I'd drop it here since you asked about it in our PMs. ' ################################################### ' # Title: Random Colorize Components # ' # Version: 24.1.26 # ' # Author: Stefan Sterk # ' #########...

Stefan Sterk

As gupta said, the code of artem will fit your need, straid out of the box.

Got some other info. The index for 'Last Saved With SW' doens't seems to be contant. On my Windows 11 system is is set on 330 instead of 336 (Windows 10). Not sure if it is Windows related or user setting.

Stefan Sterk

Tera wrote: ↑Thu Jan 11, 2024 8:09 pm I haven't reviewed @artem code yet, but your code returns null values.
What does 336 stands for?

Thanks.

336 is the index for 'Last Saved With SW' extended file attribute/detail. A value that can be shown in the file explorer. See image below. This is working for me

Stefan Sterk

Hi Tera, Have a look at https://www.codestack.net/solidworks-api/document/versions-report/ artem code used the solidworks application to get the version history. Which limits the speed. A faster way is to get the file atribute 'Last Saved With SW' itself, see example code below Sub main() Debug.Prin...

Stefan Sterk

Hi Craig Makarowski , See code below. 2023-11-24-01-16-35.gif Option Explicit Sub main() Dim swApp As SldWorks.SldWorks Dim swDoc As SldWorks.ModelDoc2 Dim swFeat As SldWorks.Feature Dim R() As Double, G() As Double, B() As Double Dim vMatVal(8) As Double Dim i As Long: i = -1 Set swApp = Applicatio...

Stefan Sterk

Here is a simple macro which gives you the power to easily reset your light sources within a SOLIDWORKS Part or Assembly model by deleting the current light sources and adding back the 'default' (user specified) light sources. Option Explicit Sub main() Dim swApp As SldWorks.SldWorks Dim swModel As ...

Stefan Sterk

Awesome Stuff @xitter. Keep up the work!

I noticed that there are a few lines you should remove at the start.

Stefan Sterk

mme wrote: ↑Tue Oct 24, 2023 9:42 am Open part or assemblies. Run the macro. Enter a new name. If there is a drawing, it will put the same name on the drawing.

Hi @mme,
Sounds the same as this macro; https://www.codestack.net/solidworks-ap ... t-drawing/

Stefan Sterk

Hi Mmike4 Here is a example on how you could get the name without the instance ID. Copy component name to the component reference using SOLIDWORKS API (codestack.net) '********************** 'Copyright(C) 2023 Xarial Pty Limited 'Reference: https://www.codestack.net/solidworks-api/document/assembly/...

Stefan Sterk

I believe the selected component is Ligthweight, which will throw an error when pulling the custom properties.

Stefan Sterk

Codestack.net also says to use 20x20px for SOLIDWORKS newer then 2015. "Optionally specify the icon. For SOLIDWORKS 2015 or older use 16 by 16 bitmap, for all newer version use 20 by 20 bitmap. Use white color as the transparency key." SOLIDWORKS icon size on macro features also starts at ...

Stefan Sterk

Rather than muck around with temporarily renaming things, you can simply post process the STEP file. It's text after all. The components are identified by the name followed by an underscore and then the configuration name. If you use C# or VB.NET you have a Regex.Replace method you can use to prepe...

Stefan Sterk

simple answer, yes you can. check Name2 . 1. open assembly 2. traverse through components 2.a rename component with Name2 . 2.b list comp in already renamed list 3.SaveAs (Export) 4.close assembly without saving. aslong as you dont save the document(s) the name changes wil only be in memory. other l...

Stefan Sterk

Does using the SaveAs3 method from IModelDocExtension give a different result?

Stefan Sterk

Hi colt , Replace swOpenDocOptions_e.swOpenDocOptions_Silent with Empty or -1 . swOpenDocOptions_e.swOpenDocOptions_Silent suppresses the warning dialogs like missing file. Set res = swApp.OpenDoc6(fileP , swDocumentTypes_e.swDocDRAWING, Empty, "", err, warn) Instead of Set res = swApp.Ope...

Stefan Sterk

I got this macro (Code below) that opens the file location in the Windows Explorer for the selected component. Option Explicit Sub main() Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swSelMgr As SldWorks.SelectionMgr Dim swComponent As SldWorks.Component2 Dim Path As String S...

Stefan Sterk

Yes you can. I got a macro that give me the ability to change the properties of a compenent that is selected in a drawing BOM.

Stefan Sterk

I made this post to express my dissatisfaction with how Solidworks and our VAR are handling this, and I'd like to hear your thoughts. I mean, is it just me? () So Solidworks introduced the ‘ Dissolve part level rows ’ option under ‘Detailed cut list’ in the bill of materials (BOM) options for Solidw...

Stefan Sterk

I contacted API Support and they suggest using AddMate5 with swMateCOORDINATE, which will align the axes. The code snippet below works as expected. Have fun with it ;) Sub main() Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swAsm As SldWorks.AssemblyDoc Dim swSelMgr As SldWor...

Stefan Sterk

Hi Zhen, The code that follows fulfills your request. The only issue I can identify is that the Origin Axes don't align as they would if I did it manually. grumph Sub main() Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swAsm As SldWorks.AssemblyDoc Dim swSelMgr As SldWorks.Se...

Stefan Sterk

I start by making a list of unique components and then loop through it. as demonstrated by the code below Option Explicit Sub main() Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swUniqueCompList() As SldWorks.Component2 Dim swComp As SldWorks.Component2 Dim vComp As Variant S...

Stefan Sterk

I'm running SW2021 SP5.1 and i do get the same behavior, and not just with the API calls, it also happens when just going to ⚙️ Options and click ing on the OK button does enable the floor shadow and reflection on none active configurations. ChangingDocumentPropertiesEnablesFloorShadowForNoneActiveC...

Stefan Sterk

Why would you perform the export twice and not just copy paste the file that you have exported with the FileCopy function? FirstPathName = FilePath & SaveFileName & "-" & Rev & ".STEP" SecondPathName = FilePathDump & SaveFileName & "-" & Rev ...

Stefan Sterk

The code below will put the bodies in a cut-list and add a custom property with the name of the body. Which you can link to a drawing note. And it also change the name of the cutlist folder to the name off the body with an extra space at the end. Let me know how it goes. Option Explicit ' Name of th...

Stefan Sterk

Hi Peter, Have you tried making a Cut-List by going to the Weldments tab and then clicking on the Weldment command. image.png You can then add properties to the cut list item, a partname for example. image.png image.png Which then can be linked to the drawing notes. image.png I believe there are som...

Stefan Sterk

Hey Stefan! I am using Resolved, but my SolidWorks is in french rather then english. Could that be the cause? This is the error I get on Visual Basic. 2nd image to show how I selected. 3rd image to show file location. image.png image.png image.png language shouldn't be the issue. That error you get...

Stefan Sterk

Hi Stephan, I've followed the instructions in your video, but nothing happens when I use the mouse gesture; no feedback of any sort. The drawings are in the same directory as the models and the filenames are identical. Any suggestions? Thanks Stefan, I've downloaded the macro and shared it with my ...

Stefan Sterk

Well Hello, For those who wanna open a drawing directly from another drawing BOM. Stop searching for a solution because this post will give you on. Happy reading, wachting and opening drawings. Note: The drawings needs to be in the same folder and having the same filename as the part/assembly you wa...

Search found 47 matches