Connecting to a Creo Parametric Process

VBA에서  CREO의 Session 연결에 대해 알아보자

---

Sub main()
	Dim asynconn As New pfcls.CCpfcAsyncConnection
	Dim conn As pfcls.IpfcAsyncConnection

IpfcAsyncConnection 클래스 :  Creo Parametric에 대한 비동기 연결을 나타냅니다.

---

On Error GoTo RunError
        Set conn = asynconn.Connect("", "", ".", 5)
        Set session = conn.session

Creo의 활성화  되어 있는 Session과 연결을 합니다. asynconn.Connect("", "", ".", 5)는 Creo Parametric에서 사용중인 디스플레이 이름, 연결할 Creo Parametric을 실행하는 사용자의 이름, 메시지 및 메뉴 파일이있는 경로, Creo Parametric이 연결 요청에 응답 할 때까지 대기하는 시간 (초)를 정의 합니다.  변수 "conn"은 비동기 연결을 나타내는 개체입니다.

---

위 내용을 정리하면 현재 Creo에 open 되어 있는 파일과 엑셀 VBA를 연결하는 코드 입니다. CREO와 연결오류가 발생하는 경우 ( 예 : CREO에 아무것고 Open 안된 경우, CREO 프로그램이 2개이상 실행된 경우)는 오류 메세지를 표시 합니다.

VBA 프로그램을 개발 할때  기본적으로 사용 하는 코드는 아래와 같습니다. 복사 하여 사용 합니다.

---

Sub Run()
    On Error GoTo RunError     
        Dim asynconn As New pfcls.CCpfcAsyncConnection
        Dim conn As pfcls.IpfcAsyncConnection
        Dim session As pfcls.IpfcBaseSession
    
        Set conn = asynconn.Connect("", "", ".", 5)
        Set session = conn.session
    
        Dim model As IpfcModel
        Set model = session.CurrentModel

    conn.Disconnect (2)

    RunError:
    
    If Err.Number <> 0 Then
        MsgBox "Process Failed : Unknown error occurred." + Chr(13) + _
                "Error No: " + CStr(Err.Number) + Chr(13) + _
                "Error: " + Err.Description, vbCritical, "Error"
    
        If Not conn Is Nothing Then
            If conn.IsRunning Then
                conn.Disconnect (2)
            End If
        End If
    End If

End Sub

 

---

 

VBA 프로그램 Template File v1

 

비즈니스 문의 : lionkk@idt21c.com

---