永不言弃 发表于 2015-9-20 09:10:45

最近点连接线

本帖最后由 永不言弃 于 2024-7-29 12:14 编辑

最近点连接线（需要E派工具箱支持）


lee50310 发表于 2023-2-27 18:48:24

本帖最后由 lee50310 于 2023-2-28 03:59 编辑

rocking2008 发表于 2023-2-27 14:35
生成的多段线，为什么节点处，会有一段长度为0的线段？
問題已做修正, 請重新下載 最新版tt4

最新版tt4    (修正tt3版本 重複畫頂點線 日期2023/2/28 )
;;最近點連接線(完整版)
執行指令:tt4

rocking2008 发表于 2023-2-27 14:35:13

lee50310 发表于 2023-2-27 05:38
;;最近點連接線 (完整版)
執行指令:tt3
生成的多段线，为什么节点处，会有一段长度为0的线段？


易云网络 发表于 2015-9-20 09:42:07

顶一下，这个很好

重慶崽兒 发表于 2015-9-20 15:43:04

还有院长大人的函数？要不一起放出来？

永不言弃 发表于 2015-9-20 16:02:51

没有源码
   

Jack_PC 发表于 2015-9-20 16:10:34

.......

xyp1964 发表于 2015-9-20 17:18:24

;; tt(最近点连接线)(defun c:tt ()
(if (setq ss (ssget '((0 . "point"))))
    (progn
      (setq lst (xyp-ss2list ss)
            ptn (mapcar '(lambda (x) (xyp-DXF 10 x)) lst)
            p7(xyp-9pt ss 7)
            ptn1 '()
      )
      (while ptn
      (setq pt   (xyp-ptnearptn p7 ptn)
            ptn(vl-remove pt ptn)
            ptn1 (cons pt ptn1)
            p7   pt
      )
      )
      (xyp-Pline (reverse ptn1) nil)
    )
)
(princ)
)

永不言弃 发表于 2015-9-20 18:51:27

院长出手就是

风流少年时 发表于 2015-9-24 12:21:34

伪源码来的。

xujinhua 发表于 2016-10-7 11:36:03

有用，下载了，谢谢你啊

lioun4105 发表于 2018-9-21 22:59:24

很好用的样子，谢谢分享
页: [1] 2 3
查看完整版本: 最近点连接线