topic Re: keep only highest value text in selected text. in Visual LISP, AutoLISP and General Customization Forum

keep only highest value text in selected text.

ravi82sharm — Sat, 10 Sep 2022 06:17:35 GMT

Hello, I have so many bunches of text and want to keep only the highest value in it. can anyone suggest to me the lisp for the same? thank you in advance.

Re: keep only highest value text in selected text.

hak_vz — Sat, 10 Sep 2022 11:30:25 GMT

Since you didn't provided sample dwg here is code that works with selected text without filtering. Let suppose all selected text has numerical values. To use this code move text entities aside or leave only this layer on.

(defun c:maxvaluetext ( / ss i lst) (setq i -1 ss (ssget '((0 . "*text")))) (cond ((and ss) (while (< (setq i (1+ i)) (sslength ss)) (setq lst (cons (list (atof(cdr(assoc 1 (entget (ssname ss i))))) (ssname ss i)) lst)) ) (mapcar 'entdel (mapcar 'cadr (cdr (vl-sort lst '(lambda (x y) (> (car x)(car y))))))) ) ) (princ) )

Re: keep only highest value text in selected text.

ravi82sharm — Sat, 10 Sep 2022 11:46:25 GMT

thank you it works. yes all values are numeric.

Re: keep only highest value text in selected text.

_Tharwat — Sat, 10 Sep 2022 15:13:17 GMT

Another way using AutoLISP vanilla.

(defun c:Test (/ int sel ent num big del) ;; Tharwat - Date: 10.Sep.2022 ;; (and (princ "\nSelect texts : ") (setq int -1 sel (ssget "_:L" '((0 . "TEXT,MTEXT") (1 . "*#*")))) (while (setq int (1+ int) ent (ssname sel int)) (or (and (setq num (distof (cdr (assoc 1 (entget ent))))) (> num big) (if del (entdel del) t) (setq big num del ent) ) (entdel ent) ) ) ) (princ) )