반응형
□ IpfcSurface 소개
인터페이스는 표면의 평가, 측정, 그리고 표현에 관련된 다양한 기능들을 한데 모아 제공함으로써, CAD 및 3D 모델링 소프트웨어에서 복잡한 표면 데이터를 효과적으로 처리할 수 있도록 돕습니다. 이 인터페이스를 통해 사용자는 표면의 기하학적 특성을 정밀하게 분석하고, 필요한 변환이나 계산 작업을 수행할 수 있습니다.
이 인터페이스는 IpfcModelItem의 하위 클래스이며, 여러 종류의 표면(예: 변환된 표면, 코언스 패치, 필렛 표면, 스플라인 표면, NURBS 표면 등)에서 공통적으로 사용되는 메서드와 속성을 제공합니다.
▷Code : Surfcae ID, Surface Area
Sub surface011()
'// Creo Connection
Call CreoVBAStart02.CreoConnt02
Set ws = ThisWorkbook.Worksheets("surface")
Set Model = BaseSession.CurrentModel
Set ModelItemOwner = Model
Set ModelItems = ModelItemOwner.ListItems(EpfcModelItemType.EpfcITEM_SURFACE)
For i = 0 To ModelItems.Count - 1
Set ModelItem = ModelItems.Item(i)
Set Surface = ModelItem
Debug.Print ModelItem.ID
Debug.Print Surface.EvalArea
Next i
End Sub
▷Code : Feaure's Surface Area
Option Explicit
Dim ws As Worksheet
Dim Model As pfcls.IpfcModel
Dim ModelItemOwner As IpfcModelItemOwner
Dim ModelItems As pfcls.IpfcModelItems
Dim ModelItem As pfcls.IpfcModelItem
Dim Feature As pfcls.IpfcFeature
Dim Surfaces As pfcls.IpfcModelItems
Dim Surface As pfcls.IpfcSurface
Dim i As Integer
Dim j As Integer
Sub surface011()
'// Creo Connection
Call CreoVBAStart02.CreoConnt02
Set ws = ThisWorkbook.Worksheets("surface")
Set Model = BaseSession.CurrentModel
Set ModelItemOwner = Model
Set ModelItems = ModelItemOwner.ListItems(EpfcModelItemType.EpfcITEM_FEATURE)
For i = 0 To ModelItems.Count - 1
Set Feature = ModelItems.Item(i)
Set Surfaces = Feature.ListSubItems(EpfcModelItemType.EpfcITEM_SURFACE)
Debug.Print Feature.Number
For j = 0 To Surfaces.Count - 1
Set Surface = Surfaces.Item(j)
Debug.Print Surface.Eval3DData
Next j
Next i
End Sub
by korealionkk@gmail.com
'VBA, VB.NET For Creo' 카테고리의 다른 글
Creo] IpfcModel (0) | 2025.02.01 |
---|---|
Creo] Get the dimensions that the model's features have (0) | 2025.01.29 |
Creo] Get drawing information - 작업중 (0) | 2025.01.27 |
CREO] Get selected Folder and file names (0) | 2025.01.26 |
Creo] Running Creo in the background (0) | 2025.01.25 |