PSC Code Manual

stair/tread.lsp [src]

Functions related to stair tread/riser assemblies

Functions

Function signature Description
Public
(add-stair-conc stair-block) Adds concrete tread lines to STAIR-BLOCK
(add-stair-qtread stair-block layer) Adds Quiet Tread to checker plate stair treads in STAIR-BLOCK on LAYER
(add-stair-stn stair-block layer) Adds STN to STAIR-BLOCK on LAYER
(add-stair-treads stair-block layer) Adds treads to STAIR-BLOCK on LAYER
(calc-nose-pts) Returns a list of nosing points relative to stair insert
(calc-stair-pans) Returns a list of stair pans
Private
(add-stair-stn--100 ins) Adds STN to STAIR-BLOCK at INS for 100 series stair
(add-stair-stn--200 ins) Adds STN to STAIR-BLOCK at INS for 200 series stair
(add-stair-stn--400 ins) Adds STN to STAIR-BLOCK at INS for 400 series stair
(add-stair-treads--grating) Adds grating treads to STAIR-BLOCK
(add-stair-treads--pan) Adds pan treads to STAIR-BLOCK on LAYER
(calc-conc-lines--100) Returns concrete lines for 100 series
(calc-conc-lines--400) Returns concrete lines for 400 series
(calc-conc-lines--add-line x1 x2) Adds a line to CONC-LINES
(calc-conc-lines--add-line-mid x) Adds a line to CONC-LINES
(calc-stair-pans--100) Returns a list of 100 series pans
(calc-stair-pans--100-no-stn) Returns a list of 100 series pans without STN
(calc-stair-pans--100-stn) Returns a list of 100 series pans with STN
(calc-stair-pans--200) Returns a list of 200 series pans
(calc-stair-pans--200-no-stn) Returns a list of 200 series pans without STN
(calc-stair-pans--200-stn) Returns a list of 200 series pans with STN
(calc-stair-pans--200-sub-nosings) Returns a list of sub nosing pans for 200 series with STN
(calc-stair-pans--400) Returns a list of 400 series stair pans
(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
(calc-stair-pans--hv a h1 v1) Returns vertices for an hv style pan
(calc-stair-pans--hvh a h1 v1 h2) Returns vertices for an hvh style pan
(calc-stair-pans--v a v1) Returns vertices for a v style pan
(calc-stair-pans--vh a v1 h1) Returns vertices for a vh style pan
(calc-stair-pans--vhv a v1 h1 v2) Returns vertices for a vhv style pan
(calc-stair-pans--vhvh a v1 h1 v2 h2) Returns vertices for a vhvh style pan

(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

(add-stair-treads stair-block layer)

Adds treads to STAIR-BLOCK on LAYER

This function sets some defaults and calls either add-stair-treads--grating
or add-stair-treads--pan

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)

Returns a list of 100 series pans

Called by calc-stair-pans

This function just sets some defaults and calls either
calc-stair-pans--100-no-stn or calc-stair-pans--100-stn

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)

Returns a list of 200 series pans

Called by calc-stair-pans

This function just sets some defaults and calls either
calc-stair-pans--200-no-stn or calc-stair-pans--200-stn

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-stn)

Returns a list of 200 series pans with STN

Called by calc-stair-pans--200

Attaches the results of calc-stair-pans--200-sub-nosings to the regular pans it
calculates.

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))