1227588 发表于 2022-8-22 00:56:31

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

本帖最后由 1227588 于 2022-8-22 21:45 编辑


nsh935 发表于 2022-8-22 09:13:03

谢谢分享！

USER2128 发表于 2022-8-22 10:29:10

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

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

1227588 发表于 2022-8-22 11:01:56

谢谢这个要怎么用呢

雨的节奏 发表于 2022-8-23 14:59:55

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

1227588 发表于 2022-8-23 15:28:05

练手学习学习
页: [1]
查看完整版本: (已解决)拉线编号最新实验 可以拉线出来但是怎么删除直线求大神修改下