본문 바로가기
  • Welcome!
VBA, VB.NET For Creo

IpfcModel.Copy()

by ToolBOX01 2022. 9. 27.
반응형

Sub Copy (NewName as String, Instructions as IpfcCopyInstructions [optional])

- Session에 있는 모델의 파일을 사용자가 정의한 폴더에 파일로 복사합니다.
   모델 사본은 세션으로 검색되지 않습니다.

- 새로운 파일 이름은 파일 확장자는 입력하지 않습니다

- IpfcCopyInstructions 기능은 Creo 6.0에서 사용이 불가능 합니다. PTC에서 아직 개발 하지 않았습니다

주의 >

1. 동일한 이름의 2D 파일은  3D 파일이 Copy 할때,  Copy 되지 않습니다. (T.T) 

2. 어셈블 파일이  Copy 하면, Sub 및 Part 파일들은 Copy 되지 않습니다.(T.T)

3. "rename_drawing_with_object", "both"를 설정해도 동일한 이름의 도면은  Copy 되지 않습니다

 

sub FileCopy ()	
    Dim asynconn As New pfcls.CCpfcAsyncConnection	
	Dim conn As pfcls.IpfcAsyncConnection
	Set conn = asynconn.Connect("", "", ".", 5)
	Dim oSession As IpfcBaseSession
	Set oSession = conn.Session
	Dim oModel As IpfcModel
	Set oModel = oSession.CurrentModel
    
	'Copy File Name
	Dim oCopryFileName As String: oCopryFileName = "korea"
        
	'Save Folder
	oSession.ChangeDirectory ("C:\idt\backup")
        
	Call oModel.Copy(oCopryFileName, Nothing)     
           
    conn.Disconnect (2)

End Sub