Does anyone have a execution file that will go into a folder and update all parts therein by applying "Remove All Part Appearances"? And then set all parts in that folder to a specific SW color? I have looked through past posts but nothing quite fits the bill.
This works great for stripping appeances from a part, except for multi body parts. Is their a way to include the command that in the UI is tooltipped as "Remove All Part Appearances From (filename)" to this macro? I've searched hard for this with no sucess.
Thank you.
Are you looking to add a Yes/No pop window in this macro such that macro asks you to whether you want to remove appearances OR not?
OR do you mean that you want to run the macro on the active file only.
Active file is all I need.
I'm running the macro specifically to nuke out all part appearences on an entire directory of parts, so I don't need any part specific options. I'm specifying the filepath at the beginning of the macro, and it works great except for the multibody parts.
Thank you.
Here is the one for active file:
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
swModel.Extension.RemoveMaterialProperty swAllConfiguration, Nothing
swModel.EditRebuild3
swModel.Save3 swSaveAsOptions_Silent, Empty, Empty
End Sub
Deepak,
I just ran this on a sample part and unfortunately that does the same thing as the macro posted above-- removes a bodies appearance but not all bodies appearances.
I am working with a sample part that contains multiple bodies (dumb bodies via assembly saved as part) as well as new part level features- the macro you shared removed the feature appearances but not the body appearances.
In the appearances manager in the part I can select the "remove all part appearances" option, and all appearances are removed. That is the behavior I'd like to replicate across a directory in a macro such as the one Keith posted above.
Thank you Deepak!
Is there something like "Bodies = swComp.GetBodies2(swAllBodies)" that could be used with "swModel.Extension.RemoveMaterialProperty" inside Keiths example?
Can you try using the example macro given in the SW API help files: Remove Material Properties From Bodies Example (VBA)
Deepak,
Thanks for pointing this to me-- looks promising, I am working with this now but I only hack at API blindly, I have no idea what I'm doing but I'm too naieve to let that stop me .
If that works for you then I can clean it up.
Thanks Deepak that is kind of you. I've pasted the code from the help file into Keith's macro, but get an error 91 which tells me I don't know what I'm doing. This is the code I found in the help file:
Dim instance As IBody2
Dim Config_opt As Integer
Dim Config_count As Integer
Dim Config_names As String
Dim value As Boolean
value = instance.IRemoveMaterialProperty(Config_opt, Config_count, Config_names)
I am a complete noob with this- I need to take a class or at least get a book. So I'm not yet sure if this works or not.
Thank you!
"Can you try using the example macro given in the SW API help files: Remove Material Properties From Bodies Example (VBA)"
This method does remove appearances from bodies, however this method doesn't do the job I'm looking for. The problem with managing appearances is that they can be applied to bodies, features, faces, surfaces-- and from looking at a part, you can't tell which selection set was used.
What I suspect James and the 1400 users who viewed this post are looking for is a method for eliminating appearances no matter what selection set the appearances are attached by.
I want to purge appearances from thousands of parts, no matter where they are attached in the part.
It's curious to me, I have tried the macro on Lenny's blog, others, from accomplished macro writers, and they don't do the job-- maybe part of it, but I'm looking for the silver-bullet nuclear option for appearances... no matter where the appearance is, delete, delete,delete.
If any one has an idea about how to solve this, I'd appreciate it. I'm still digging around in the API help.
What I want is this function via API:
Edit: I should mention that I'm using SW2010, this functionality may exist in API in 2015?
The only option I know of is using following codes (but this also remove all display states and all appearances like color, transparency, etc.)
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim modelDoc As SldWorks.ModelDoc2
Dim partDoc As SldWorks.partDoc
Dim boolstatus As Boolean
Sub main()
Set swApp = Application.SldWorks
Set modelDoc = swApp.ActiveDoc
Set partDoc = modelDoc
boolstatus = partDoc.RemoveAllDisplayStates
partDoc.ForceRebuild
End Sub
Deepak, This works like a charm in 2013, but fails in 2010---- one more reason for me to move to a newer version. Thank you so much.
I'm not able to use .exe files at my company without getting them checked out, but will give this a shot when I'm cleared to run it.
Wes Cox wrote:
Deepak, This works like a charm in 2013, but fails in 2010---- one more reason for me to move to a newer version.
Because RemoveAllDisplayStates is available from SW 2011 SP 4 and onward.
There are no API codes implemented for that but try this standalone application if that helps (click on picture to view details and download).
James,
You don't need an .exe. Just specify the folder in the constant strFolderPath (currently set to "C:\test\") before you run the macro:
======
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim strFileName As String
Const strFolderPath As String = "C:\test\"
Sub main()
Set swApp = Application.SldWorks
strFileName = Dir(strFolderPath & "*.SLDPRT")
While strFileName <> ""
Set swModel = swApp.OpenDoc6(strFolderPath & strFileName, swDocPART, 1, Empty, Empty, Empty)
swModel.Extension.RemoveMaterialProperty swAllConfiguration, Nothing
swModel.EditRebuild3
swModel.Save3 swSaveAsOptions_Silent, Empty, Empty
swApp.QuitDoc swModel.GetTitle
strFileName = Dir
Wend
End Sub
======
I added this macro (called "Remove appearances from all parts in a folder") to the Macro Library at my web site, by the way, in case you want to download the .swp.
Keith
Video Tutorials for the SolidWorks API