Select text in particular range value
@Anonymous wrote:
....
Lisp should consider the values even text has alphabets and decimals.
....
How many kinds of configurations might that take? I ask because, for example,
(atof "12.345ABC")
returns 12.345, so if letters occur only after the numerical part you want, (atof) could be used without modifying the text content. But
(atof "ABC12.345")
returns 0.0, so if letters can come before the numerical part, the text content would need to have non-numerical characters stripped off the beginning before conversion to a number.
And if you need to have other-than-decimal formats and use (distof), applying that to either of those strings returns nil, so for that, non-numerical characters would need to be stripped off both ends before it could do anything with the string.
Also, could there ever be more than one numerical part in the same string, such as "abc123.45xyz543.21"?
Finally, I see you have MTEXT accepted for selection. Do you ever use Mtext containing stacked fractions ? The special coding in the string content to make them stack would mess up any analysis of the number represented, or would require some more sophisticated code to pull the fraction out.
Kent Cooper, AIA 
Dear Sir,
Please find attacahed drawing having lot of numbers. Marked some circles where alphabets also included in text. Some Texts have Prefixes and some have suffixes and some have both Prefixes and suffixes.
@Anonymous wrote:
Please find attacahed drawing having lot of numbers. Marked some circles where alphabets also included in text. Some Texts have Prefixes and some have suffixes and some have both Prefixes and suffixes.
Its actually easier if you filter the selection by their Z value instead of the string @Anonymous .
See how easy for us to suggest if there is a an actual drawing to look into 🙂
Try that filter with ssget, give us a shout if you need help with that.
Something ike this:
(setq ss (ssget "_X" '((0 . "TEXT") (-4 . "*,*,>=") (10 0.0 0.0 7.83)(-4 . "*,*,<=")
(10 0.0 0.0 8.55) )))
We can build a range by prompting for lowest and highest point.
Try it like this
(Setq low (getreal "\nEnter Low point: "))
(Setq high (getreal "\nEnter High point: "))
(setq ss (ssget "_X" (list '(0 . "TEXT")'(-4 . "*,*,>=")
(list 10 0.0 0.0 low)
'(-4 . "*,*,<=")
(list 10 0.0 0.0 high) )))
You can also jsut use the Z value after selection is already set
(< low (caddr (cdr (assoc 10 (entget en)))) high)HTH
@Anonymous wrote:
Thanks for responding Sir,
But here the task is to select the numbers in particular range (Suppose 2.5 to 8), then only those numbers to be selected from user selection, and remaining to be unselected. Some texts may include alphabets either on prefix or suffix or includes both prefix and suffix.
Hello @Anonymous ,
Please try what i suggested first, the string prefix and suffix has nothing to do with the selection using the filter shown on my previous post, it will still select tha numerical value of those TEXT based on the values you provided via Low and High variable
By collecting the Z values of the selected TEXT, you can get the high and low values as well.
Cheers
(defun c:MMA (/ ss lst numlst txt2num)
(prompt "\nSelect text to analize numbers.")
(if (setq ss (ssget '((0 . "TEXT,MTEXT"))))
(progn
(setq lst (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
(foreach x lst
(setq numlst (cons
(caddr (cdr (assoc 10 (entget x)))) numlst)))
(print "Min number ")
(princ (apply 'min numlst))
(print "Max number ")
(princ (apply 'max numlst))
(print "Average of numbers ")
(princ (/ (apply '+ numlst) (length numlst)))
) ;_ end of progn
(prompt "\nNo numberf found.")
)
(princ)
)Sir,
Nothing text is selecting by this code. It showing like below pic.
Here I need only selection of numbers in between the user-defined range irrespective of any other text properties, whether it has alphabetical or z elevations or in different layers.
Thans a lot Sir for spending your valuable time.
@Anonymous wrote:
Sir,
Nothing text is selecting by this code. It showing like below pic.
I just run the MMA from post#11
Select objects:
"Min number " 0.38
"Max number " 896.54
"Average of numbers " 10.0203Please check again. 🙂
Strange that the first drawing file you submitted is different from the second one
(defun c:MMA (/ ss minval maxval numlst x str n i)
(prompt "\nSelect text to analize numbers.")
(if (and
(setq numlst nil
minval (getreal "Please enter Min value of Range = "))
(setq maxval (getreal "Please enter Min value of Range = "))
(setq ss (ssget "_X" '((0 . "TEXT,MTEXT"))))
)
(progn
(repeat (setq i (sslength ss))
(setq x (entget (ssname ss (setq i (1- i))))
str (strcase (cdr (assoc 1 x)))
n (read
(vl-list->string
(vl-remove-if
'(lambda (c)
(<= 65 c 90))
(vl-string->list str)
)
)
)
)
(if (<= minval n maxval)
(setq numlst (cons n numlst))))
(print "Min number ")
(princ (apply 'min numlst))
(print "Max number ")
(princ (apply 'max numlst))
(print "Average of numbers ")
(princ (/ (apply '+ numlst) (length numlst)))
)
)
(princ)
)
"Min number " 6.5
"Max number " 8.2
"Average of numbers " 7.3712
This one will rub a little bit longer as it involves convertsion
HTH.
PS: if you had stayed on the original format. keeping the Z values it would have been a lot faster. Now everything is flatten
Looking for an old routine of mine that removes the none numbers on the string. its way faster than the one i post here.
Dear Sir,
Please forget about z elevations and min, max & avergae values of text.
The lisp code I have provided is for just editing.
The exact requirement is to selection only.
The lisp should select those numbers, which are in user input range (Suppose in between 4.5 to 5.0).
Here there is no matter of finding minimum, maximum and average value of text.
It's matter about only selection of text, which are having text value in between certain range of min and max values fed by user.
Please have a look on my attached image once, which autoselected the values between 4.5 to 5.0 and remaining to be unselected from user selection set. If you see in snapshot all selected values are in between 4.5 to 5.0 only.
Accepted solution
(defun c:MMA (/ ss minval maxval numlst x str n i ssetfound)
(prompt "\nSelect text to analize numbers.")
(if (and
(setq minval
(getreal
"Please enter Min value of Range = "))
(setq maxval
(getreal
"Please enter Min value of Range = "))
(setq ssetfound (ssadd)
ss (ssget "_X"
'((0 . "TEXT,MTEXT")
(410 . "Model"))))
)
(progn
(repeat (setq i (sslength ss))
(setq x (entget (Setq e (ssname ss
(setq i (1- i)))))
str (strcase (cdr (assoc 1 x)))
n (read
(vl-list->string
(vl-remove-if
'(lambda (c)
(<= 65
c
90))
(vl-string->list
str)
)
)
)
)
(if (<= minval n maxval)
(ssadd e ssetfound))
)
(sssetfirst nil ssetfound)
)
)
(princ)
)
Dont forget to set the Grips limit -> GRIPOBJLIMIT
or Options/Selection/Grips/Object Selection limit for display of grips
You are welcome, plus you have tons of lisp code on this thread from various members, Hope you can learn from those.
Also , please do this for us, next time, be clear on the what you're requesting for and avoid posting conflicting information. The clearer the goal the faster you get correct results.
Cheers
