PSC Code Manual

fab/util.lsp [src]

Fab drawing utility functions

Functions

Function signature Description
(calc-dwg-no jobno stairno sigil) Returns the next available fab drawing number with this SIGIL
(fab-combine-like-data data-lists keys) Returns groups of similar datalists for fab drawing consolidation
(fab-get-types) Gets a list of fab drawing types via dialog
(get-finish) Returns the finish from the finish table or nil if no finish table found
(get-hardware) Prompts the user to choose a hardware description via dialog and returns it
(get-material) Prompts the user to choose a material description via dialog and returns it
(hardware-galv-desc desc) Returns a hardware description that accounts for galvanization
(make-fab-dwgs types enames) Makes all the TYPES of fab drawings using data from ENAMES
(make-generic-fab data ent-type) Creates a generic fab drawing in the current folder
(make-rail-fab-common template eval-form) Common function to make rail fab drawings
(next-mark-prefix) Returns the next available mark prefix and increments it
(set-finish value) Sets the finish in the finish table to VALUE
(write-title-block job-info stairno login style) Rewrites special text objects in a fab drawing title block

(calc-dwg-no jobno stairno sigil)

Returns the next available fab drawing number with this SIGIL

VARS:
(JOBNO STR)
(STAIRNO STR)
(SIGIL STR)

(fab-combine-like-data data-lists keys)

Returns groups of similar datalists for fab drawing consolidation

Similarity is based on equivalence of the values of all keys in KEYS.

(fab-get-types)

Gets a list of fab drawing types via dialog

(get-finish)

Returns the finish from the finish table or nil if no finish table found

(get-hardware)

Prompts the user to choose a hardware description via dialog and returns it

(get-material)

Prompts the user to choose a material description via dialog and returns it

(hardware-galv-desc desc)

Returns a hardware description that accounts for galvanization

VARS:
(DESC STR)

(make-fab-dwgs types enames)

Makes all the TYPES of fab drawings using data from ENAMES

(make-generic-fab data ent-type)

Creates a generic fab drawing in the current folder

DATA is the data list of properties and ENT-TYPE is either 'stair 'land or 'guard.

VARS:
(DATA LIST)
(ENT-TYPE SYM (MEMBER ENT-TYPE '(STAIR LAND GUARD)))

(make-rail-fab-common template eval-form)

Common function to make rail fab drawings

Opens TEMPLATE, sets up title block and variables, and evals EVAL-FORM. Then it saves and
closes the drawing.

(next-mark-prefix)

Returns the next available mark prefix and increments it

(set-finish value)

Sets the finish in the finish table to VALUE

Returns VALUE if successful or nil if no finish table found

VARS:
(VALUE STR)

(write-title-block job-info stairno login style)

Rewrites special text objects in a fab drawing title block