 - (setq pt2(getpoint)
- fuz 0.5)
- (setq ss3 (ssget"X"(list'(-4 . "<or")
- '(-4 . "<and")
- '(-4 . ">=,>=")
- (cons 13(mapcar'- pt2(list fuz fuz)))
- '(-4 . "and>")
- '(-4 . "<and")
- '(-4 . "<=,<=")
- (cons 13(mapcar'+ pt2(list fuz fuz)))
- '(-4 . "and>")
- '(-4 . "OR>"))))
|