明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3619|回复: 19

[源码] 最近点连接线

[复制链接]
发表于 2015-9-20 09:10:45 | 显示全部楼层 |阅读模式
本帖最后由 永不言弃 于 2024-7-29 12:14 编辑

最近点连接线(需要E派工具箱支持)


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

评分

参与人数 1明经币 +1 收起 理由
rocking2008 + 1 很给力!

查看全部评分

回复 支持 1 反对 0

使用道具 举报

发表于 2023-2-27 14:31:45 | 显示全部楼层


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


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2015-9-20 09:42:07 | 显示全部楼层
顶一下,这个很好
发表于 2015-9-20 15:43:04 | 显示全部楼层
还有院长大人的函数?要不一起放出来?

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2015-9-20 16:02:51 | 显示全部楼层
没有源码
   
发表于 2015-9-20 16:10:34 | 显示全部楼层
.......
发表于 2015-9-20 17:18:24 | 显示全部楼层
  1. ;; tt(最近点连接线)(defun c:tt ()
  2.   (if (setq ss (ssget '((0 . "point"))))
  3.     (progn
  4.       (setq lst (xyp-ss2list ss)
  5.             ptn (mapcar '(lambda (x) (xyp-DXF 10 x)) lst)
  6.             p7  (xyp-9pt ss 7)
  7.             ptn1 '()
  8.       )
  9.       (while ptn
  10.         (setq pt   (xyp-ptnearptn p7 ptn)
  11.               ptn  (vl-remove pt ptn)
  12.               ptn1 (cons pt ptn1)
  13.               p7   pt
  14.         )
  15.       )
  16.       (xyp-Pline (reverse ptn1) nil)
  17.     )
  18.   )
  19.   (princ)
  20. )

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2015-9-20 18:51:27 | 显示全部楼层
院长出手就是
发表于 2015-9-24 12:21:34 | 显示全部楼层
伪源码来的。
发表于 2016-10-7 11:36:03 | 显示全部楼层
有用,下载了,谢谢你啊
发表于 2018-9-21 22:59:24 | 显示全部楼层
很好用的样子,谢谢分享
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-15 07:01 , Processed in 0.178293 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表