Scribd
Upload
5 views1 page

Grasp

The document outlines a procedure for exporting data related to materials, sections, and load cases into a file. It includes loops for writing material properties, section details, and load case assignments, followed by error handling and user notifications. The process concludes with a message indicating successful completion of the export.

Uploaded by

Le Fondateur
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
5 views1 page

Grasp

The document outlines a procedure for exporting data related to materials, sections, and load cases into a file. It includes loops for writing material properties, section details, and load case assignments, followed by error handling and user notifications. The process concludes with a message indicating successful completion of the export.

Uploaded by

Le Fondateur
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 1

ld.Mx & "," & ld.My & "," & ld.

Mz
Next ld

' Write materials


Dim mat As clsMaterial
For Each mat In MaterialList
Print #fileNum, "MATERIAL," & mat.MaterialID & "," & Chr(34) &
mat.Name & Chr(34) & "," & _
mat.ElasticModulus & "," & mat.ShearModulus & "," & _
mat.PoissonRatio & "," & mat.Density
Next mat

' Write sections


Dim sec As clsSection
For Each sec In SectionList
Print #fileNum, "SECTION," & sec.SectionID & "," & Chr(34) & sec.Name
& Chr(34) & "," & _
sec.Area & "," & sec.Iyy & "," & sec.Izz & "," & sec.J
& "," & _
sec.Depth & "," & sec.Width
Next sec

' Write load cases


Dim lc As clsLoadCase
For Each lc In LoadCaseList
Print #fileNum, "LOADCASE," & lc.LCID & "," & Chr(34) &
lc.Description & Chr(34)
Next lc

' Write load case assignments


For Each lc In LoadCaseList
Dim i As Integer
For i = 1 To lc.LoadCount
Print #fileNum, "LOADINLC," & lc.LCID & "," & lc.LoadIDs(i) & ","
& lc.LoadFactors(i)
Next i
Next lc

Close #fileNum

MsgBox "Export completed successfully", vbInformation, "GRASP"


Exit Sub

ErrorHandler:
Close #fileNum
MsgBox "Error during export: " & Err.Description, vbCritical, "GRASP
Error"
End Sub

' Helper function to get file path


Function GetFilePath(title As String, fileFilter As String, saveAs As
Boolean) As String
Dim fd As FileDialog
If saveAs Then
Set fd = Application.FileDialog(msoFileDialogSaveAs)
Else
Set fd = Application.FileDialog(msoFileDialogFilePicker)

P a g e 24 | 57

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy