Here is another one...
http://204.101.252.14/library/lispdk.htmlELWIND.zip file
; FILE NAME: ELWIND.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 drawing file, ELWIND.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...
;
; ELWIND is a command to create architectural elevation drawings of different
; window types, with a "grilled" option. All variables are local except those
; used to carry defaults, as follows:
;
; w = default window width
; h = default window height
; oset1 = default 1st offset
; oset2 = default 2nd offset
; gs = default grill spacing
;
;
; Command:
; ELWIND - Creates elevation windows
;
; Command Prompt Sequence:
;
; Awning/Casement/Dblhung/Fixed/Gliding
; Awning - Hidden lines connecting lower corners with upper midpoint
; Casement - Hidden lines connecting right corners with left midpoint
; Dblhung - Standard double-hung window
; Fixed - Simple non-opening window
; Gliding - Horizontal sliding window
;
; Select options with either the option word (or the first letter of the
; option word).
;
; Width:
; Height:
; 1st offset:
; 2nd offset:
; Grilled? <N>:
; Grill spacing:
;
; Respond to prompts with the appropriate value. Refer to accompanying
; AutoCAD drawing file, EL-WN.DWG, for a diagram illustrating the meaning
; of the various options.
;
; Note: In order to save time and node space, if you select the "grilled"
; option, the window grill is drawn onscreen after the window is positioned.
;
; PROGRAM:
;
Gary