ssget filter

[EnM4st3r]

I tried to write me a small Lisp to select every Text with the same Rotation as the one I select with entsel.
But somehow i cant get it to work.. any advice?

(defun c:selectRtTxt ()
  (setq rt (assoc 50 (entget (car (entsel)))))
  (setq txt (ssget "_X" '((0 . "TEXT,MTEXT") (rt))))
  (sssetfirst nil txt)
)

[komondormrex · Accepted solution]

check this

(defun c:selectRtTxt ()
  (setq rt (assoc 50 (entget (car (entsel)))))
  (setq txt (ssget "_X" (list (cons 0 "*text") rt)))
  (sssetfirst nil txt)
)

[EnM4st3r]

Works, Thank you!