Just adjusted code, been busy so had to get up early (0300hrs) and get it sorted.
- (defun *error* (msg)(setvar "OSMODE" *osnap) ;error check(setvar "CMDECHO" 1)(princ msg)(princ))(defun DTR (a) (* PI (/ a 180.0)) ;degrees to radians)(defun C:SASH2 (/ IP P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14 P15 P16 P17 P18 P19 P20 P21 P22 P23 HEIGHT WIDTH GRT GL1 GL2 RW1 BORA BRG SG HH HEAD STILE OLDSNAP OLDBLIP OLDLIGHT); lisp routine to draw basic casement sash v.2; by Rob-GB (setq OLDSNAP (getvar "OSMODE"))(setq OLDBLIP (getvar "BLIPMODE") ;store settings)(setq OLDLIGHT (getvar "HIGHLIGHT"))(setvar "CMDECHO" 0)(setvar "BLIPMODE" 0)(setq HEIGHT (getdist "\nEnter height of sash : "))(setq WIDTH (getdist "\nEnter Width of sash : "))(setq BORA (getdist "\nEnter Bottom Rail : ") ; size of rail in elevation view)(setq HEAD (getdist "\nEnter Top Rail : ") ; size of rail in elevation view)(setq STILE (getdist "\nEnter Stile : ") ; size of stile in elevation view)(setq GRT (getdist "\nEnter Glass Rebate : ") ; size of rebate in elevation view)(setq IP (getpoint "\nInsertion Point: ")) ; bottom left corner(setvar "OSMODE" 0);Basic dims required(setq GL1 (- HEIGHT (+(- HEAD GRT)(- BORA GRT))))(setq GL2 (- WIDTH (* 2 (- STILE GRT))))(setq RW1 (- WIDTH (* 2 STILE)))(setq BRG (- BORA GRT))(setq SG (- STILE GRT))(setq HH (- HEIGHT HEAD)); PLOT POINTS(setq P1 (POLAR IP (DTR 90.0) HEIGHT)) (setq P2 (POLAR P1 (DTR 0.0) SG))(setq P3 (POLAR P2 (DTR 0.0) GRT))(setq P4 (POLAR P3 (DTR 0.0) RW1))(setq P5 (POLAR P4 (DTR 0.0) GRT))(setq P6 (POLAR P5 (DTR 0.0) SG))(setq P7 (POLAR P6 (DTR 270.0) HEIGHT))(setq P8 (POLAR P7 (DTR 180.0) SG))(setq P9 (POLAR P8 (DTR 180.0) GRT))(setq P10 (POLAR P9 (DTR 180.0) RW1))(setq P11 (POLAR P10 (DTR 180.0) GRT))(setq P12 (POLAR P11 (DTR 90.0) BRG))(setq P13 (POLAR P12 (DTR 90.0) GL1))(setq P14 (POLAR P13 (DTR 0.0) GL2))(setq P15 (POLAR P14 (DTR 270.0) GL1))(setq P16 (POLAR P10 (DTR 90.0) BORA))(setq P17 (POLAR P10 (DTR 90.0) HH))(setq P18 (POLAR P17 (DTR 0.0) RW1))(setq P19 (POLAR P9 (DTR 90.0) BORA))(setq P20 (POLAR P16 (DTR 270.0) GRT))(setq P23 (POLAR P19 (DTR 270.0) GRT))(setq P21 (POLAR P17 (DTR 90.0) GRT))(setq P22 (POLAR P18 (DTR 90.0) GRT));points plotted(command "_.PLINE" IP P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 IP ""); outside drawn(command "_.PLINE" P2 P11 "")(command "_.PLINE" P5 P8 "")(command "_.PLINE" P13 P14 "")(command "_.PLINE" P12 P15 "")(command "_.PLINE" P16 P17 P18 P19 P16 "")(command "_.PLINE" P17 P21 "")(command "_.PLINE" P18 P22 "")(command "_.PLINE" P16 P20 "")(command "_.PLINE" P19 P23 "")(setvar "OSMODE" OLDSNAP)(setvar "BLIPMODE" OLDBLIP)(setvar "HIGHLIGHT" OLDLIGHT)(princ));defun
I am a bit happier with outcome. It's just the organising of all the Glazing bars variants do work on now. | 
