<** 多功能修剪含十字交叉線段,T型,L型牆角.(更新)**>

669423907 · 发表于 2021-10-30 20:42:44

非常感谢楼主分享好程序

lingduwx · 发表于 2021-11-3 10:54:38

本帖最后由 lingduwx 于 2021-11-3 11:27 编辑

这个工具真是强大，辛苦楼主了！！！楼主麻烦看下下面这种情况怎么处理呢？怎么去掉封口处的那根短线呢？哎我下面是测试文件单独两条有角度的未相交线执行命令后，则两线连接处都有一根短线连接，bb8和bb8a都有这种情况

lee50310 · 发表于 2021-11-3 12:26:03

本帖最后由 lee50310 于 2021-11-3 18:22 编辑

lingduwx 发表于 2021-11-3 10:54
这个工具真是强大，辛苦楼主了！！！楼主麻烦看下下面这种情况怎么处理呢？怎么去掉封口处的那根短线呢？哎 ...

非常感謝使用,並發現問題
這個問題應該是線1 與線2 兩者不平行
兩線有夾角程式執行封角規則 ,請看圖片說明

最後一張圖兩線封角有一個小倒圓角請在封角時將倒圓角 R設為 0
請看 30樓有詳細說明

lingduwx · 发表于 2021-11-7 10:02:43

lee50310 发表于 2021-11-3 12:26
非常感謝使用,並發現問題
這個問題應該是線1 與線2 兩者不平行
兩線有夾角程式執行封角規則 ,請看圖 ...

谢谢楼主，搞定了

趣意人生 · 发表于 2021-12-22 22:22:03

好东西，MARK一下

jhzxj · 发表于 2021-12-23 10:37:06

lee50310大神真是个好人，平时也挺喜欢帮助。

尘缘一生 · 发表于 2021-12-25 04:10:53

本帖最后由尘缘一生于 2021-12-25 05:09 编辑

lee50310 发表于 2021-7-14 10:19
這是測試用的圖檔

毛主席语录：好好学习，天天向上。真是精品啊，慢慢消化吧。

;; 多功能修剪----------【开始】-----------------------------------
;; 十字交叉线段,T型墙,L型墙角,及平行垂直两线段补线,封口,去边.
(defun c:tt (/ cwp1 cwp2 SelSet Index Enty1 Entlist obj1 Enty2 intPoints Values IntList NewAssoc objName fr cr mid_ptA obj_ptA mid_ptB obj_ptB lay col
XTrimPnt StartPoint EndPoint Coords flg dd pel pe1 pe2 ang1 ang2 ang3 ang4 ang5 wang1 wang2 ex1 ex2 ex3 ex4 ey1 ey2 ey3 ey4 xk e_lst
ValuesZero x1 y1 x2 y2 u pt1 pt2 pt3 pt4 pin tel pts1 pts2 bel loop num tt
)
;嵌入可重复的功能------------------------------

advksf · 发表于 2021-12-27 09:47:03

好资料，谢谢分享

happyxt · 发表于 2022-12-22 12:31:19

精品应用，有创意，赞

gogozb · 发表于 2023-1-3 15:20:10

尘缘一生发表于 2021-12-25 04:10
毛主席语录：好好学习，天天向上。真是精品啊，慢慢消化吧。

命令: TT
错误: no function definition: SYSVAR

账号		自动登录	找回密码
密码			注册

[源码] < 多功能修剪含十字交叉線段,T型,L型牆角.(更新)>