Recent content by bOILERbRAD

I got it figured out. Apparently the refrences are case sensitive... DOH! Thanks for your help anyways!

Thanks for your quick replies. Standing, Yes I am using the Document Manager SDK (I have a key). Tick, If I do not open the part with the SWDM, how does VB know in which part references are to be replaced?

Hi. I am trying to write a stand-alone app that will replace references in an assembly and then save the doc and close it. I am having issues with replacing the references and then saving. here is some of my code: For Each folder In My.Computer.FileSystem.GetDirectories(DIR) toolno...

Make sure you use all the quotes in my first example. To pass quotes to a string in VB, they have to be double quotes. For example, string = "text" would give string the value of text. string = """text""" would yeild "text".

Cool beans! This will solve many, many, many issues. Thanks again handleman, a star for you good sir!

Glad to have helped!

Thanks handleman, I will look into that. Does the SW Explorer need to be open to use that api?

i forgot to mention that you must change partno and configuration_name to suit your needs.

I think this may help you. all the quotes are neccessary. weight = """SW-Mass@" & partno & ".SLDPRT""" PROP = swModel.AddCustomInfo3(configuration_name, "Weight", swCustomInfoText, weight)

Hello all, I am trying to create a macro that will copy a drawing and it's referenced parts to a new directory, rename all the documents copied, and update the references in the drawing to point to the new parts. I am having trouble with finding out what parts are referenced and then updating...

Dim vPrintsheets(0) As Variant

Print to a TIF file. can't go wrong there!

aliensquale, in the future I would steer clear of the all-in-wonder cards. They only make for good doorstops. Spoonful, as for your problem... did you try to update the video card drivers? Get the newest ones at nvidia.com. I use a 8800 GTX with Vista and SW was giving me fits before I updated...

I figured it out. As is, the code does absolutely nothing. I changed the save command and added some code that created the appropriate folder if it does not exist and that solved my problems. Here is that code if you were wondering. FOLDER = "M:\Solidworks\Tooling\Inspect\" & tooltbx.Text Set...

Hey guys, Can anyone tell me why this code is not saving my part? pDirectory = "M:\Solidworks\Tooling\Inspect\" & tooltbx.Text & "\" & tooltbx.Text & ".sldprt" If MsgBox("Save as " & pDirectory & "?", vbOKCancel, "Confirm Save") = vbOK Then Part.Extension.SaveAs pDirectory, 0, 2, Nothing...