[讨论]：vla-delete似乎不能删除所有图块参考????

LUCAS

;;前提:只能使用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)
)

e2002

搜索block定义,找到包含的block,可能要递归算法...不知道可不可行?

XDSoft

最初由 LUCAS 发布
[B];;前提:只能使用VISUAL LISP,且不能使用VLA-PURGEALL方法
;;当图档中有4个图块,分别是 A B C D, A图块包含B & C
;;使用下列程序只能删除A & D, B & C要如何删除??????
(defun C:SPURGE        (/ APP DOC BLOCKS)
  (s... [/B]

只要对象被别人引用，那么就不能删除。

嵌套块你用递归的方法，从上层层往下层删除。

LUCAS

我都试过了就是不行!!!(附图大家试试)!!