본문 바로가기
  • Welcome!

VBA, VB.NET For Creo315

함께 VBA 만들기 #5 - Material 지정 및 무게 계산 엑셀에서 선택한 재질 파일을 모델에 지정 하고, 무게를 저장 하는 프로그램 입니다. 무게의 단위는 모델의 단위를 사용 합니다.무게 기능은 재질 파일이 지정 되면, Creo에서 자동으로 계산되는 기능을 사용 합니다. 재질 파일 선택은 엑셀이 유효성 검사 기능을 사용 합니다. 1. 재질 폴더 지정 및 자동 계산 기능 구성 파일 설정 '// config.pro option Call oSession.SetConfigOption("pro_material_dir", Worksheets("data").Cells(20, "B")) Call oSession.SetConfigOption("mass_property_calculate", "automatic") 2. 디스크에 있는 재질 파일 불러오고, 지정 하기 - 재질 파일.. 2023. 2. 8.
VBA Start Template VBA 프로그램 시작을 아래 코드를 기반으로 생성 합니다 Download : ▶ 전체 코드 Option Explicit Public asynconn As New pfcls.CCpfcAsyncConnection Public conn As pfcls.IpfcAsyncConnection Public oSession As pfcls.IpfcBaseSession Public oModel As IpfcModel Public oSolid As IpfcSolid Public Sub Creo_Connect() Application.EnableEvents = False '/////////////////////////////////////////////////////////////////////////////////////.. 2023. 2. 5.
함께 VBA 만들기 #4 - Creo 3D 모델 정보 보기 ■ 이미지 삽입 기능 이미지를 넣는 기능 입니다. 현재 모델의 "ISOVIEW" 이름 또는 기본 뷰를 이용하여 이미지를 만듭니다. 이미지 파일 저장 위치는 관리자 페이지에서 정의 합니다. ■ 전체 코드 Sub Jpg_export() '// Back Ground Color White Dim BackgroundWhitemacro As String BackgroundWhitemacro = "al_screen_cap @MAPKEY_LABEL스크린 샷을 찍기위해서 흰배경으로 변경;\mapkey(continued) ~ Select `main_dlg_cur` `appl_casc`;~ Close `main_dlg_cur` `appl_casc`;\mapkey(continued) ~ Command `ProCmdRibbon.. 2023. 2. 5.
함께 VBA 만들기 #3 - Creo 3D 모델 정보 보기 ■ Parameter 값을 가져 오는 기능 - 지정된 Parameter 값을 가져 옵니다 - 지정된 Parameter 가 모델에 없으면 자동으로 모델에 생성 됩니다. 모델에서 Parameter 값을 가지고 올수 있습니다. Dim oParameterOwner As IpfcParameterOwner Set oParameterOwner = oModel Dim oBaseParameter As pfcls.IpfcBaseParameter Set oBaseParameter = oParameterOwner.GetParam("PART_NO") Cells(7, "E") = oBaseParameter.Value 모델에 String 타입 Parameter 만들고 기본값을 입력 합니다. Dim oParameterOwner As.. 2023. 2. 3.
마이크로소프트(MS)가 인공지능(AI) 챗봇 기능 기반의 제품을 출시 'AI가 회의 내용 요약'…MS, '챗GPT' 유료제품 출시 | 네이트 뉴스 경제>경제일반 뉴스: [한국경제TV 이영호 기자] 마이크로소프트(MS)가 2일(현지시간) 전 세계에서 화제를 모은 인공지능(AI) 챗봇 '챗GPT' 기능 기반의 유료 제품을 출시했다. MS는 챗GPT로 구동되는 news.nate.com 챗GPT 티스토리 블로그는 안전할까? 인공지능 대화형 검색 챗GPT로 구글이 매우 긴장하고 있다고 하죠. 구글의 시대는 끝났다는 기사도 보이는데요, 기사 내용대로 세상이 돌아간다면 구글만 어려워질까요? 챗GPT 검색은 구글이나 badayak.com 2023. 2. 3.
함께 VBA 만들기 #2 - Creo 3D 모델 정보 보기 ■ Template 코드 엑셀 VBA를 시작 할때 사용 하는 코드 입니다. 아래 코드를 기반으로 코딩을 합니다 Option Explicit Public asynconn As New pfcls.CCpfcAsyncConnection Public conn As pfcls.IpfcAsyncConnection Public oSession As pfcls.IpfcBaseSession Public oModel As IpfcModel Public oSolid As IpfcSolid Public Sub Creo_Connect() Application.EnableEvents = False '//////////////////////////////////////////////////////////////////////////.. 2023. 2. 2.
함께 VBA 만들기 #1 - Creo 3D 모델 정보 보기 Creo 모델의 Parameter 값을 표시 하는 엑셀 VBA 프로그램 입니다. Creo 모델은 형상과 함께 Parameter 값을 가지고 있습니다. Parameter 값은 "품번", "품명", 재질 이름, 설계자 이름, 검도자 이름, 스인자 이름, 표면 처리 등 다양한 정보를 입력 합니다. 어셈블 모델의 모든 부품 파일들 Parameter 값은 파일 이름과 함께 도면의 Table에 엑셀 파일로 변환 할수 있습니다 . 3D 모델에 입력한 Parameter는 도면에 자동으로 표시 할수 있습니다. Parameter 입력을 목록을 선택하여 입력 할수 있습니다. 예를 들어 모델에 재질 파일 지정은 금속, 몰드, 기타 항목 중 1개를 선택하면, 관련된 재질 파일을 선택 할 수 있습니다. 재질 파일을 지정 하면 자.. 2023. 2. 2.
Spur 기어 #3 Spur Gear 사용 방법 Spur Gear Template vba는 설계자가 미리 모델을 만들어 놓을 3D 형상을 새로운 파일 이름으로 저장 하고, Paramter 및 Dimenesion을 변경 하여 새로운 Spur Gear를 만듭니다. 첨부된 "Spur Gear Template" 모델을 편집하여, "보스". "리브", "구멍"을 추가하여 자신에게 맞는 3D Template 모델을 만들어 사용 하십시요. 첨부된 엑셀 VBA는 사용자 사용 오류를 100% 담지 못했습니다. 동일한 파일 이름이 Session에 있으면 안됩니다. 첨부된 엑셀 VBA를 참고하여 더블 기어를 만들어 보세요. 헬리컬 기어를 첨부된 모델 과 엑셀 VBA를 변형 하여 새로운 프로그램을 만들어 보십시요 사용중 문의 사항 있으면 메일 주십시요 lionkk@idt2.. 2023. 1. 31.
Spur 기어 #2 Template 모델이 완성되면 사용자 화면을 디자인 해야 합니다. 모듈 값 및 잇수는 범위 설정을 해야 합니다. 또한 압력 값도 범위를 설정 해야 합니다. 범위 설정은 엑셀의 유효성 검사 기능을 이용 합니다. 모듈 값. 잇수 값, 압력 각도 값은 "선택"하여 입력 합니다. 기어의 파일 이름은 모듈 + 잇수 + 입력 각 및 기어 타입을 조합 하여 생성 합니다. * 품번을 선택하여 파일 이름에 넣을수 있습니다. 허용 범위를 관리 하는 "sheet"를 사용 합니다. 관리자에 의해 변경 가능 합니다. ■ 엑셀 프로그램의 데이터 유효성 검사 기능을 사용 합니다 이중 유효성 검사 목록 만들기(데이터 유효성 검사, INDIRECT 함수) 이번 강좌는 구독자 OH CH**** 님의 질문을 바탕으로 강좌를 만들어봤습니.. 2023. 1. 25.
CREO 내부에서 엑셀 파일 실행 방법 MAPKEY를 이용하여 엑셀 VBA를 실행 할수 있습니다. 엑셀 VBA는 약속된 폴더에 저장 되어 있어야 합니다 toolbox vba를 실행 하기 위한 Mapkey 입니다 mapkey tb @MAPKEY_NAMEBy www.idt21c.com;@MAPKEY_LABELToolBOX VBA;\ mapkey(continued) @SYSTEMC:\\PTC\\ToolBOX\\toolboxvba\\ToolBOXVBA01.xlsm; 폴더 이름은 한글을 사용 할수 없습니다. 엑셀 파일 이름에 "공란"을 만들지 마십시요 2023. 1. 20.
IpfcViewOwner를 이용한 회전 뷰 증강 모델 파일 생성 Creo 화면의 좌측 하단의 중심축 (2차원)의 "X" 축을 기준으로 일정한 값을 증강 하는 JPG 파일을 생성 합니다. 프로그램 화면에서 증가 각도 값을 입력 합니다. >> 회전 하는 코드 Option Explicit Sub rotate_model() Application.EnableEvents = False Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection: '////////////////////////////////////////////////////////////////////////////////////////////////////// '// Creo Connect Check '/////////.. 2023. 1. 18.
Webgl Test] Creo 파일 Web 브라우저 게시 template_code01.stp AP203e1 2023-01-17T12:51 Creo 2022284 Part: Generated by the NIST STEP File Analyzer and Viewer 4.60 17 Jan 2023 12:52 NIST Disclaimer Part Geometry Edges Part Bounding Box Min: 0. 0. -2540. Max: 2540. 2540. 0. Origin Background Color White Blue Gray Black Transparency (approximate) PageDown for Viewpoints. Key 'r' to restore, 'a' to view all. Use the mouse in 'Examine Mode' .. 2023. 1. 17.
반응형

티스토리툴바