Using AutoLISP to select all text longer than one character

[Anonymous]

The title says it all. Is there an AutoLISP guru who can pass on the correct incantation? I can't figure out what the filter-list parameter should be for this.

[trevor.bird.au]

Hi Samuel,

I hope the following helps.

It is only selecting TEXT objects, not MTEXT, and hasn't been tested on all the control codes and special character codes that could be prefixing your text.

It should select "Ø12" but not "Ø1", but if you need to select text like "Ø1" then remark out or delete relevant lines.

(defun c:ssgettext ( / sstext )
  (setq sstext
    (ssget
      '(
        (0 . "TEXT")

        (-4 . "<AND")

          (-4 . "<OR")
            (1 . "??*")     ; e.g. "AB"
            (1 . "%%???*")  ; e.g. "%%c12" (Ø12)
          (-4 . "OR>")

          (-4 . "<NOT")
            (1 . "%%??")    ; e.g. "%%c1" (Ø1)
          (-4 . "NOT>")

        (-4 . "AND>")
      )
    )
  )

  (if sstext
    ;;  Grip and select.
    (sssetfirst nil sstext)
  )

  (princ)
)

Regards,

Trevor

[john.uhden · Accepted solution]

I haven't tried it, but how about '(1 . "??*")

[Anonymous]

Thanks! This is exactly what I needed. I hadn't used wildcards in ssget before, so it didn't even occur to me to use them here.