ToolBOX VBA 1.5 개발 작업 #4

■ 재질 파일 선택 기능

재질 파일 선택 하는 기능을 추가 하였습니다. 모델에 선택한 재질 파일을 지정 할 수 있습니다.

[ 재질 파일 선택 기능 ]

지정된 재질 파일을 이용하여, 모델의 무게를 자동 계산 할수 있습니다. 재질 파일 이름은  "Material" 탭에서 관리 합니다.

[ 재질 파일 관리 ]

Sub MaterialSelect_01()

    Sheets("Material").Select '// Material Sheet Select
    
    Dim oMetalrng As Range
    '// 재질 파일 개수
    Set oMetalrng = Sheets("Material").Range("A6", Cells(Rows.Count, "A").End(xlUp))

    Dim iCnt, jCnt As Long
    Dim oMaterialFileName() As String
    ReDim oMaterialFileName(0 To oMetalrng.Count - 1)
    
        For jCnt = 0 To oMetalrng.Count - 1
        
            oMaterialFileName(jCnt) = oMetalrng.Cells(jCnt + 6, "B")
    
        Next jCnt
        
    Worksheets("Part List").Select '// Component Info Sheet Select
      
    Dim oMetalregion As Variant
    oMetalregion = oMaterialFileName()

    Dim region_range As Range
    
    '// Part list 파일 개수
        Dim oFilerng As Range: Set oFilerng = Range("A16", Cells(Rows.Count, "A").End(xlUp))
    
    For iCnt = 0 To oFilerng.Count - 1
    
        Set region_range = Cells(iCnt + 16, "G")
        
            With region_range.Validation
                       .Delete
                       .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:=Join(oMetalregion, ",")
                       .IgnoreBlank = True
                       .InCellDropdown = True
                       .InputTitle = ""
                       .ErrorTitle = "Error"
                       .InputMessage = ""
                       .ErrorMessage = "Please Provide a Valid Input"
                       .ShowInput = True
                       .ShowError = True
            End With
    Next iCnt

End Sub

 

설계자, 검토자, 승인자 이름도 선택하여 Parameter에 입력 할수 있도록,  별도의 탭에서 관리 할수 있습니다.
모델의 제조 방법에 따라 구분하는 Class Parameter에 사용 할수 있습니다. 표면 처리도 Parameter에 입력 할수 있습니다.
별도의 탭으로 Parameter에 입력 내용을 관리 합니다. 선택 하여 설계자가 입력 할 수 있습니다.

■ Regeneration Fail 체크

Regen Fail 체크 기능을 추가 하였습니다. 오류가 있는 모델은 "Fail"로 표시 됩니다. Reference 체크 센터를 이용하여
세부 내용을 확인하고, 모델을 수정 합니다. 

 

>> 참고자료

Creo 4.0 and PowerShell - Part 6: Check for Regeneration Errors and Find Missing Files