I successfully ran (stepped thru) program above: Open a Pro/Engineer file in Excel VBA 2003.
But when I tried to add code to it to Get a Parameter in the part file:
A = oModel.GetParam("A")
the Excel VBA compiler said: Method or data member not foun…
Hi,
I also get the same error message and my environment is set up just as you described. I tried to find solution on ptc.com site but there is none. Maybe the path to the text folder have to be explicitly defined in connection function.
Nice site.…
I forgot one thing, which is likely the cause why you are getting that error...
You have to add two System Variables in order to be able to communicate with ProE
1) RMB on My Computer --> Properties
2) Advanced --> Environment Variables
3) Add the…
Hi Gary,
Strange, it looks like you have got the correct setup (WF4 running, and a reference to "Pro/E VB API Type Library for Pro/E Wildfire 4.0"), so you should not get that error...
Can you get the macro which starts WF4.0 to work? (see another…
Can you tell me what the prerequisites are to be able to run this code? I have ProE Wildfire 4.0 installed and running, I have MS Excel 2007 with the Pro/E API Reference loaded, but when I run it, I get an error window on the Set conn = asynconn.Con…
This code will connect to a running session of Pro/ENGINEER and will change the Working Directory:
Sub Main()
Dim asynconn As New pfcls.CCpfcAsyncConnection
Dim conn As pfcls.IpfcAsyncConnection
Dim session As pfcls.IpfcBaseSession
'Make an asynch…
For this example you will need to have a drawing open in Pro/ENGINEER
Sub Print_Current_Sheet_To_PDF()
Dim asynconn As New pfcls.CCpfcAsyncConnection
Dim conn As pfcls.IpfcAsyncConnection
Dim session As pfcls.IpfcBaseSession
'Make an asynchronous connection with Pro/ENGINEER
Set conn = asynconn.Connect("", "", ".", 5)
This routine will open a Pro/E file from your WorkingDirectory in a new window:
Sub Main()
Dim asynconn As New pfcls.CCpfcAsyncConnection
Dim conn As pfcls.IpfcAsyncConnection
Dim session As pfcls.IpfcBaseSession
Dim oModel As pfcls.IpfcModel
'Make an asynchronous connection with Pro/ENGINEER
Set conn = asynconn.Connect("", "", ".", 5)
I just made $765 this week working from home for google. I cant believe how easy this is. Im recommending this to everyone, check out this guys google blog makemoneywith-google.com