본문 바로가기
  • 환영 합니다 ! Welcome!
VBA For Creo

VBA Fundamentals #3 : IpfcModel

by ToolBOX01 2022. 11. 20.
반응형

■ IpfcModel 개체

Model은 부품, 어셈블리, 드로잉, 단면 및 노트북을 포함한 모든Creo Parametric파일 유형일 수 있습니다. IpfcModel모듈의 개체는 유형에 관계없이 모델에 대한 일반 액세스를 제공합니다. 

•  모델에 대한 정보에 액세스합니다.
•  모델을 열고, 복사하고, 이름을 바꾸고, 저장합니다.

모델의 이름을 변경 하는 코드 입니다.

 

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 pfcl

tool-2020.tistory.com

모델을 백업 하는 코드 입니다

 

IpfcModel.backup()

3D / 2D 모델을 특정 폴더에 저장 할수 있습니다. 1) 2D 모델을 BACKUP 하면, 포함된 3D 모델도 함께 BackUP 됩니다 2) 어셈블 파일을 BackUP 하면, 포함된 3D 모델도 함께 Copy 됩니다 ++++++++++++++++++++++++++++++++

tool-2020.tistory.com

 

모델을 복사 하는 코드 입니다

 

IpfcModel.Copy()

■함수 Sub Copy (NewName as String, Instructions as IpfcCopyInstructions [optional]) - Session에 있는 모델의 파일을 다른 명명된 폴더의 파일로 복사합니다. 모델 사본은 세션으로 검색되지 않습니다. - 새로운 파

tool-2020.tistory.com

 

Property:   Origin as String
모델 원점의 위치를 표시 합니다.

Sub FileLocation()

    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