Unit DXF_read

///////////////////////////////////////////////////////////////////////////// // DXF File reader object/code // ŠJohn Biddiscombe // Rutherford Appleton Laboratory, UK // j.biddiscombe@rl.ac.uk // DXF code release 3.0 - July 1997 // // ///////////////////////////////////////////////////////////////////////////// // Thanks very much to John F Herbster for the original DXF reader class // that got this started --- extract from his header follows... // // Pgm. 07/14/95 by John F Herbster, CIS:72714,3445, Houston, TX. // for Rick Rogers (CIS:74323,3573). // // /////////////////////////////////////////////////////////////////////////////

Classes

abstract_entity - ///////////////////////////////////////////////////////////////////////////// This is a simple class used only during file reads, it should not be used as a base for any objects.
DXF_Reader -
DXF_read_exception - ///////////////////////////////////////////////////////////////////////////// DXF file read exceptions will be this type /////////////////////////////////////////////////////////////////////////////

Functions

Types

tCharArray

Constants

DXF_70Flag
DXF_71Flag
DXF_72Flag
DXF_73Flag
DXF_74Flag
DXF_angle1
DXF_angle2
DXF_angle3
DXF_angle4
DXF_angle5
DXF_angle6
DXF_angle7
DXF_angle8
DXF_angle9
DXF_colornum
DXF_comment
DXF_elevation
DXF_entities_flg
DXF_entity_handle
DXF_ent_ident
DXF_extrusionx
DXF_extrusiony
DXF_extrusionz
DXF_floatval
DXF_floatvals1
DXF_floatvals2
DXF_floatvals3
DXF_layer_name
DXF_line_type
DXF_name
DXF_othername2
DXF_other_X_1
DXF_other_X_2
DXF_other_X_3
DXF_other_Y_1
DXF_other_Y_2
DXF_other_Y_3
DXF_other_Z_1
DXF_other_Z_2
DXF_other_Z_3
DXF_primary_X
DXF_primary_Y
DXF_primary_Z
DXF_repeat
DXF_start
DXF_text_def
DXF_text_prompt
DXF_text_style
DXF_thickness
DXF_var_name
DXF_view_state
DXF_visible
EOL
MaxSizeOfBuf
message_delay_ms

Variables


Functions


Types


tCharArray = array [0..MaxSizeOfBuf-1] of char;

Constants

DXF_70Flag = 70

DXF_71Flag = 71

DXF_72Flag = 72

DXF_73Flag = 73

DXF_74Flag = 74

DXF_angle1 = 50

DXF_angle2 = 51

DXF_angle3 = 52

DXF_angle4 = 53

DXF_angle5 = 54

DXF_angle6 = 55

DXF_angle7 = 56

DXF_angle8 = 57

DXF_angle9 = 58

DXF_colornum = 62

DXF_comment = 999

DXF_elevation = 38

DXF_entities_flg = 66

DXF_entity_handle = 5

DXF_ent_ident = 67

DXF_extrusionx = 210

DXF_extrusiony = 220

DXF_extrusionz = 230

DXF_floatval = 40

DXF_floatvals1 = 41

DXF_floatvals2 = 42

DXF_floatvals3 = 43

DXF_layer_name = 8

DXF_line_type = 6

DXF_name = 2

DXF_othername2 = 4

DXF_other_X_1 = 11

DXF_other_X_2 = 12

DXF_other_X_3 = 13

DXF_other_Y_1 = 21

DXF_other_Y_2 = 22

DXF_other_Y_3 = 23

DXF_other_Z_1 = 31

DXF_other_Z_2 = 32

DXF_other_Z_3 = 33

DXF_primary_X = 10

DXF_primary_Y = 20

DXF_primary_Z = 30

DXF_repeat = 49

DXF_start = 0

Thanks to Ian L. Kaplan, whose code contained these ID's I've changed a few names here and there

DXF_text_def = 1

DXF_text_prompt = 3

DXF_text_style = 7

DXF_thickness = 39

DXF_var_name = 9

DXF_view_state = 69

DXF_visible = 60

EOL = #13#10

MaxSizeOfBuf = 4096

///////////////////////////////////////////////////////////////////////////// DXF_Reader class definition /////////////////////////////////////////////////////////////////////////////

message_delay_ms = 1500

Mine

Variables