(if (> *wplseg* 1) (progn (if *wplpct* (initget 4) (initget 5)) (setq pcttemp (getreal (strcat "\nMaximum displacement as percentage of average segment length" (if *wplpct* (strcat " <" (rtos *wplpct* 2 2) ">") "") ": " ); end strcat ); end getreal *wplpct* (if pcttemp pcttemp *wplpct*) ); end setq ); end progn ); end if