I think I see what's going on. Try these changes:
- (setq TREADWIDTH (getdist "\nWhat tread width?: ") LOWERFLOOR (nentselp (getpoint "\nSelect lower floor: ")) LOWERFLOORPICK (cadr LOWERFLOOR) [color=red]; here[/color] LOWERFLOOR (entget (car LOWERFLOOR)) [color=red]; here[/color] UPPERFLOOR (entsel "\nSelect upper floor: ") UPPERFLOORPICK (car (cdr UPPERFLOOR)) UPPERFLOOR (entget (car UPPERFLOOR)) PROBLEM 0 )
| 
