fireworld 发表于 2015-3-10 17:07:54

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

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

fireworld 发表于 2015-3-10 17:14:29

本帖最后由 fireworld 于 2015-3-10 17:16 编辑

(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 发表于 2015-3-10 18:59:38

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

参见如下6楼回复
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=113154&page=1#pid669989

fireworld 发表于 2015-3-12 09:08:25

谢谢版主，搞定了！

20060510412 发表于 2021-6-15 12:56:03

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

楼主，请问代码可以共享一下么，如今我也有同样的需求。
页: [1]
查看完整版本: 采用vlisp如何删除图块内的图元