;;; FILE NAME: CABINET.LSP
;;; Written by: Bob Thomas
;;; Thomas Enterprises, ltd.
;;; 1030 "B" Street, Suite 201
;;; San Rafael, CA 94901
;;; 415/453-8712
;;;
;;; This file and its accompanying Release 10 drawing file, CABINET.DWG, may be
;;; freely copied provided that the two files remain together and this header
;;; remains intact, so that people know what the program does and I can get a
;;; free plug in. Thank you. Use and enjoy...
;;;
;;; Recommended LISPSTACK=40000 LISPHEAP=5000, or R10 Extended AutoLISP
;;;
;;; This file contains a parametric program that creates 2D representations of
;;; cabinet faces. All variables are local except those used to set and retain
;;; defaults, as follows (Rename these if they conflict with yours):
;;;
;;; bcw = Cabinet width (24")
;;; bch = Cabinet height (34.5")
;;; bbch = Cabinet height (34.5")
;;; (72" for linen cabinets, if no height value entered previously)
;;; oset1 = 1st offset (drawer-to-side: 1")
;;; oset2 = 2nd offset (drawer detail: 1")
;;; bth = Base trim height (4")
;;; bto = Base trim offset (1")
;;; dc = Drawer configuration (4)
;;; nd = Number of drawers (1)
;;;
;;; (All values entered become default for repeats.)
;;;
;;; AutoCAD Command Prompt Sequence:
;;;
;;; Command: CABINET
;;; Basic/Linen/Wall: (Select one)
;;; Cabinet width: <default>: (Enter)
;;; Height <default>: (Enter)
;;; Base trim height <default>: (Basic & linen cabinets)
;;; Base trim offset <default>: (Basic & linen cabinets)
;;; Base cabinet height <default>: (Linen cabinets only)
;;; 1st offset <default>: (Space btw. drawers and side)
;;; 2nd offset <default>: (Drawer detail offset)
;;; Drawer Configuration <default>: (Max. number of drawers;;; determines size)
;;; Number of drawers <default>: (Actual drawers this cabinet)
;;; Move cabinet into place. (When outline is drawn, position cabinet)
;;;
;;; The accompanying Release 9 drawing file, CABINET.DWG, illustrates the
;;; drawing parameters that correspond to these prompts.
;;;