(setq sel:obj(ssget '((-4 . "<OR")(0 . "circle")(0 . "Insert")(-4 . "OR>")))) (setq obj:qty(sslength sel:obj)) (repeat obj:qty (setq obj:ent(ssname sel:obj i)) how to separated the "circle" and "insert block" (setq circle1( "what to do")) base on user select object (setq insert1( "what to do")) base on user select object