VBA, VB.NET For Creo315 Model 파일 Assemble ■ 프로그램 화면 - 하드디스크에 있는 모델 파일을 불러 옵니다 - 모델 이름은 VBA Cell에 있습니다. ■ 프로그램 코드 Option Explicit Sub componentAssy() Application.EnableEvents = False On Error GoTo RunError Dim pathArray As New Collection Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection Dim oSession As pfcls.IpfcBaseSession Dim oModel As IpfcModel Dim oSolid As IpfcSolid Dim oAssembly As IpfcAssembly Di.. 2022. 12. 28. 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 o.. 2022. 12. 27. Feature ID 및 Feature 이름 검색 프로그램 # 3/3 Feature의 번호 및 이름을 표시 하는 코드 입니다. Feature의 이름은 ipfcmodelitem을 사용 합니다. 사용자가 정의한 이름만 표시 됩니다 Option Explicit Sub Featurefail() Application.EnableEvents = False On Error GoTo RunError Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection: Set conn = asynconn.Connect("", "", ".", 5) Dim oSession As pfcls.IpfcBaseSession: Set oSession = conn.session Dim oModel As IpfcModel.. 2022. 12. 23. Parent-Child Relationships between the VB API Objects Parent Child IpfcSession IpfcModel IpfcSession IpfcWindow IpfcModel IpfcModelItem IpfcSolid IpfcFeature IpfcModel IpfcParameter IpfcModel IpfcExternalDataAccess IpfcPart IpfcMaterial IpfcModel IpfcView IpfcModel2D IpfcView2D IpfcSolid IpfcXSection IpfcSession IpfcDll (Creo Parametric TOOLKIT) IpfcSession IpfcJLinkApplication () 2022. 12. 23. Feature가 종속 하는 파일 이름이 Session에 없는 경우 Part를 구성 하는 Feature에 오류가 생기면, 어셈블을 Save As 하면, 오류 때문에 "재사용"이 불가능 합니다. 필요에 의해 최상위 어셈블 파일만 새롭게 만들어야 합니다. (Part를 변경하지 않고 어셈블리만 복사본 저장) 수백, 수천개의 부품이 "재사용" 불가 상태 입니다. 수백개의 파일을 수정 할수 없습니다. 다음과 같은 방법을 사용 합니다. >> 편법을 사용 합니다. 1) 최상위 어셈블리를 엽니다. 2) 삽입 화살표를 트리의 맨 위로 이동합니다(효과적으로 모든 항목을 억제 합니다) 3) 이제 어셈블리 사본을 새 이름으로 저장합니다. 4) 기존 어셈블리를 닫고 지웁니다. 5) 새 어셈블리를 열고 삽입 화살표를 취소합니다. 어셈블 이름만 변경된 파일을 만들수 있습니다. A, B plate에.. 2022. 12. 19. regenerate Failed Feature / Component Check . regenerate 실패한 Feature의 번호를 검색 합니다. . regenerate 실패한 Component의 번호를 검색 합니다. ■ VBA 코드 Option Explicit Sub Failchek() Application.EnableEvents = False On Error GoTo RunError Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection: Set conn = asynconn.Connect("", "", ".", 5) Dim oSession As pfcls.IpfcBaseSession: Set oSession = conn.session Dim oModel As IpfcModel: Se.. 2022. 12. 19. Regenerate 코드 Dim curSolid As IpfcSolid Set curSolid = session.CurrentModel session.SetConfigOption "regen_failure_handling", "resolve_mode" Dim regenInstrs As New CCpfcRegenInstructions Dim iRegenInstrs As IpfcRegenInstructions Set iRegenInstrs = regenInstrs.Create(False, True, Nothing) curSolid.Regenerate iRegenInstrs 2022. 12. 18. Create Creo Parameter VBA로 모델에 Parameter 만들기 Sting 타입의 Parameter를 만듭니다. Parameter 이름은 "E7 ~ E10"까지 입니다. 기본 값은 "IDT" 입니다. 1. 새로운 Parameter를 생성 하는 코드 - 이름이 동일한 Parameter가 모델에 있으면 오류가 발생 합니다 - String 타입으로만 생성 됩니다 Option Explicit Sub CreateParameter() On Error GoTo RunError Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection: Set conn = asynconn.Connect("", "", ".", 5) Dim oSession As pfc.. 2022. 12. 16. Template 프로그램 #2 ■ 새로운 파일 이름으로 저장 하기 1. Backup 코드 Template 파일은 3D 이름과 동일한 2D 파일로 구성 되어야 하고, Search_path로 정의되어 있어야 합니다. 또한 설계자가 입력한 Work Folder에 저장 합니다. Template Drawing 파일을 Open 합니다. Template Drawing 파일을 BackUP 합니다. 자동으로 3D Template 파일은 BACKUP 합니다. '// '// Creo Model Backup (3D , 2D ) '// Dim oTemplateDrawingName As String oTemplateDrawingName = Replace(Cells(7, "D"), ".prt", ".drw") Dim oCreateModelDescriptor A.. 2022. 12. 9. Template 프로그램 #1 ■ 소개 VBA 프로그램을 사용하여 자동으로 Creo 프로그램을 실행 할수 있습니다. 또한 Creo part 파일을 자동으로 open 할수 있습니다. 입력한 치수값을 모델에 대입하고, 새로운 Creo 파일 (3D, 2D)를 생성 할 수 있습니다. VBA 프로그램을 사용하여 자동으로 Creo 프로그램을 강제로 Kill 할수 있습니다. . Template 모델을 open 하고, 엑셀 파일에 입력된 치수 값을 모델에 적용. . Part 파일이 가지고 있는 특정 Feature를 삭제. (옵션 기능) . 변경된 치수 값으로 새로운 모델 (3D/ 2D)만들기. ■ 엑셀 매크로 파일에서 CREO 프로그램을 실행 할수 있습니다. Option Explicit Sub CreoExecution() Dim asynconn A.. 2022. 12. 8. 의뢰] Part List 프로그램 Customizing A02 "Part List 프로그램 변형 A02" 업데이트를 하였습니다. Creo 9.0 버전 환경으로 개발 하였습니다 의뢰] Part List 프로그램 변형 A01 ■ 아래 엑셀 파일 에 모델이 가지고 있는 "Creo Parameter"를 자동으로 표시 합니다. Drawing No : Creo 파일 이름 입니다. Skeleton 모델은 자동으로 삭제 합니다. 파일 확장자는 없습니다. Part Name : Creo Param tool-2020.tistory.com 다른 CREO 버전 사용자는 엑셀 > 개발도구 > 비주얼베이직 > 도구 > 참조에서 VBA API를 확인 합니다. Drawing Template 파일을 사용하여 새로운 도면을 자동으로 생성 할수 있습니다. - 도면 사이즈를 선택할 수 있습니다. - 선.. 2022. 12. 7. 도면 자동 생성 기능 Creo Drawing Template #2 Creo Drawing Template #1 ■ Drawing Template 필요성 Drawing Template은 자동으로 드로잉 도면을 만들수 있습니다. Drawing 모드에서 Drawing Template을 선택 합니다. Drawing 모드에서 모델의 "뷰"를 자동으로 선택 되 tool-2020.tistory.com 사전 준비 사항 1. 구글 드라이버 공유 폴더 설정 - 타 설계자와 협업 가능 2. config.pro > pro_format_ dir 설정 - format 파일 저장 위치 - 예제) F:\내 드라이브\creo_stds\format 3. config.pro > start_model_dir - template 모델 파일 저장 위치 - 예제) .. 2022. 11. 30. 이전 1 ··· 13 14 15 16 17 18 19 ··· 27 다음 반응형
