fab/land-ship-loose.lsp [src]
Functions for ship loose landing fabs
New ship loose piece types should be added to LAND-SL--FAB-TYPES
(land-sl-make-fabs lands fab-type)
Makes ship loose landing fabs of type FAB-TYPE for LANDS
VARS:
(LANDS LIST (VL-EVERY 'DATA-LIST-P LANDS))
(FAB-TYPE STR (MEMBER FAB-TYPE LAND-SL--FAB-TYPES))
(land-sl--calc fab-type land-data)
Calculates ship loose pieces for a landing
Returns a list of lists whose car is the finish and cadr is a 2-element list. The elements
are datalists of material and hardware, respectively.
VARS:
(FAB-TYPE STR (MEMBER FAB-TYPE LAND-SL--FAB-TYPES))
(LAND-DATA LIST (DATA-LIST-P LAND-DATA))
(land-sl--calc-dwg-no jobno stairno)
Returns the next available ship loose drawing number
VARS:
(JOBNO STR)
(STAIRNO STR)
(land-sl--make-fab fab-type finish material hardware)
Makes a ship loose landing fab of FAB-TYPE
VARS:
(FAB-TYPE STR (MEMBER FAB-TYPE LAND-SL--FAB-TYPES))
(FINISH STR)
(MATERIAL LIST (VL-EVERY 'DATA-LIST-P MATERIAL))
(HARDWARE LIST (VL-EVERY 'DATA-LIST-P HARDWARE))