删除多段线顶点工具

wearebad

dao di neng bu neng yong ne

865643309

这个工具好，cad里没有快速删除多段线端点的工具，有了它作图就方便多了:)

AxueLJ

学习学习!!!!

快乐王子刚

这个好，顶一下，呵呵

qq1846687144

学习一下，看有没有提取顶点的方法

你微笑时很美

123654789*/hjfghfdhgdgfsr

chenrgst

好功能，求分享

wd6688

这个功能不错！

杨杰锋

很好很好很好很好很好

0凌云

很好啊  总比一个个的删除要好啊

黑洞—杜明智

学了添加多段线顶点，就得学学删除多段线顶点

zhuqiqing

下了增加顶点的，现再来个删除顶点的，太好了

爱死泥凌

我来看看我来学习学习

爱死泥凌

不会用还望大侠指教

你微笑时很美

2. (DEFUN C:sd(/ ename ent pt pt1 ptlst sel)
   
3.   (while (setq sel(entsel"选择节点位置："))
   
4.   (setq pt(cadr sel))
   
5.   (setq ename(car sel))
   
6.   (setq ptlst(plinexy ename))
   
7.   (setq ent(entget ename))
   
8.   (setq pt1(minpt pt ptlst))
   
9.   (entmod (vl-remove (cons 10 pt1) ent))
   
10.   (princ "\n 蒋灿好帅 \n")
    
11.     )
    
12.   (if (not sel)(alert"蒋灿好帅"))
    
13.   (princ)
    
14.   )

(DEFUN C:sd(/ ename ent pt pt1 ptlst sel)<br />   (while (setq sel(entsel"选择节点位置："))<br />   (setq pt(cadr sel))<br />   (setq ename(car sel))<br />   (setq ptlst(plinexy ename))<br />   (setq ent(entget ename))<br />   (setq pt1(minpt pt ptlst))<br />   (entmod (vl-remove (cons 10 pt1) ent))<br />   (princ "\n 蒋灿好帅 \n")<br />     )<br />   (if (not sel)(alert"蒋灿好帅"))<br />   (princ)<br />   )