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
页: 1 2 3 4 5 [6] 7 8 9 10 11 12
查看完整版本: <** 多功能修剪含十字交叉線段,T型,L型牆角.(更新)**>