[1] VB Scripting 실습과 주요 구현

1️⃣ 파라미터 기반 설계 자동화

VBScript를 통해 CATIA V5에서 파라미터 기반 형상을 생성합니다.
다음 코드는 기본 구 형상을 생성하는 예제입니다:

Sub CreateSphere()
    Dim partDoc As Document
    Dim part As Part
    Dim hybridBodies As HybridBodies
    Dim hybridBody As HybridBody
    Dim hybridShapeSphere As HybridShapeSphere

    Set partDoc = CATIA.ActiveDocument
    Set part = partDoc.Part
    Set hybridBodies = part.HybridBodies
    Set hybridBody = hybridBodies.Add()
    hybridBody.Name = "Sphere"

    Set hybridShapeSphere = part.HybridShapeFactory.AddNewSphere(0, 0, 0, 50)
    hybridBody.AppendHybridShape hybridShapeSphere
    part.Update()
End Sub

• 결과: 위 코드를 실행하면 직경 50mm의 구 형상이 생성됩니다.
• 확장 가능성: 파라미터 값을 동적으로 설정하여 다양한 형상을 생성할 수 있습니다.

---

2️⃣ 데이터 내보내기 자동화

CATIA 설계 데이터를 CSV 형식으로 내보내는 기능은 설계 검토와 분석에 유용합니다.

Sub ExportPartData()
    Dim partDoc As Document
    Dim part As Part
    Dim parameters As Parameters
    Dim param As Parameter
    Dim fso As Object
    Dim outputFile As Object
    Dim filePath As String

    Set fso = CreateObject("Scripting.FileSystemObject")
    filePath = "C:\Output\part_data.csv"
    Set outputFile = fso.CreateTextFile(filePath, True)

    Set partDoc = CATIA.ActiveDocument
    Set part = partDoc.Part
    Set parameters = part.Parameters

    For Each param In parameters
        outputFile.WriteLine param.Name & "," & param.Value
    Next

    outputFile.Close()
    MsgBox "Part data exported to " & filePath
End Sub

• 활용 방법: 설계된 파라미터 값을 다른 소프트웨어에서 활용하거나 보고서로 작성.

---

3️⃣ 사용자 정의 자동화

설계 파일의 열기, 수정, 저장까지의 전 과정을 자동화합니다.

Sub OpenAndEditFile()
    Dim CATIA As Application
    Dim doc As Document

    Set CATIA = GetObject("", "CATIA.Application")
    Set doc = CATIA.Documents.Open("C:\Models\example.CATPart")

    ' 모델 이름 변경
    doc.Product.PartNumber = "UpdatedPartName"
    doc.Save()
    doc.Close()
End Sub

• 결과: 반복적인 파일 작업을 자동화하여 설계 시간을 단축.

https://github.com/siilver94/VB-Scripting-Beginners-For-CATIA-V5

GitHub - siilver94/VB-Scripting-Beginners-For-CATIA-V5