Creates an object data table.
(ade_oddefinetab tab_defn)
Returns T or nil.
| tab_defn | List of table elements: the table name, the table description, and a sequence field definitions. |
The table name is specified by an a-list:
("tablename" . "NEWTABLE")
The name must be unique, contain no spaces, and start with a character. The name can be up to 25 characters long.
The table description is specified the same way, except that spaces are allowed:
("tabledesc" . "New Sample Table")
The field definitions are introduced by the string, "columns". At least one field definition is required. Each field definition is a list of a-lists, and each a-list consists of a field property and a value, as follows:
| Field property | Field name |
|---|---|
| colname | Field name (string) can be up to 31 characters long. Must be unique, contain no spaces, and start with an alphanumeric character |
| coldesc | Field description (string) |
| coltype | Field data type |
| defaultval | Default field value |
The following code creates a table.
; Define new table
(setq tabldefn
'(("tablename" . "NEWTABLE")
("tabledesc" . "New Sample Table")
("columns"
; Define a field
(("colname" . "FIELD1")
("coldesc" . "Field1 Description")
("coltype" . "character")
("defaultval" . "Default Value"))
; Define more fields as needed
.
.
.
; For an example of defining fields, click 
.
)))
; Create the new table
(ade_oddefinetab tabldefn)
Here is another example of creating a table.
(setq pt1 "2,2")
(ade_oddefinetab
(list
'("tablename" . "valve_id")
'("tabledesc" . "Valve Storage")
(list "columns"
(list
'("colname" . "LOCATION")
'("coldesc" . "Valve_id")
'("coltype" . "point")
(cons "defaultval" pt1) ) ) )