fab/fab.lsp [src]
Common functions for making fab drawings
(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.
(make-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 or 'land.
VARS:
(DATA LIST)
(ENT-TYPE SYM (MEMBER ENT-TYPE '(STAIR LAND)))
(write-title-block job-info stairno login style)
Rewrites special text objects in a fab drawing title block
(write-title-block--replace-text lst)
Replaces special text object in a document