yang686526

[求助]如何删除多段线顶点?
www.dimcax.com
[求助]如何删除多段线顶点?
都知道,用"vla-addvertex"方法可以向多段线内添加顶点,请问,用什么方法可以删除多段线顶点?
d
我有pl删和增点的程序，一级棒，如果你把你的文字小工具给我，我的也给你，纯碎交流经验
d
直接的函数好像没有，提供个思路：
求出多段线的顶点，排除要删除的点，用coordinates属性更新
d
(defun c:delplint()
(if(setq sel(entsel "选择多段线: "))
(progn
(setq data(entget(car sel)))
(setq poins(member (assoc 10 data)data))
(setq n(getint "指定要删除多段线的第几个点: "))
(repeat n
(setq pts(assoc 10 poins))
(setq poins(subst '(0 . 0)pts poins))
)
(entmod(vl-remove pts data))
);
);
)


d
多谢楼上,我原来总以为要把40,41, 42,都删除,原来只要删除10就行了.