fab/stair-stringer.lsp [src]
Functions dealing with stringers in fab drawings
Here be dragons. This file is a mess.
(stair-fab-process-stringers)
Adds both stringer details to drawing and their material to the table
VARS:
(DIMSPACE nil (NUMBERP DIMSPACE))
(DWG-HEIGHT nil (NUMBERP DWG-HEIGHT))
(PIECE-MARK STR)
(STRINGERS_EQ STR)
(MAT-TABLE VLA-OBJECT)
(fab-stringer--add-bottom-segment)
Adds the bottom stringer segment to BLOCKOBJ
(fab-stringer--add-cap-material caps)
Adds material from CAPS to STRINGER-MATERIAL
(fab-stringer--add-detail blkins side mark)
Adds a single stringer detail for SIDE at BLKINS
Adds material to STRINGER-MATERIAL and cap material to CAPS
VARS:
(BLKINS LIST)
(SIDE STR)
(MARK STR)
(fab-stringer--add-flange-line seg-pline height)
Adds a single flange line to a stringer segment in BLOCKOBJ
VARS:
(SEG-PLINE VLA-OBJECT)
(HEIGHT nil (NUMBERP HEIGHT))
(BLOCKOBJ VLA-OBJECT)
(fab-stringer--add-mid-segment)
Adds the mid stringer segment to BLOCKOBJ
(fab-stringer--add-segment-material mark-id len)
Adds material for a stringer segment to STRINGER-MATERIAL
VARS:
(MARK-ID STR)
(LEN nil (NUMBERP LEN))
(MATERIAL STR)
(CURRENT-MARK STR)
(fab-stringer--add-top-segment)
Adds the top stringer segment to BLOCKOBJ
(fab-stringer--parallelogramize mseg-pts)
Returns a points list representing the outer parallelogram of the middle segment
VARS:
(MSEG-PTS LIST)