I agree and putting on a pair of shorts was suggested to the OP earlier in the thread.

However for the sake of argument and to keep this thread interesting, there might be a larger issue here, which bugs me. It appears to me that somebody is using the "uncomfortable work environment"part of sexual harassment to impose their will on others in the work place whether or not any sexual harassment is actually occurring. To me this is wrong and I don't think it is a small issue because if they are successful doing this once, they are going to do it again. Although, I will qualify that we may not know what is all going on here.

Again for the sake of argument, as far as dress code goes I think this is a bit of a gray too. For example, a plant type workplace may have locker rooms where workers change into "work clothes" from "street clothes." I don't think it is self obvious to everyone that dress codes can start when you set foot on company property.