关于块的几个编程问题，求解答

NJZX05

最近在编写与块相关的程序时，发现了个问题，一直无法解决，求大神解答：
问题描述：块定义对象(注意,不是块引用)无法添加到选择集中，代码如下：
(vl-load-com)
(setq DOC (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq BLOCK (vla-item (vla-get-Blocks DOC) (vla-get-Name (vlax-ename->vla-object (car (entsel))))));;取得块定义
(setq ActSS (vla-get-ActiveSelectionSet DOC));;取得当前选择集
(vlax-for ITEM BLOCK (setq ENTLST (append ENTLST (list ITEM))));;取出所有块内图元
(setq SafeDIM (vlax-make-safearray vlax-vbObject (cons 0 (- (length ENTLST) 1 ))));;创建安全数组
(vlax-safearray-fill SafeDIM ENTLST);;用块内图元填充安全数组
(vlax-invoke-method ActSS 'AddItems (variant SafeDIM));;向选择集添加,此处有异常
;;注,如果不是块内的图元,则是成功的,块内的图元与非块内图元的差别就是OwnerID属性不同
(vlax-invoke-method DOC 'WBlock "FILENAME" ActSS);;写块至文件

emk

全是vl函数，头晕，