试试这个,告诉我你会怎么做。
- (defun c:test (/ n1 n2 sad ss i sn e st)
- ;; Tharwat 26.June.2014 ;;
- (if (and (setq n1 (getint "\n Specify First number in order [smallest] :"))
- (setq n2 (getint "\n Specify Second number in order [biggest] :"))
- (princ "\n Select texts ...")
- (setq sad (ssadd)
- ss (ssget "_:L" '((0 . "TEXT") (1 . "*#*")))
- )
- )
- (repeat (setq i (sslength ss))
- (setq sn (ssname ss (setq i (1- i)))
- e (entget sn)
- st (cdr (assoc 1 e))
- )
- (if (and (numberp (setq n (read st))) (< (1- n1) n (1+ n2)))
- (ssadd sn sad)
- )
- )
- )
- (sssetfirst nil sad)
- (princ)
- )
|