본문 바로가기
  • Welcome!

VBA, VB.NET For Creo316

Hello World . (Create a VB.NET program using Windows Form)#1 □ VB.NET을 사용하여 "Hello World" 메세지를 표시 하는 프로그램을 만들기 VB.NET Hello World Program - JavatpointVB.NET Hello World Program with What is VB.NET, VB.NET and Visual Basic, VB.NET vs C#, VB.NET vs Java, VB.NET Keywords, VB.NET Data Types, VB.NET Operators, VB.NET Loops, VB.NET GUI etc.www.javatpoint.com ▷ ProjectVB.NET 프로젝트는 Visual Basic .NET을 사용하여 개발하는 하나의 완전한 애플리케이션 또는 라이브러리를 나타내는 단위입니다.특정 프로그램이나 기능을 만들기.. 2024. 12. 5.
Visual Studio 의 UI Visual Studio는 Microsoft에서 개발한 통합 개발 환경(IDE)으로, 소프트웨어 개발자들이 애플리케이션을 설계, 개발, 디버깅, 배포할 수 있도록 다양한 도구와 기능을 제공합니다. Visual Studio의 사용자 인터페이스(UI)는 직관적이며, 생산성을 극대화할 수 있도록 설계되어 있습니다.  이 Visual Studio IDE는 무엇인가요?앱을 개발, 편집, 디버그, 버전 제어 및 배포할 수 있는 Visual Studio IDE(통합 개발 환경)를 살펴봅니다.learn.microsoft.com 1. 메뉴 바 (Menu Bar)Visual Studio의 상단에 위치하며, 프로젝트를 관리하거나 설정을 변경하는 데 필요한 주요 명령어를 제공합니다.   예: "File, Edit, View,.. 2024. 12. 5.
VB.NET ? □소개VB.NET은 Visual Basic .NET의 줄임말로, 마이크로소프트에서 개발한 객체 지향 프로그래밍 언어입니다. 비주얼 베이직 6.0의 후속작으로, 닷넷 프레임워크를 기반으로 하여 더욱 강력하고 확장성 있는 개발 환경을 제공합니다.닷넷 프레임워크 이란 . . . 특정 소프트웨어나 애플리케이션이 마이크로소프트의 닷넷 프레임워크라는 개발 환경을 사용하여 만들어졌다는 것을 의미합니다. 마치 건물을 지을 때 튼튼한 기초가 필요하듯이, 소프트웨어를 개발할 때도 안정적이고 효율적인 개발 환경이 필요한데, 닷넷 프레임워크가 바로 그 역할을 하는 것입니다.닷넷 프레임워크를 기반으로 하는 이유1. 다양한 언어 지원 C#, VB.NET, F# 등 다양한 언어를 사용하여 개발할 수 있습니다.2. 풍부한 클래스 라.. 2024. 12. 4.
개발 요청] 치수 변경, 간섭 체크, 최단 거리 값 구하기 #4 □ Feature Parameter 가져오기 기능 추가Option ExplicitOption Base 1Sub FingerCheck01() On Error GoTo RunError Application.EnableEvents = False '// Module Name : CreoVBAStart Call CreoVBAStart.CreoConnt01 Dim ModelItemOwner As IpfcModelItemOwner Dim modelitems As IpfcModelItems Dim BaseDimension As IpfcBaseDimension Set ModelItemOwner = Model Set modelitems = ModelItemOw.. 2024. 12. 1.
개발 요청] 치수 변경, 간섭 체크, 최단 거리 값 구하기 #3 □ Main 프로그램  컨셉엑셀에 입력된 "6C:6G"까지의 값을 가져와서 모델의 치수를 변경 하는 코드 입니다.Option ExplicitOption Base 1Sub FingerCheck01() On Error GoTo RunError Application.EnableEvents = False '// Module Name : CreoVBAStart Call CreoVBAStart.CreoConnt01 Dim ModelItemOwner As IpfcModelItemOwner Dim modelitems As IpfcModelItems Dim BaseDimension As IpfcBaseDimension Dim targetCell As Ran.. 2024. 11. 30.
개발 요청] 치수 변경, 간섭 체크, 최단 거리 값 구하기 #2 가능한 모든 조합 나열하기  [엑셀 VBA] 가능한 모든 조합 나열하기개인적으로 필요해서 SPSS의 집단별 통계 기능을 엑셀로 만들고 있는 중이다. 이 매크로는 그 과정의 시작 단계라 할 수 있겠다. 집단별 변수값에 따라 만들 수 있는 모든 조합을 나열한다. 예를ruahneuma.tistory.com  □ Collection 함수VBA에서 Collection은 객체나 값의 그룹을 관리하기 위해 제공되는 가변 길이 데이터 구조입니다. 간단히 말해, 여러 데이터를 하나의 묶음으로 다룰 수 있는 데이터 타입입니다. 배열(Array)과 유사하지만, 더 많은 기능을 제공하며, 특히 동적이고 다양한 데이터를 처리할 때 유용합니다.Collection의 주요 특징1. 가변 크기:Collection의 크기는 고정되어 있.. 2024. 11. 27.
개발 요청] 치수 변경, 간섭 체크, 최단 거리 값 구하기 #1 -개발 중 □치수 값을 조합하는 배열 만들기Sub GenerateAllCombinations() Dim oCol() As Collection Dim rngSel As Range Dim totalComb As Long Dim resultArray() As Variant ' 결과를 저장할 배열 ' 현재 선택한 영역을 범위로 설정 Set rngSel = Worksheets("FingerCheck").Range("B6", "G8") totalComb = 1 ' 데이터를 컬렉션에 저장하고 총 조합 수 계산 InitializeCollections rngSel, oCol, totalComb ' 결과 배열 생성 및 조합 저장 resultArray = Generat.. 2024. 11. 26.
개발 요청] 이미지 생성 프로그램 #4 이미지 변환 코드Sub JPGEportUtils01() On Error GoTo RunError Application.EnableEvents = False '//Image storage folder If Dir("c:\toolbox\images", vbDirectory) = "" Then MkDir ("c:\toolbox") MkDir ("c:\toolbox\images") End If '// Module Name : CreoVBAStart Call CreoVBAStart.CreoConnt01 Dim owindow As IpfcWindow Set owindow = BaseSession.GetMod.. 2024. 11. 24.
개발 요청] 이미지 생성 프로그램 #3 □ 단순화 표현 만들기 2개의 모듈을 사용 합니다.1. Creo와 연결 하는 코드 (모듈 이름:CreoVBAStart)Option ExplicitPublic asynconn As New pfcls.CCpfcAsyncConnectionPublic conn As pfcls.IpfcAsyncConnectionPublic BaseSession As pfcls.IpfcBaseSessionPublic Model As pfcls.IpfcModelPublic Sub CreoConnt01() '// connect creo model Set conn = asynconn.Connect(Null, Null, Null, Null) Set BaseSession = conn.Session Se.. 2024. 11. 21.
rename a simplified representation ▷ CodeDim solid As IpfcSolidSet solid = oModel'//get the required simprep from the solid (Assembly/part)Dim simprep As IpfcSimpRepSet simprep = solid.GetSimpRep("TEST") Dim item As pfcls.IpfcModelItemSet item = simprepitem.SetName ("NEW_TEST") 2024. 11. 19.
Creo Model Open ▷ Code'// Create a modeldescriptor to the Creo ModelDim session As pfcls.IpfcBaseSessionDim oModelDescriptorCreate As New CCpfcModelDescriptorDim oModelDescriptor As IpfcModelDescriptorSet oModelDescriptor = oModelDescriptorCreate.Create(EpfcMDL_ASSEMBLY, "ASM0001.ASM", Null) '//Retrieve the model into the oModel handleSet oModel = session.RetrieveModel(oModelDescriptor) '//Create a new window w.. 2024. 11. 19.
Show the current Working Directory ▷ codeDim BaseSession As pfcls.IpfcBaseSession'// Show the current Working DirectoryMsgBox "This is the current Working Directory: " & vbCrLf & session.GetCurrentDirectory 2024. 11. 19.
반응형