This post is a humble request to all Pro/ENGINEER developers out there to help me solve an extremely irritating problem. First let me begin by explaining my problem.

Unlike most CAD vendors, PTC does not give away their SDK (Software Development Kit) for free. So if you want to customize Pro/ENGINEER by means of plug-ins you need to purchase a license of something known as Pro/TOOLKIT, basically a C API used to develop what PTC calls auxiliary applications, or plug-ins. As a PTC partner I have… Continue

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 asynchronous connection with Pro/ENGINEER
Set conn = asynconn.Connect("", "", ".", 5)

'Get the current session
Set session = conn.session

'Show the current Working Directory
MsgBox "This is the current Working Directory: " & vbCrLf & session.GetCu… Continue

The code below will start a new session of Pro/ENGINEER:

Sub Main()
Dim asynconn As pfcls.CCpfcAsyncConnection
Dim conn As pfcls.IpfcAsyncConnection
Dim session As pfcls.IpfcBaseSession
Dim sProE_Start_Location As String

'This the full path to the exe file which will start Pro/ENGINEER
sProE_Start_Location = "C:\ptc\wf4\bin\proe.exe"

'Make an asynchronous connection to a new instance of Pro/ENGINEER
Set asynconn = New CCpfcAsyncConnection
Set conn = asynconn.Start(sProE_Start_Location, ".")… Continue

The code below shows how to run a 'mapkey'

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)

'Get the current session
Set session = conn.session

'Define a mapkey string which will perform a ViewRefit
Dim sMacroString As Strin… Continue

This routine will open a Pro/E file from your WorkingDirectory in a new window:

[code]
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)

'Get the current session
Set session = conn.session

'Open a Pro/E Model
Set oModel = Open_ProE_File(session, EpfcMDL_PART, "PRT0001.PRT")

'Show the na… Continue