Hello,
When I create a part, I use the custom properties to fill in the following:
part no.
description.
material.
I use them to fill in the title block of my drawing.
When I need to create a similar part to the original I use the 'save as..' function. This results in copying the custom properties too...
Offcourse the new part needs to get a new 'part no.', 'description' etc.
Is there a way to blank out the property values or to return the values to template settings.
Thanks
There can be several ways to fix it. The best will be to overwrite the values. OR you could use a macro that will delete the properties or blank out the values.
There is a handy tool PropertyWiper in
http://angelsix.com/products/ (under Free products-SolidWorks) to wipe out all custom properties (from the same folder) in one go.
Thanks to Luke Malpass
Edited:
Hmm. This will not blanck the values but deletes them all. So not exatly what you are after.
I found the macro that deletes all the properties, it works but it deletes the 'property name' too.
I really need some macro that only overwrites the values of the first 3 lines.
It would be really great if I could avoid filling in all lines over and over again with each new copied part.
Has somebody ever done this before? I can't imagine that I'm the only one dealing with this problem.
Is it possible to give a simple example of the programming?
thanks,
List down you properties and I can quickly edit/make a macro for you. OR upload your part containing the properties and list down the ones you want to modify or make blank.
make sure you upload part in SW2009 or below.
Try this code. It will delete the property (description) and then add it again. You can further modify it as required.
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim retval As String
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
retval = swModel.DeleteCustomInfo2("", "Description")
retval = swModel.AddCustomInfo3("", "description", swCustomInfoText, "")
swModel.ForceRebuild3 (False)
End Sub
I attached two parts along with this reply.
When I make a copy of 'final part.sldprt' (save as copy) I would like to blank out the values of the first 3 lines in the copied part, or overwrite them with the default values.
You'll find the default values in 'default.sldprt'.
The best solution would be a save as command/macro where the values would be erased automatically but I'll guess that's just impossible.
Here are the codes.
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim retval As String
Dim FileName As String
Dim FilePath As String
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
retval = swModel.DeleteCustomInfo2("", "tekeningnr")
retval = swModel.DeleteCustomInfo2("", "tekeningnr (oud)")
retval = swModel.DeleteCustomInfo2("", "zoek omschrijving")
retval = swModel.DeleteCustomInfo2("", "materiaal")
retval = swModel.AddCustomInfo3("", "tekeningnr", swCustomInfoText, "")
retval = swModel.AddCustomInfo3("", "tekeningnr (oud)", swCustomInfoText, "")
retval = swModel.AddCustomInfo3("", "zoek omschrijving", swCustomInfoText, "")
retval = swModel.AddCustomInfo3("", "materiaal", swCustomInfoText, """SW-Material""")
FileName = InputBox("Key in the new file name", "Add New File Name", FileName)
If FileName = "" Then
MsgBox "PLEASE INPUT A FILE NAME"
End
End If
FilePath = Folder
swModel.Extension.SaveAs Folder & FileName & ".prt", swSaveAsVersion_e.swSaveAsCurrentVersion, swSaveAsOptions_e.swSaveAsOptions_Silent, Nothing, 0, 0
'swApp.CloseDoc swModel.GetTitle
End Sub
Hi Deepak,
Thanks for everything you've done for us so far.
It seems to be working pretty good except that it always copies the new file to my desktop.
Do you think it's possible to let me browse to a destination folder when using the macro? And maybe use the 'save copy as' function too?
Hi Deepak,
It's looking great, though it would be great when it's possible to select with some kind of 'pull down' or 'selection input' if you want to 'save as' or 'save as copy' ?
Ok, a selection box would be prefered, but if it is easier to make a pull down, that's ok!
I really appreciate your help, without you, we would be struggling with this problem forever...
Hi,
I just tried it, seems to be working perfectly.
I guess that i've one question left...
Is it possible to choose with a button or pull down to save the new file to the same location as the original file? or to browse to a other location?
That would be the last thing asking from you i guess...
Thanks a lot!
The button under the filename give you option to browse and set the location for saving the new file.
The work steps should be
Yes, I understand. Though, it would be a easier when you have a option to choose between saving in the directory of the current part or to choose a new location for saving the new part.
So that you don't have to browse through all the maps when you want to save in the same folder as the current part.
I tried to add the button in your macro but as you'll probably understand, i'm new to macro's so the code I tried didn't really worked.
Hi Deepak,
Have you figured it out yet? Hope you are willing to adjust the code one more time.
It would be a great help for us.
Thanks,
Ok!
Isn't it possible with a pull down. like: If selected "current location" then save in the same directory as the original part, if selected "new location" then start the browse sub-routine?
SolidWorks does not allow you to enter null values in for Custom Properties from the Property Manager window. API or a special application (perhaps the ones noted above) are the only methods available to blanket out the values.
The Rigid Custom Properties editor has a method for blanking values if the use clears the value in the form.
Matt Lorono
Twitter: fcsuper
Some thoughts arised. Would it be better to just blank out values from an active document? And no more. The user could do a standard save (or save as) before or afer pushing the macro-button. This way the macro would do easily with all kind of documents (parts, assemblies & drawings).
If you want to keep options for saving inside the macro, you perhaps should also include options for desired types of file endings (.prt .sldprt .asm .sldasm). It would be easier to utilize if you could see the path and name of the file before pushing the button.
A nice package for anyone to build similar type of macros. At least I did learn from your code. Best luck to finalize this one!
Peter did you checked the modified macro in my above post Re: blank out values in custom properties