Counter texts

[RMateus]

Dear friends,
I would like to learn how can I count the number of texts (strings) in a drawing using autolisp?
Best regards.

[MSasu]

Do you want to also filter them by a criteria? I mean: color, layer, content...
To count all text entities:

(if (setq ssText (ssget "_X" '((0 . "TEXT"))))
 (alert (strcat "This drawing contains " (itoa (sslength ssText)) " text entities."))
)

This will include mtext in selection:

(if (setq ssText (ssget "_X" '((0 . "*TEXT"))))
 (alert (strcat "This drawing contains " (itoa (sslength ssText)) " text/mtext entities."))
)

[Lee Mac]

Would this help?

http://lee-mac.com/tcount.html

[RMateus]

Thanks for the quick response.
I must have done something stupid.
The AutoCAD gives an error "error: bad SSGET list"
What is wrong with this code?

(defun c:ntxt ()
      (if (setq ssText (ssget "_X" '((0 . "*TEXT"))))   (alert "This drawing contains " (strcat (itoa (sslength ssText)) " text/mtext entities."))
  )
  )

[Tharwat]

(alert (strcat "This drawing contains " (itoa (sslength ssText)) " text/mtext entities.")

Besides that , localize variables ..

(defun c:ntxt (/ ssText)

[RMateus]

Thanks Lee.
It's really good, but what I wanted to learn, is how build code as you and these are small steps that help me understand how this works.

I hope don't bother you with same stupid questions in future.
Best regards.

[Lee Mac]

Thanks Lee.
It's really good, but what I wanted to learn, is how build code as you and these are small steps that help me understand how this works.

Not a problem, I admire your willingness to learn.

I hope don't bother you with same stupid questions in future.

Ask as many questions as you need for your understanding!

[RMateus]

Ok.
Thank you.

[MSasu]

@RMateus: I edited the counting report after pasted the code and thus the error. I have fixed my example now. Sorry for inconvenience!