InitCADExport Subroutine

InitCADExport

Description

This command initializes a T_CADEXPORT data structure with the following member values:

Member	Initialized Value
authorName
authorOrganization
coincidenceTolerance	0.001
disableTrimming	False
exportAllCurves	False
exportCurrentRayTrajectories	True
exportNeverTraceableSurfs	False
exportSelectedEntities	False
exportTraceableSurfs	True
exportUntraceableSurfs	False
filename
format	STEP
numEdgeSamples	32
numRadialSamples	32
numUpatches	16
numVpatches	16

Syntax

InitCADExport tCad

Parameters

tCad As T_CADEXPORT

T_CADEXPORT data structure being initialized.

Example

The following example creates a T_CADEXPORT data structure, initializes the member values and prints them to the output window.

Sub Main

ClearOutputWindow

Dim tCadExport As T_CADEXPORT

InitCADExport tCadExport

Print "Author: " & Chr(9) & tCadExport.authorName

Print "Organization: " & Chr(9) & tCadExport.authorOrganization

Print "Coincidence tolerance: " & Chr(9) & tCadExport.coincidenceTolerance

Print "Disable trimming: " & Chr(9) & tCadExport.disableTrimming

Print "Export all curves: " & Chr(9) & tCadExport.exportAllCurves

Print "Export ray trajectories: " & Chr(9) & tCadExport.exportCurrentRayTrajectories

Print "Export never traceable surfs: " & Chr(9) & tCadExport.exportNeverTraceableSurfs

Print "Export selected entities: " & Chr(9) & tCadExport.exportSelectedEntities

Print "Export traceable surfs: " & Chr(9) & tCadExport.exportTraceableSurfs

Print "Export untraceable surfs: " & Chr(9) & tCadExport.exportUntraceableSurfs

Print "Filename: " & Chr(9) & tCadExport.filename

Print "Format: " & Chr(9) & tCadExport.format

Print "Num edge samples: " & Chr(9) & tCadExport.numEdgeSamples

Print "Num radial samples: " & Chr(9) & tCadExport.numRadialSamples

Print "Num U patches: " & Chr(9) & tCadExport.numUpatches

Print "Num V patches: " & Chr(9) & tCadExport.numVpatches

End Sub