fab/util.lsp [src]
Fab drawing utility functions
(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