(已解决)拉线编号最新实验 可以拉线出来但是怎么删除直线求大神修改下

1227588

nsh935

谢谢分享！

USER2128

要删除线段，在处理完成有关数据之后加上：
(command "_.erase" aa "")
另外提供一个函数给你

1. ;;;----------------------------------------------
   
2. ;;; 仅保留表中的非重复点:
   
3. ;;; by HLCAD
   
4. (defun HL:TMP (plist / tmp rtn)
   
5.   (while (vl-remove nil plist)
   
6.     (setq tmp (car plist))
   
7.     (setq rtn (cons tmp rtn))
   
8.     (setq plist (vl-remove-if '(lambda(x) (equal tmp x 0.001)) (cdr plist)))
   
9.     )
   
10.   (reverse rtn)
    
11.   )
    
12. ;;;----------------------------------------------
    

;;;----------------------------------------------<br /> ;;; 仅保留表中的非重复点:<br /> ;;; by HLCAD<br /> (defun HL:TMP (plist / tmp rtn)<br />   (while (vl-remove nil plist)<br />     (setq tmp (car plist))<br />     (setq rtn (cons tmp rtn))<br />     (setq plist (vl-remove-if '(lambda(x) (equal tmp x 0.001)) (cdr plist)))<br />     )<br />   (reverse rtn)<br />   )<br /> ;;;----------------------------------------------<br />

1227588

谢谢这个要怎么用呢

雨的节奏

这个年代了，还需要写这种东西啊

1227588

练手学习学习