#1 quilt의 면적 표시

■ 소개

모델에 이름("korea")이 정의된 면적을 표시 하는 기능입니다

▷ Croe 모델 준비

모델에서 서피스 여러개를 복사 하고, 이름을 "korea"로 정의 합니다 

[ Test 모델 ]

▷ Creo에서 면적 표시

[ Creo에서 측정 하기 ]

---

□ Quilt 면적을 표시 하는 코드

주의)

1. 모델에서 Quilt의 이름은 고유 해야 합니다
2. "IpfcQuilt.ListElements"의 경우, VBA 메뉴얼에는 Funtion은 있지만. 에디터에는 표시되지 않는 경우 있습니다. 

Dim Modelowner As IpfcModelItemOwner
Dim ModelItem As IpfcModelItem
Dim Quilt As IpfcQuilt
Dim Surface As IpfcSurfaces
        
Set Modelowner = model
Set ModelItem = Modelowner.GetItemByName(EpfcModelItemType.EpfcITEM_QUILT, "KOREA")
Set Quilt = ModelItem         
Set Surfaces = Quilt.ListElements
          
Dim i As Integer
'//quilt 면적 값 표시 변수
Dim quiltarea As Double
Dim totalquiltarea As Double

For i = 0 To Surfaces.Count - 1
    quiltarea = Surfaces(i).EvalArea
    totalquiltarea = totalquiltarea + quiltarea      
 Next i

MsgBox totalquiltarea

서피스의 면적을 표시하는 함수는 Creo VBA에서 제공 합니다. 하지만 Quilt에서 직접 면적을 구하는 함수는 별도로 제공하지 않습니다.  Quilt 구성하는 서피스 수량을 구하고,  For 문을 사용하여 Quilt의 면적을 표시 합니다.

 

---

영업문의 : lionkk@idt21c.com
카카오 채널 : http://pf.kakao.com/_fItAxb