fab/data-export.lsp [src]
Support functions for FABDATA
For scoping, every function here expects to be called by fabdata-process-dwgs
(fabdata-process-dwgs files)
Processes all FILES using fabdata--process-dwg and writes result to a .csv
VARS:
(FILES LIST (VL-EVERY 'STRINGP FILES))
Adds hardware code and makes qty an integer
VARS:
(HDW LIST (DATA-LIST-P HDW))
(fabdata--get-hardware-code desc)
Returns the short code for a hardware description, if it exists, or an empty string
VARS:
(DESC STR)
(fabdata--get-material-code desc)
Returns the short code for a material description, if it exists, or an empty string
VARS:
(DESC STR)
(fabdata--mat-table-total-weight table)
Returns the total weight
Calculates the total based on row weight values; does not rely on summary row.
VARS:
(TABLE VLA-OBJECT (MATERIAL-TABLE-P TABLE))
(fabdata--process-assemblies table)
Processes an Assembly* table for assemblies
Attempts to set the piece weight using the Material table.
VARS:
(TABLE VLA-OBJECT (TABLE-P TABLE))
(fabdata--process-assembly-material table)
Processes a Material table (paired with an Assembly* table) for ship loose items
VARS:
(TABLE VLA-OBJECT (TABLE-P TABLE))
(fabdata--process-bracket-hardware table)
Processes a legacy Bracket Hardware table
This can be removed after people finish the jobs they started during this rewrite and this table style disappears
(fabdata--process-dwg filename)
Opens a fab drawing and processes all the tables
VARS:
(FILENAME STR)
(fabdata--process-hardware table)
Processes a *Hardware table for ship loose entries
VARS:
(TABLE VLA-OBJECT (TABLE-P TABLE))
(fabdata--process-misc-material table)
Processes a Misc Material table for ship loose items
VARS:
(TABLE VLA-OBJECT (TABLE-P TABLE))