(prog) Brickworx

Posted this to theSwamp, thought maybe it would get some use over here also.

Enjoy!

;;;         BrickWorx©:
;;;                Is a comprehensive 2D brick feature creation program.
;;;                It allows the user to create differant brick features such as:
;;;                Soldier Courses, Salior Courses, Rowlocks, Jack Arches, Keyed Jack Arches,
;;;                Brick Arches and Brick Arches w/ Keystones.
;;;                It spaces the brick evenly between the defined points


;;; ---Program Shourcuts ---------------------------------------------------
;;;
;;;        SAL    =    Sailior Course
;;;        ROW    =    Rowlock
;;;        TBL    =    Water Table (Rowlock w/ Soldier Course below)
;;;        3SOL    =    3 Course Soldier
;;;        4SOL    =    4 Course Soldier
;;;        5SOL    =    5 Course Soldier
;;;        3JK    =    3 Course Jackarch w/ Keystone
;;;        4JK    =    4 Course Jackarch w/ Keystone
;;;        5JK    =    5 Course Jackarch w/ Keystone
;;;        3JA    =    3 Course Jackarch
;;;        4JA    =    4 Course Jackarch
;;;        5JA    =    5 Course Jackarch
;;;        3AR    =    3 Course Arch
;;;        4AR    =    4 Course Arch
;;;        5AR    =    5 Course Arch
;;;        3AK    =    3 Course Arch w/ Keystone
;;;        4AK    =    4 Course Arch w/ Keystone
;;;        5AK    =    5 Course Arch w/ Keystone

BrickWorx.zip

Well I'm no mason but thanks for sharing with us Tim!

Thanks for the lisp TIM

Just a question.

Is there a metric version of this lisp too???

Tim,

I found your HVAC suite some time ago and have just now gotten around to using it. Very impressive lisp routines! So I thought I would go straight to the source with my questions. I have modified the createduct.lsp slightly to include some defaults and match our company standards. I am having trouble getting it to accept defaults on the portion where it asks for user input of duct size...width, height, diameter. I would like it to remember the last entry so the user can hit enter or allow for new sizes to be entered (similar to the way the fillet command works)

Attached is the code.

Thanks for any help.

Nathan

RWB-DUCT.LSP