属性刷怎么能判断多重属性块之类？

cq4920

(defun c:DA (/ aa bb ss objlay n)
        (vl-load-com)
        (setq aa (nentsel "选取源图元或：<源图层>"))
        (if (= nil (type aa))
                (progn  ;;修改图元图层
                (setq aa (nentsel "选取源图层上的一个图元："))        
                (setq bb (nentsel "选取被修改图层上的一个图元："))
  (setq en1(entget(car aa)))
  (setq en2(entget(car bb)))
        (command "_.change" (ssget "x" (list (cons 8 (cdr(assoc 8 en2 ))))) "" "p" "la" (cdr(assoc 8 en1 )) "")
)        
        (progn
        (setq ss (mc-ssget (strcat "\n选取被修改图元特性或:<图层>") "S" '((0 . "*"))))
        ;(setq ss (ssget))
(if (= nil (type ss))         
        (progn  ;;修改图元图层
                (setq ss (mc-ssget (strcat "\n选取被修改图层的图元") "S" '((0 . "*"))))
                (setq objlay (vla-get-layer (vlax-ename->vla-object (car aa))))
  (setq n 0)
  (while (< n (sslength ss))
    (vla-put-layer (vlax-ename->vla-object (ssname ss n)) objlay)
    (setq n (1+ n))
  )        
        )
  (command "MATCHPROP"  aa ss "");;修改图元特性
        ))
        )
        (princ)
        )


在选取到特殊块的时候，提示错误，如合能过滤特殊块 或直接提示不可选取块