vba 如何删除属性块中的定义属性

lingyv

在cad中有一个定义好的属性块，我想把这个块的定义属性删除（删除Blockdef中的Attdef），变成一个没有属性的块，供后续绘图用。怎么用vba实现。下面是lisp程序代码。

lingyv

下面是lisp程序代码（摘自本论坛）：
(defun c:Delatt        (/ e el bn ss ent)
  (if (and (setq e (car (entsel "\Pick Block with Att: ")))
           (setq el (entget e))
           (= (cdr (assoc 0 el)) "INSERT")
           (assoc 66 el)
      )
    (progn
      (setq bn (cdr (assoc 2 el)))
      (vlax-for        x (vla-item
                    (vla-get-blocks
                      (vla-get-activedocument (vlax-get-acad-object))
                    )
                    bn
                  )
        (if (wcmatch (vla-get-objectname x) "*Att*")
          (vla-delete x)
        )
      ) ;_删除Blockdef中的Attdef


        )
      )
    )

  )
  (princ)
)

lingyv

哪位大神帮把上面的lisp功能，用vba 写出来，谢谢。