×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

I am looking for some Solid Edge VBA help!

I am looking for some Solid Edge VBA help!

I am looking for some Solid Edge VBA help!

(OP)
I am trying to edit the linked part to a draft file using VBA.  Can anyone help?  For example:  I have adraft file with part "A" linked to the draft, and I want to chnage the link to part "B" instead.

RE: I am looking for some Solid Edge VBA help!

Hello, you must use replace command that you can find
in the online help.

Do you make some macros in VB for Solid Edge?
I use Solid Edge for my job and I make macros for Draft,
Part and Assembly. I think it is interesting
if we exchange our knowledge.
Visit this website, I find it very interesting:
http://www.geocities.com/segurucool/

RE: I am looking for some Solid Edge VBA help!

(OP)
Thanks for the info.  Do you have any examples of your use of replace?  I am more of a compiler than a programmer.  I am createing a rules based configurator in Excel, using VBA as my programming language. I have my rules laid out in "if..hen..else" comments.  It pulls data from SQL data base to populate dimensions.  It works pretty well.  I am able to change the variables and part properties.  But, I have not found a good example of changing or replacing the linked part to a draft file.  How can I get in touch with you?

RE: I am looking for some Solid Edge VBA help!

this is an example:
Set objApp = CreateObject("RevisionManager.Application")
' Open the top level assembly.
Set objDocument1 = objApp.Open("example.asm")
objDocument1.Copy ("newfilename.asm")
Set objAsmDocuments = objDocument1.LinkedDocuments(0)
For Each objlinked In objAsmDocuments
        objlinked.Copy ("copy.par")
        objlinked.Replace ("replace.par")
Next
-------
I hope it work properly.

RE: I am looking for some Solid Edge VBA help!

(OP)
That looks like what I need, I will try it now.  Thank you for your help.

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources