(setq TREADWIDTH (getdist "\nWhat tread width?: ") LOWERFLOOR (nentselp (getpoint "\nSelect lower floor: ")) LOWERFLOORPICK (cadr LOWERFLOOR) ; here LOWERFLOOR (entget (car LOWERFLOOR)) ; here UPPERFLOOR (entsel "\nSelect upper floor: ") UPPERFLOORPICK (car (cdr UPPERFLOOR)) UPPERFLOOR (entget (car UPPERFLOOR)) PROBLEM 0 )
页:
1
[2]