stair/tread.lsp [src]
Functions related to stair tread/riser assemblies
(add-stair-conc stair-block)
Adds concrete tread lines to STAIR-BLOCK
WITH-DATA
VARS:
(STAIR-BLOCK VLA-OBJECT)
(add-stair-qtread stair-block layer)
Adds Quiet Tread to checker plate stair treads in STAIR-BLOCK on LAYER
Note: main treads only. See chkr-haunch-common and add-qt for haunches.
WITH-DATA
VARS:
(STAIR-BLOCK VLA-OBJECT)
(LAYER STR)
(add-stair-stn stair-block layer)
Adds STN to STAIR-BLOCK on LAYER
VARS:
(STAIR-BLOCK VLA-OBJECT)
(LAYER STR)
WITH-DATA
(calc-nose-pts)
Returns a list of nosing points relative to stair insert
WITH-DATA
VARS:
(DIR nil (NUMBERP DIR))
(TREAD_DEPTH nil (NUMBERP TREAD_DEPTH))
(RISE_HGT nil (NUMBERP RISE_HGT))
(BOT_CDIST nil (NUMBERP BOT_CDIST))
(BOT_EXT nil (NUMBERP BOT_EXT))
(calc-stair-pans)
Returns a list of stair pans
WITH-DATA
(add-stair-stn--100 ins)
Adds STN to STAIR-BLOCK at INS for 100 series stair
Called by add-stair-stn
VARS:
(STAIR-BLOCK VLA-OBJECT)
(INS LIST (POINT-P INS))
WITH-DATA
(add-stair-stn--200 ins)
Adds STN to STAIR-BLOCK at INS for 200 series stair
Called by add-stair-stn
VARS:
(STAIR-BLOCK VLA-OBJECT)
(INS LIST (POINT-P INS))
WITH-DATA
(add-stair-stn--400 ins)
Adds STN to STAIR-BLOCK at INS for 400 series stair
Called by add-stair-stn
VARS:
(STAIR-BLOCK VLA-OBJECT)
(INS LIST (POINT-P INS))
WITH-DATA
(add-stair-treads--grating)
Adds grating treads to STAIR-BLOCK
Called by add-stair-treads
VARS:
(STAIR-BLOCK VLA-OBJECT)
(LAYER STR)
WITH-DATA
(add-stair-treads--pan)
Adds pan treads to STAIR-BLOCK on LAYER
Called by add-stair-treads
VARS:
(STAIR-BLOCK VLA-OBJECT)
(LAYER STR)
WITH-DATA
(calc-conc-lines--100)
Returns concrete lines for 100 series
Called by add-stair-conc
WITH-DATA
(calc-conc-lines--400)
Returns concrete lines for 400 series
Called by add-stair-conc
WITH-DATA
(calc-conc-lines--add-line x1 x2)
Adds a line to CONC-LINES
x1 and x2 are relative to the nosing point
VARS:
(X1 REAL)
(X2 REAL)
WITH-DATA
(calc-conc-lines--add-line-mid x)
Adds a line to CONC-LINES
X is relative to the nosing point.
VARS:
(X REAL)
WITH-DATA
(calc-stair-pans--100-no-stn)
Returns a list of 100 series pans without STN
Called by calc-stair-pans--100
WITH-DATA
(calc-stair-pans--100-stn)
Returns a list of 100 series pans with STN
Called by calc-stair-pans--100
WITH-DATA
(calc-stair-pans--200-no-stn)
Returns a list of 200 series pans without STN
Called by calc-stair-pans--200
WITH-DATA
(calc-stair-pans--200-sub-nosings)
Returns a list of sub nosing pans for 200 series with STN
Called by calc-stair-pans--200-stn
WITH-DATA
(calc-stair-pans--400)
Returns a list of 400 series stair pans
Called by calc-stair-pans
WITH-DATA
(calc-stair-pans--add-defaults pans)
Adds default key values to pans that were omitted during initial calc
(calc-stair-pans--h a h1)
Returns vertices for an h style pan
VARS:
(A nil (NUMBERP A))
(H1 nil (NUMBERP H1))
(calc-stair-pans--hv a h1 v1)
Returns vertices for an hv style pan
VARS:
(A nil (NUMBERP A))
(H1 nil (NUMBERP H1))
(V1 nil (NUMBERP V1))
(calc-stair-pans--hvh a h1 v1 h2)
Returns vertices for an hvh style pan
VARS:
(A nil (NUMBERP A))
(H1 nil (NUMBERP H1))
(V1 nil (NUMBERP V1))
(H2 nil (NUMBERP H2))
(calc-stair-pans--v a v1)
Returns vertices for a v style pan
VARS:
(A nil (NUMBERP A))
(V1 nil (NUMBERP V1))
(calc-stair-pans--vh a v1 h1)
Returns vertices for a vh style pan
VARS:
(A nil (NUMBERP A))
(V1 nil (NUMBERP V1))
(H1 nil (NUMBERP H1))
(calc-stair-pans--vhv a v1 h1 v2)
Returns vertices for a vhv style pan
VARS:
(A nil (NUMBERP A))
(V1 nil (NUMBERP V1))
(H1 nil (NUMBERP H1))
(V2 nil (NUMBERP V2))
(calc-stair-pans--vhvh a v1 h1 v2 h2)
Returns vertices for a vhvh style pan
VARS:
(A nil (NUMBERP A))
(V1 nil (NUMBERP V1))
(H1 nil (NUMBERP H1))
(V2 nil (NUMBERP V2))
(H2 nil (NUMBERP H2))