;;不炸开块提取块内对象 LJS BY 2012 12 07 参考了《属性按选择顺序加1》的程序
(defun c:test ()
 (if (and   
           (setq e(nentsel"\nSelect Block with Attrib 选择带属性图块 :"))
           (setq en(car e) inspt(cadr e))
           (setq ent (entget en ))
           (= (cdr(assoc 0 ent)) "INSERT")
           ;(= (cdr(assoc 66 ent)) 1)                    
   )(progn
     (foreach n ent
       ( setq ent (entget(entnext(cdr(assoc -1 ent)))) entg ent  )
       (entmake (cdr entg))
       (setq ee(entlast) enth(entget ee))
       (command "move" (entlast) "" "non"'(0 0) "non"inspt )
     );for
 )) ;if
  (princ)
)