My LISP only lets me select one table at a time

[wjbGQR94]

Hi there,

I have made a simple lisp that removes the property overrides of a table but I need to individually click each table.

I would like to be able to select all the tables on a drawing at once and use this command

Any advice would be most welcome!

Thanks!

[xuantientutungXUK6E]

(setq ss (ssget "x" (list (cons 0 "INSERT") (cons 2 "zi3042sht")))

Use this code above for reference.

it will select what you want in active drawing depended on the condition (list (cons 0 "INSERT") (cons 2 "zi3042sht"))

[ВeekeeCZ · Accepted solution]

Here you go.

(vl-load-com)

(defun c:RPO ( / toggle ss i)

  (setq toggle 0)

  (if (setq ss (ssget '((0 . "ACAD_TABLE"))))
    (repeat (setq i (sslength ss))
      (vla-cleartablestyleoverrides (vlax-ename->vla-object (ssname ss (setq i (1- i)))) toggle)))
  (princ)
  )

[wjbGQR94]

Exactly what I needed thank you so much