본문 바로가기
  • Welcome!

VBA, VB.NET For Creo321

함께 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.
IpfcViewOwner ■ IpfcViewOwner 모델에 저장된 보기(VIEW) 리스트들을 핸들링 할 수 있습니다. logical screen coordinates (화면의 좌측 하단)기준으로 모델을 회전을 할수 있습니다. >> 기본 코드 Dim oSession As pfcls.IpfcBaseSession Dim oViewOwner As IpfcViewOwner Set oViewOwner = oSession.CurrentModel ■ IpfcViewOwner.CurrentViewRotate - logical screen coordinates 의 X, Y 또는 Z축을 기준으로 현재 보기에서 모델을 회전 시킵니다. EpfcCOORD_AXIS_X -> "0" EpfcCOORD_AXIS_Y -> "1" EpfcCOORD_AXIS_Z.. 2023. 1. 16.
IpfcWindow ■ Creo Window 사이즈 IpfcWindow.Height , IpfcWindow.Width , IpfcWindow.XPos 및 IpfcWindow.YPos 속성 은 각각 창의 높이, 너비, x 위치 및 y 위치를 검색합니다. 이러한 매개변수의 값은 0에서 1로 정규화됩니다. IpfcWindow.GraphicsAreaHeight 및 IpfcWindow.GraphicsAreaWidth 속성 은 테두리가 없는 Creo Parametric 그래픽 영역 창의 높이와 너비를 각각 검색 합니다. 이러한 매개변수의 값은 0에서 1로 정규화됩니다. >> 코드 Dim oSession As pfcls.IpfcBaseSession: Set oSession = conn.Session Dim oWindows As Ipfc.. 2023. 1. 16.
엑셀에서 치수값을 입력 하여 모델 변경 하기 모델이 가지고 있는 치수 값을 불러오고, 사용자는 엑셀에서 치수 값을 변경 합니다. ■ "치수 값 불러오기" 버튼 - 모델에서 치수 값을 불러옵니다 ■ "치수 변경" 버튼 - 엑셀에 입력한 치수 값을 모델에 반영 합니다. >> 치수 변경 코드 Option Explicit Sub Main() 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 oSessi.. 2023. 1. 14.
모델이 가지고 있는 치수 값을 가지고 오기 모델이 가지고 있는 특정 이름을 갖는 치수의 값을 가져오는 코드 입니다. FOR 문을 사용 하면 간결하고, 치수 이름이 추가되어도 대응이 가능 합니다. 초보적인 내용을 올립니 ○ 모델의 치수 이름 ○ 엑셀 Sheet Option Explicit Sub Main() 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.Sessi.. 2023. 1. 14.
Creo VBA 시작 코드 Creo VBA를 시작 하는 코드 입니다. 매번 프로그램을 개발 때마다 새로운 이름으로 Save As 하여 사용 합니다. Option Explicit Sub Main() 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: Set oModel = oSession.Cur.. 2023. 1. 14.
Coordinate Systems and Transformations Coordinate Systems : VB API 에서 액세스할 수 있는 Creo의 다양한 좌표계 있습니다. ■ Solid Coordinate System - 솔리드 좌표계는 Creo Parametric 솔리드 모델 의 형상을 설명하는 데 사용되는 3차원 데카르트 좌표계 입니다. - 부품에서 솔리드 좌표계는 표면과 모서리의 형상을 설명 - 셈블리에서 솔리드 좌표계는 어셈블리 멤버의 위치와 방향도 설명 >> 데카르트 좌표계 - 3D에서 많이 사용하는 방법은 위(up) 방향으로 Y축을 지정하고, Z축을 시선 방향, X축을 좌우 방향으로 쓰는 것이다. 이렇게 Y축을 위 방향으로 사용하는 소프트웨어나 라이브러리로는 DirectX , OpenGL , 유니티를 들 수 있다. 이들은 Z축으로 시선 방향을 결정한다는 .. 2023. 1. 13.
반응형

티스토리툴바