IpfcModel.Rename()

Sub Rename (NewName as String, RenameFilesToo as Boolean [optional])
  - Renames the model.
 -  RenameFilesToo Ignored: by default, this is false.

Sub Rename()

    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

    Call oModel.Rename("korea", False)

    'Disconnect with Creo
    conn.Disconnect (2)
    
End Sub

현재 활성호된 모델 개채를 "oModel"로 가져 옵니다.  IpfcModel.Rename() 서브 프로시져로 일름을 변경 합니다.

1. 이름이 변경된 원본 파일은 PC 하드 디스크에 존재 하는가?

    ▶ 원본 파일 이름은 변경됩니다. 그러나 Call oModel.Rename("korea", Ture) 변경하면 원본 파일은 존재 합니다.
         위 코드는 "저장" 기능은 없습니다. IpfcModel.Save() 프로시져를 추가 해야 하드디스크로 저장 합니다

2. Drawing 파일 이름과 동일하고, 연관된 3D 파일 이름은 자동 변경 되는가?

    ▶ Drawing 파일 이름을 변경하면, 3D 모델 이름은 자동 변경 불가능 합니다

3. 어셈블 파일과 연관된 파일 들은 자동 변경되는가?

    ▶ 자동 변경이 안됩니다

 

주의 >
1) 이름을 변경 하고자 하는 파일들은 모두 Session에 있어야 합니다.  TOP 어셈블 파일을 저장 하고, 드로잉 파일들을
     저장 합니다. 드로잉 파일을 먼저 저장 하면 오류가 발생 합니다.
2) 새로운 이름은 반드시 파일 확장자를 제외 하고 입력 합니다

 

by  lionkk@idt21c.com

---