land/endview.lsp [src]
Functions for drawing landing end views
(land-endview-draw ins lr)
Draws a landing end view at INS
LR should be one of the symbols 'left or 'right to indicate which perspective to
draw (relative to the view of the section).
VARS:
(INS LIST (POINT-P INS))
(LR SYM (MEMBER LR '(LEFT RIGHT)))
WITH-DATA
(land-endview--blw-post wid lng)
Returns a block containing a post under the channel
VARS:
(WID nil (NUMBERP WID))
(LNG nil (NUMBERP LNG))
(land-endview--draw-support corner)
Draw the landing support for CORNER in BLOCKOBJ
VARS:
(CORNER STR)
(BLOCKOBJ VLA-OBJECT)
WITH-DATA
(land-endview--hanger dia chd lng)
Returns a block containing a hanger
VARS:
(DIA nil (NUMBERP DIA))
(CHD nil (NUMBERP CHD))
(LNG nil (NUMBERP LNG))
(land-endview--ledger emb ang rod)
Returns a block containing a standard ledger
(land-endview--ledger-inv)
Returns a block containing an inverted ledger
(land-endview--std-post wid lng)
Returns a block containing a standard post
VARS:
(WID nil (NUMBERP WID))
(LNG nil (NUMBERP LNG))