■ 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
'VBA, VB.NET For Creo' 카테고리의 다른 글
IpfcModelItemOwner / IpfcModelItem / IpfcCoordSystem (0) | 2022.11.23 |
---|---|
VBA Fundamentals #4 : IpfcSolid (0) | 2022.11.22 |
VB로 만든 설계 자동화 프로그램 (0) | 2022.11.18 |
Run-time error 2147417851 (80010105) (0) | 2022.11.16 |
Creo 6.0은 Windows 11과 호환되지 않습니다. (0) | 2022.11.15 |