【转帖】delete all custom properties

yang686526

delete all custom properties
i have found several examples of how to do this but none seem to work, i need a macro that i can run that will delete all custom properties regardless of property name.
i have a macro that will add custom properties and it is written so that it does not require solidworks, it uses windows to create the custom property. i would like to do the same for deleting the custom properties.
can someone please provide some sample code showing how to delete all custom properties?
thanks,
sam
thanks roland, the macro from esoxrepublic is one that i had tried and had a problem with. i cannot recall what the error was but it would run.
i will try the one from fcsuper...
thanks
sam
edited: 05/15/2008 at 09:13 am by sam s
if you struggle i can add the ability to batchprocess in minutes, however it runs with solidworks not the document manager like you are on about. i can also create a tool to do it if that is what you require just let me know.
i just posted an updated version. references updated to include sw 2007 commands type library. this should fix.
i would appreciate feedback.
thanks for working on this roland, unfortunately i get the same error, "run time error 9, subscript out of range"
sam
i'm not having luck pinning down causes for "runtime error 9". could be a corrupt or missing resource. sometimes linked to virus on user's computer. any help from others on this subject would be helpful.
originally posted by: roland schwarz
i would appreciate feedback.
the link to the download page does not work for me. i use firefox. i get a 404 page not found error.
i did however delete some extra characters form the address bar and found the download page. i ran the macro on a part, assembly, and drawing. no errors, appears to work as expected. i am using sw2007 sp5.0
drc inc.
minneapolis, mn
.designreadycontrols.com
sw2007 sp5.0
core2 quad
3gb ram
xp pro sp2
ati firegl v3600
thx for feedback.
link repaired.
i am on sw2007sp4.0
in deletecustominfo1 module, find sub main(). change the line
set swapp = createobject("sldworks.application")
to
set swapp = application.sldworks
you will also have to have a document open before you run the macro.
wayne matus
texas engineering systems