#3/3 Helical Sweep & VBA

□ 치수 이름으로 모델 변경

스프링 내경(SPRING_DIA) , 스프링 길이 (SPRING_LENGTH), 코일 단면 직경 (SPRING_SEC)의 치수 값을 변경 하는 코드를 추가 합니다

주요 사용 함수

▷ IpfcModelItemOwner

모델에서 아래와 같은 요소들을 가지고 올수 있습니다

EpfcITEM_FEATURE/ EpfcITEM_SURFACE/ EpfcITEM_EDGE/ EpfcITEM_COORD_SYS/ EpfcITEM_AXIS
EpfcITEM_POINT/ EpfcITEM_QUILT/ EpfcITEM_CURVE/ EpfcITEM_LAYER/ EpfcITEM_NOTE/ EpfcITEM_DIMENSION
EpfcITEM_REF_DIMENSION/ EpfcITEM_SIMPREP/ EpfcITEM_SOLID_GEOMETRY/ EpfcITEM_TABLE EpfcITEM_DTL_ENTITY/ EpfcITEM_DTL_NOTE/ EpfcITEM_DTL_GROUP/ EpfcITEM_DTL_SYM_DEFINITION
EpfcITEM_DTL_SYM_INSTANCE/ EpfcITEM_DTL_OLE_OBJECT/ EpfcITEM_EXPLODED_STATE
EpfcITEM_EDGE_START / EpfcITEM_LOG_EDGE/ EpfcITEM_EDGE_END/ EpfcITEM_XSEC
EpfcITEM_LAYER_STATE / EpfcITEM_COMBINED_STATE / EpfcITEM_STYLE_STATE
EpfcITEM_RP_MATERIAL / EpfcITEM_VIEW/ EpfcITEM_SURF_FIN/ EpfcITEM_ANNOT_PLANE
EpfcITEM_ANNOTATION_ELEM/ EpfcITEM_SET_DATUM_TAG / EpfcITEM_GTOL

EpfcITEM_BODY / EpfcITEM_CRV_START / EpfcITEM_CRV_END

▷ IpfcBaseDimension 
다음과 같은 작업을 수행할 수 있습니다:

1. 치수 값의 읽기 및 쓰기:
DimValue 속성을 통해 치수의 값을 읽거나 쓸 수 있습니다. 이를 통해 프로그래밍적으로 치수 값을 변경하거나 가져올 수 있습니다.

2. 치수 단위 설정:
Units 속성을 통해 치수의 단위를 설정하거나 가져올 수 있습니다. 예를 들어, 밀리미터(mm) 또는 인치(inch) 등의 단위를 지정할 수 있습니다.

□ Main 코드

Sub idt_spring()

     '/ 현재 세션 연결
     
    file_name.model_session
     
    '//Spring Dimension variable
    
    Dim ModelItemOwner As IpfcModelItemOwner
    Dim BaseDimension As IpfcBaseDimension
    
    Set ModelItemOwner = model
    
    Set BaseDimension = ModelItemOwner.GetItemByName(EpfcModelItemType.EpfcITEM_DIMENSION, "SPRING_LENGTH")
    BaseDimension.DimValue = Cells(6, "D")
    
    Set BaseDimension = ModelItemOwner.GetItemByName(EpfcModelItemType.EpfcITEM_DIMENSION, "SPRING_DIA")
    BaseDimension.DimValue = Cells(7, "D")
    
    Set BaseDimension = ModelItemOwner.GetItemByName(EpfcModelItemType.EpfcITEM_DIMENSION, "SPRING_SEC")
    BaseDimension.DimValue = Cells(8, "D")
    
End Sub

 

A	B	C

 

▷Creo File Download

idt_sping01.prt.3

0.12MB

 

▷Excel VBA File Download

ToolBOX VBA by IDT.xlsm

0.06MB

 

VBA를 통하여 모델에 있는 치수값을 변경 할수 있습니다. 자동으로 업데이트 하는 코드는 추가 되어 있지 않습니다

---

영업 문의 : lionkk@idt21c.com