vla-delete要删除没有参考的图块似乎不大行?????[讨论]

龙龙仔

;;前提:只能使用VISUAL LISP,且不能使用VLA-PURGEALL方法
;;当图档中有4个图块,分别是 A B C D, A图块包含B & C
;;使用下列程序只能删除A & D, B & C要如何删除??????
(defun C:SPURGE        (/ APP DOC BLOCKS)
  (setq APP (vlax-get-acad-object))
  (setq DOC (vla-get-activedocument APP))
  (setq BLOCKS (vla-get-blocks DOC))
  (vlax-for M BLOCKS
    (vl-catch-all-apply
      'vla-delete
      (list M)
    )
  )
  (vlax-release-object APP)
  (vlax-release-object DOC)
  (vlax-release-object BLOCKS)
  (princ)
)