最近点连接线

永不言弃

最近点连接线

lee50310

rocking2008 发表于 2023-2-27 14:35
生成的多段线，为什么节点处，会有一段长度为0的线段？

問題已做修正, 請重新下載 最新版tt4

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

rocking2008

这个要用院长的工具箱才可以运行，试了一下，非常好。
但是发现一个问题，自动连线生成的多段线，每一个节点处，都有一条长度为0的线段，这个能否解决一下。

易云网络

顶一下，这个很好

重慶崽兒

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

永不言弃

没有源码
   

Jack_PC

.......

xyp1964

2. ;; tt(最近点连接线)(defun c:tt ()
   
3.   (if (setq ss (ssget '((0 . "point"))))
   
4.     (progn
   
5.       (setq lst (xyp-ss2list ss)
   
6.             ptn (mapcar '(lambda (x) (xyp-DXF 10 x)) lst)
   
7.             p7  (xyp-9pt ss 7)
   
8.             ptn1 '()
   
9.       )
   
10.       (while ptn
    
11.         (setq pt   (xyp-ptnearptn p7 ptn)
    
12.               ptn  (vl-remove pt ptn)
    
13.               ptn1 (cons pt ptn1)
    
14.               p7   pt
    
15.         )
    
16.       )
    
17.       (xyp-Pline (reverse ptn1) nil)
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )

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

永不言弃

院长出手就是

风流少年时

伪源码来的。

xujinhua

有用，下载了，谢谢你啊

lioun4105

很好用的样子，谢谢分享