VBA, VB.NET For Creo315 CREO 파일 타입 알아보기 open된 파일의 타입을 알아보는 프로그램 입니다. 리턴 값이 "0" 이면 Assemble, "1" 이면 Part 입니다. Sub Run() 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 model As IpfcModel Set model = session.CurrentModel Dim Modeltype As Integer Modeltype = model.Type.. 2021. 2. 18. Part List 프로그램 Creo Part List 프로그램 자동으로 번호, 이미지, 파일 이름, 매개 변수를 표시 하는 프로그램 입니다. 반드시 어셈블 모델을 open 한후에 실행 해야 합니다. Creo와 VBA 연결 Sub Part_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 model As IpfcModel Set model = session.CurrentModel S.. 2021. 2. 16. 가로*세로*높이 사이즈 알아보기 3D 형상을 BOX 형태의 사이즈를 알아보는 프로그램 입니다. CREO에서는 대각선 사이즈는 3D point를 제공 합니다. CREO의 사이즈 계산 기능 문제점은 데이텀 커브, 데이텀 평면, 서피스를 사이즈 계산에 포함 시킵니다.J-LINK) 사이즈 계산 코드import com.ptc.cipjava.*;import java.io.*;import com.ptc.pfc.pfcGlobal.*;import com.ptc.pfc.pfcSession.*;import com.ptc.pfc.pfcBase.*;import com.ptc.pfc.pfcSolid.*;import com.ptc.pfc.pfcModelItem.*;import com.ptc.pfc.pfcGeometry.*;import java.awt.*;pub.. 2021. 2. 16. 재질 파일 설정 모델 안에 있는 Materials 파일 리스트 알아보기 Dim model As IpfcModel Set model = session.CurrentModel Dim oSolid As IpfcSolid: Set oSolid = model Dim oPart As IpfcPart: Set oPart = oSolid Dim oMaterials As IpfcMaterials Set oMaterials = oPart.ListMaterials For i = 0 To oMaterials.Count - 1 MsgBox oMaterials.Item(i).Name Next i conn.Disconnect (2) 모델 안에 있는 현재 Materials 파일 이름 알아보기 Dim model As IpfcModel Set mode.. 2021. 2. 15. 무게와 관련된 매개변수 자동 무게 계산 프로그램 IpfcSolid.GetMassProperty() 부품 또는 어셈블리의 질량 분포에 대한 정보를 제공합니다. 다음과 같은 Mass Property Object를 리턴 합니다. 계산을 위한 좌표계가 필요 합니다. 좌표계 이름을 정의 해야 합니다 1. The volume. 2. The surface area. 3. The density. The density value is 1.0, unless a material has been assigned. 4. The mass. 5. The center of gravity (COG). 6. The inertia matrix. 7. The inertia tensor. 8. The inertia about the COG. 9. The princ.. 2021. 2. 15. #3 여러개의 drw 파일 → 2D pdf 파일 변환 프로그램 creo에서 여러개의 sheet를 가지고 있는 drw 파일은 파일 변환 할때 all, current sheet, range 3개의 옵션을 사용 할수 있습니다. current sheet 옵션을 사용하여 pdf 변환을 개별로 할수 있습니다. 여러개의 pdf 파일을 만드려면 매번 "current sheet" 옵션을 선택 해야 합니다. 특정 폴더에 있는 Drw를 pdf로 변환 하는 프로그램 입니니다. Drw 파일이 여러개의 Sheet로 구성 되어 있으면, PDF 파일은 여러개의 파일로 변환 됩니다. "파일 이름_1.pdf", "파일 이름_2.pdf" ... 로 변환 됩니다. Pen Table 옵션은 주석으로 처리 했습니다. Confog.pro 파일에서 Pentable을 지정 하면, 주석 문자를 제거 하고 사용 .. 2021. 2. 12. VBA 프로그램 Template File v1 프로그램 소스 Sub Run() 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 model As IpfcModel Set model = session.CurrentModel conn.Disconnect (2) 'Cleanup Set asynconn = Nothing Set conn = Nothing Set session = Nothing Set Model = Not.. 2021. 2. 12. drw에서 sheet 개수 알아보고, sheet 선택 하기 drw에서 sheet 개수를 파악 하고, sheet를 선택 하는 프로그램 Sub sheet_number() Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection Set conn = asynconn.connect("", "", ".", 5) Dim oSession As IpfcBaseSession Set oSession = conn.Session Dim oModel As IpfcModel Set oModel = oSession.CurrentModel Dim oSheetOwner As IpfcSheetOwner Set oSheetOwner = oModel ' drw 파일이 가지고 있는 전체 Sheet수량 표시 .. 2021. 2. 12. 엑셀 VBA For Creo 파일 변환 VBA 개발 프로그램은 비동기 방식으로 개발되는 프로그램 이다. 개발자가 컴퓨터의 응답을 기다리는 방식은 동기 프로그래밍과 비동기 프로그래밍 두 가지가 있다. 먼저 동기 프로그래밍은 시간이 얼마나 걸리든 요청에 대한 응답 이 올 때까지 프로그램 수행을 멈추고 기다리는 방식이다. 프로그램 흐름이 순차적으로 흐르기 때문에 이해가 쉽고 작성하기 쉽다. 두번째로 비동기 프로그래밍은 연산을 요청한 후에 결과를 기다리지 않고 다른 작업을 수행하는 프로그래밍 스타일을 말한다. VBA CREO 응용 프로그램을 개발은 JAVA나 JAVA 스크립트 보다 쉽다. 또한 VB.NET 및 C++ 보다 UI애 대한 공부를 안해도 된다. 또한 VBA 엑셀에 대한 교재 및 강의는 많다. 하지만 PTC에서 개발에 대한 문서나 교육이 없.. 2021. 2. 10. # 2 2D pdf 파일 변환 프로그램 PDF 변환 옵션 도면에서 PDF 변환 옵션은 다음과 같습니다. ■ sheet pdf 로 변환 하는 Drw Sheet를 선택 합니다. "All"을 선택 하면 하나의 pdf 파일에 모든 Sheet를 포함 시킵니다 ■ color pdf의 색상을 정의 합니다. Monochrome 선택 ■ Line Style Pen table을 체크 합니다 ■ Fonts Stroke All Fonts를 선택 합니다 [Creo 활용] 도면 변환 (PDF) ▣ Creo Parametric에서 2D PDF 내보내기 프로파일을 작성하는 방법 ▣ 문의 1. 2D PDF 내보내기 프로파일을 만드는 방법은 무엇입니까? 2. .dop 파일의 기본 폴더를 정의하는 방법은 무엇입니까? 3. 파일> blog.daum.net ■ Pen Table .. 2021. 2. 10. # 1 3D Step 파일 변환 프로그램 Part 파일을 Step 파일로 변환 하는 기능. 3D 모델을 OPEN 하고, 프로그램을 실행 한다. 엑셀 Cells (2,"b")에 이름 변경할 파일 이름을 적는다. Step 파일의 환경 설정은 config. pro 파일에 정의 한다. VBA 프로그램에서는 솔리드만 변환 하고, 어셈블 파일은 단일 파일로 변환 한다. Data Exchange Profiles Creo Parametric 4.0에서 데이터 교환을위한 내보내기 프로필을 설정하는 방법 Creo Parametric 옵션 대화 상자에서 열기, 가져 오기 및 내보내기를 위한 데이터 교환 프로파일을 쉽게 관리 할 수 있 idt21c.tistory.com ▶ STEP 파일 옵션 정의 Dim oFlagscreate As New CCpfcGeometryF.. 2021. 2. 9. Feature Delete - V2 Feature Delete - V1이 어려워 프로그램 안에서 선택한 Feature를 삭제하는 프로그램 입니다. Sub feature_delete() Dim asynconn As New pfcls.CCpfcAsyncConnection Dim conn As pfcls.IpfcAsyncConnection Set conn = asynconn.connect("", "", ".", 5) Dim oSession As IpfcBaseSession Set oSession = conn.Session Dim oModel As IpfcModel Set oModel = oSession.CurrentModel Dim oSolid As IpfcSolid Set oSolid = oModel Dim oFeatures As IpfcFe.. 2021. 2. 9. 이전 1 ··· 19 20 21 22 23 24 25 ··· 27 다음 반응형
