VBA, VB.NET For Creo315 Creo VBA 실행 에러 메세지 처리 ■ 소스 코드 Creo에 Open된 파일 이름을 표시 합니다. Sub Model_Nanme() On Error GoTo RunError Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection Dim session As pfcls.IpfcBaseSession Dim Model As pfcls.IpfcModel Set conn = asynconn.Connect("", "", ".", 5) 'Get the current session Set session = conn.session Set Model = session.CurrentModel Range("C2").Value = Model.Filename 'Discon.. 2022. 8. 26. VBA 기초 - Hello World ■ 엑셀 Sheet에 Hello World 표시 합니다. CREO VB 개발 도구 설치 및 VBA 엑셀 설정을 완료 하였으면, 정상적으로 VBA 엑셀 편집기와 CREO 모델을 연결 상태를 확인 해야 합니다. Hello World 표시를 VBA 엑셀에서 아래 코드를 입력 하여 실행 합니다. 1. VBA 엑셀 에서 "Hello World" 문장을 Cell에 표시 하기 - 소스 코드 Sub 헬로월드() 'Sheet1의 "A1"에 "hello world"를 출력 하시오. Sheet1.Range("A1").Value = "hello world" End Sub 2. VBA 엑셀 에서 "Hello World" 문장을 여러번 Cell에 표시 하기 - 소스 코드 Sub 헬로월드() 'Sheet1의 "A1"에 "hello.. 2022. 8. 22. Excel VBA development environment 1. 매크로 설정 File > Option > 보안센터 > 매크로 설정 2. 제한된 보기 설정 File > Option > 보안센터 > 제한된 보기 3. 개발 도구 매뉴 추가 ■ Creo VBA API 연결 테스트 첨부된 엑셀 파일을 실행 하여, CREO에서 현재 활성화된 모델(Part, Asm)의 이름을 가져옵니다. Creo 모델을 Open 합니다. 첨부된 엑셀 파일을 Open 합니다. 새로 고침을 실행 합니다. Croe 모델 이름을 표시 됩니다 ■ VBA 엑셀 프로그램 소스 코드 Sub Model_Nanme() Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection Dim session As pfcls.I.. 2022. 8. 20. Setting up the VBA API 환경 설정 ■ VBA API 필요성반복적인 업무를 프로그램으로 처리하여, 좀더 생산적이고, 부가 가치가 높은 업무에 노력을 투입하십시요Creo는 다양한 개발 도구를 제공 합니다. Pro/program, VB, VBA, JAVA, C## API를 제공(유료, 무료 라이선스) 합니다 여려가지 개발 언어중 설계자가 쉽게 개발 도구를 이용해 빠르고 쉽게, 자동 설계 아이디어를 만들수 있는 프로그램 언어는 Excel VBA 입니다. 설계자 뿐만 아니아 일반 업무를 보는 사무직 직원분들도 Excel 프로그램을 기본적으로 사용 중입니다. Excel 프로그램이 기본으로 제공하는 기능으로도 사무업무를 자동화 합니다.VBA 프로그램 개발은 Creo가 제공하는 API를 호출하고, 조합하여 프로그램을 개발 합니다. 개발자는 A.. 2022. 8. 20. 치수 값을 자동으로 대입 하여, 모델 면적 표시하기 Changing the model with multiple dimension values Template 모델에서 변경하고자 하는 치수들을 읽어 모델을 변경 합니다. 면적을 구하는 Feature를 생성하고, 면적 매개변수 값을 표시 합니다. Dimension List의 dim_width , dim_height 값을 입력 합니다. 프로그램이 자동으로 Creo 모델에 치수값을 대입 합니다 프로그램 소스 Sub Dimension_Modify() Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection Dim session As pfcls.IpfcBaseSession On Error GoTo RunError Set c.. 2021. 3. 30. Feature ID 및 Feature 이름 검색 프로그램 # 2/3 Feature Number and Feature Type Name List IpfcModelItemOwner 연결된 모델 항목 (예 : 모델)이있는 개체의 기본 클래스입니다. IpfcModelItemOwner.ListItems(Type as IpfcModelItemType [optional]) as IpfcModelItems [optional] EpfcModelItemType.EpfcITEM_FEATURE IpfcModelItem 이 클래스는 모델 항목을 정의합니다. 가능한 모델 항목 유형은 다음과 같습니다. ITEM_FEATURE ITEM_SURFACE ITEM_EDGE ITEM_COORD_SYS ITEM_AXIS ITEM_POINT ITEM_QUILT ITEM_CURVE ITEM_LAYER ITEM_.. 2021. 3. 22. developing . . . . Drawing Dimension All Display With Tolerence 도면에 배치된 치수를 표시합니다 Display dimensions linked to the drawing 공차와 함께 표시하는 프로그램 입니다 This is a program that displays with tolerances 1. Drawing Sheet ▶ IpfcSheetOwner Object 시트가 포함 된 모델을 나타냅니다. 시트의 추가, 삭제 , 스케일 등을 할 수 있습니다. ▶ IpfcModel2D Object 2 차원 Creo Parametric 모델을 나타냅니다. 도면에 모델을 추가 하거나, 치수를 추가 할수 있습니다. Dim SheetOwner As IpfcSheetOwner Set SheetOwner = Model Dim Model2D As IpfcModel2D Set Model2D.. 2021. 3. 13. Drawing View List Drawing View List 표시 Source Code Sub view_name_list() Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection Dim session As pfcls.IpfcBaseSession On Error GoTo RunError Set conn = asynconn.Connect("", "", ".", 5) Set session = conn.session Dim drawingFilename As IpfcModel Set drawingFilename = session.CurrentModel Cells(3, "C") = drawingFilename.Filename Dim Model2D.. 2021. 3. 8. returns a list of all the solid models used in the drawing. Drawing에 포함된 3D 모델을 표시 합니다. 반드시 drawing을 open 하고 실행 합니다. Be sure to open the drawing. Sorce Code Set model = model2D.ListModels() Sub Solid_name_2d() Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection Dim session As pfcls.IpfcBaseSession On Error GoTo RunError Set conn = asynconn.Connect("", "", ".", 5) Set session = conn.session Dim model2D As IpfcModel2D Set m.. 2021. 3. 8. Creo Drawing In Session Creo Drawing 파일을 Session (메모리)로 불러오기 폴더에 있는 Creo 2D 파일을 Session으로 불러 오는 방법 입니다. Creo 화면에는 표시되지 않습니다. It is not displayed on the Creo screen. Source Code EpfcModelType.EpfcMDL_DRAWING, oFilename, "" 1) oFilename = tmpl_lv_001_4pin_a.drw -> File Name 변경 2) EpfcMDL_ASSEMBLY EpfcMDL_PART EpfcMDL_DRAWING EpfcMDL_2D_SECTION EpfcMDL_LAYOUT EpfcMDL_DWG_FORMAT EpfcMDL_MFG EpfcMDL_REPORT EpfcMDL_MARKUP Ep.. 2021. 3. 8. How to get the dimensions of a feature by Creo Parametric VB API? Feature 별로 치수 값을 표시 하는 방법 - Get dimensions by feature IpfcFeature.ListSubItems()를 사용 합니다 Use IpfcFeature.ListSubItems() with EpfcModelItemType.EpfcITEM_DIMENSION as the input argument to get the dimensions of a feature. 실행 동영상 Source code Sub dim_name_value() Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection Dim session As pfcls.IpfcBaseSession On Error GoTo Ru.. 2021. 3. 7. Connecting to a Creo Parametric Process VBA에서 CREO의 Session 연결에 대해 알아보자 Sub main() Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection IpfcAsyncConnection 클래스 : Creo Parametric에 대한 비동기 연결을 나타냅니다. On Error GoTo RunError Set conn = asynconn.Connect("", "", ".", 5) Set session = conn.session Creo의 활성화 되어 있는 Session과 연결을 합니다. asynconn.Connect("", "", ".", 5)는 Creo Parametric에서 사용중인 디스플레이 이름, 연결할 Creo Param.. 2021. 3. 3. 이전 1 ··· 18 19 20 21 22 23 24 ··· 27 다음 반응형
