采用vlisp如何删除图块内的图元

fireworld

在自定义块时，先判断块是否存在，如果不存在直接建立块，如果存在清空块内图元，再往里添加图元.
现在卡在如何清空块能图元这块了？求大神指点！最好用vla函数实现

fireworld

(setq blocks (vla-get-blocks acaddocument))
(setq found :vlax-false)
(VLAX-FOR entry        blocks
  (if (= (vla-get-Name entry) "sss")
(progn
(选择并删除块内图元)
    (setq found :vlax-true)
)
  )
)
(if (= found :vlax-false)
  (progn
    (setq _Oblique (vla-add blocks (vlax-3d-point (list 0 0 0)) "sss"))
  )
)
(向块内增加图元)
求指导

Gu_xl

fireworld 发表于 2015-3-10 17:14
(setq blocks (vla-get-blocks acaddocument))
(setq found :vlax-false)
(VLAX-FOR entry        blocks ...

参见如下6楼回复
http://bbs.mjtd.com/forum.php?mo ... mp;page=1#pid669989

fireworld

谢谢版主，搞定了！

20060510412

fireworld 发表于 2015-3-12 09:08
谢谢版主，搞定了！

楼主，请问代码可以共享一下么，如今我也有同样的需求。