topic Apply a command to all text and mtext in Visual LISP, AutoLISP and General Customization Forum

Apply a command to all text and mtext

renanemeyer — Wed, 17 Nov 2021 14:17:28 GMT

Hello everyone
I've been trying to develop a code that would apply the tspaceinvaders command only to text and mtext of the selection, and on asking "Step through each one for visual verification?" already selected the "N".
But what I was starting didn't have functionality. Please, would anyone know what could be changed in this code?

(defun C:TINV (/ ss i elist) (prompt "\nSelect an area: ") (setq ss (ssget (list (cons 0 "TEXT")))) (setq i -1) (if ss (repeat (sslength ss) (setq elist (cdr (assoc -1 (entget (ssname ss (setq i (1+ i))))))) (command "TSPACEINVADERS" elist ""); ) ) )

Re: Apply a command to all text and mtext

ВeekeeCZ — Wed, 17 Nov 2021 16:10:19 GMT

Try this one.

It's not so simple due to it's not a regular built-in command but an express tool... probably just a LISP but didn't wonder.

(defun c:InvAll ( / s)

  (if (setq s (ssget "_:L" '((0 . "*TEXT"))))
    (progn
      (command "_.select" s "")
      (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "TSPACEINVADERS\rP\r\r\r")))
  (princ)
  )

Re: Apply a command to all text and mtext

renanemeyer — Wed, 17 Nov 2021 18:51:11 GMT

Thank you very much @ВeekeeCZ

I did some tests, in most cases they were great (in some not, but it's due to the range of distance that the tspace command works, I go to see how to adjust)
I appreciate your availability to evaluate and adjust the code, it will be very useful