SelectSimilar assistance

[HullDrafter]

Yes, I know, I am still doing small LISP commands.

I am trying to help my new associates in the cleanup of their drawings.

One of my co-workers is using Selectsimilar command to clean up drawings.

I was trying to put together a routine to clean up his drawings. I tried to put togerther this routine, but it doesn't want to work.

(defun c:JJE () ;begin JJE Erase Similar
(command "_selectsimilar" pause "" "erase" "")
(princ)
)

Also tried 

(defun c:JJE () ;begin JJE Erase Similar
(command "_selectsimilar" pause "")

(command "erase" "")
(princ)
)

Any suggestions to make this work?

HD

[johnjebasundar]

try this for single object

(command "aecselectsimilar" pause "" "erase")

 try this for selecting multiple objects

(command "aecselectsimilar" (ssget) "" "erase")

[hmsilva]

Try

(defun c:JJE ();begin JJE Erase Similar
  (command "_.selectsimilar")
  (while (> (getvar 'cmdactive) 0)
    (command pause)
  )
  ;; while
  (command "_.erase")
  (princ)
)

HTH

Henrique

[HullDrafter]

I will be trying both methods. Thank you for responding so quickly.