InitCADImport Subroutine

InitCadImport

Description

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

Member	Initialized Value
drawIndependentCurves	True
filename
localSurfOrigin	do not move
makeIndependentCurves	True
randomUnassignedCurvColors	False
randomUnassignedSurfColors	False
raytraceControl	0
reduceNURBorder	False
reduceNURBtolerance	0
simplifyCurves	False
surfDrawMode	surface

Syntax

InitCADImport tCad

Parameters

tCad As T_CADIMPORT

T_CADIMPORT data structure being initialized.

Example

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

Sub Main

Dim tCadImport As T_CADIMPORT

InitCADImport tCadImport

Print "Draw Independent Curves: " & Chr(9) & tCadImport.drawIndependentCurves

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

Print "Local Surface Origin: " & Chr(9) & tCadImport.localSurfOrigin

Print "Make Independent Curves: " & Chr(9) & tCadImport.makeIndependentCurves

Print "Random Unassigned Curve Colors: " & Chr(9) & tCadImport.randomUnassignedCurvColors

Print "Random Unassigned Surface Colors: " & Chr(9) & tCadImport.randomUnassignedSurfColors

Print "Raytrace Control: " & Chr(9) & tCadImport.raytraceControl

Print "Reduce NURB Order: " & Chr(9) & tCadImport.reduceNURBorder

Print "Reduce NURB Tolerance: " & Chr(9) & tCadImport.reduceNURBtolerance

Print "Simplify Curves: " & Chr(9) & tCadImport.simplifyCurves

Print "Surface Draw Mode: " & Chr(9) & tCadImport.surfDrawMode

End Sub