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

lee50310

多功能修剪含十字交叉線段,T型牆,L型牆角,及平行垂直兩線段補線,封口,去邊
舊版 bb5 執行指令:bb
1選取物體不可少於2個 ,最多不可大於ˋ4個
2.不支援單一物件, 不支援批量處理
3.功能如動態圖
                            <***    源碼已釋出 在 此版面 沙發樓  ***>

( 免註冊,功能無限制 );
;---------------------------------------------------------------
;
日期: 2021/7/15
做小修正:把同一線上的相距兩線段, 垂直或水平做補線 時 舊版bb5 補完為三條線
                版本 bb6可合併變為同一條多段線  修剪方式請看 24樓動態圖
               執行指令改為: bbn
;----------------------------------------------------------------
;;新版本 : bb7a
;日期:2021/7/18
;新增功能 : 1.可修剪 兩線交插 在交點處 凸出的線  修剪方式請看 25樓動態圖
;                 2.修正 按 Esc鍵產生錯誤問題
                  執行指令: bbn

;----------------------------------------------------------------
;;版本 : bb8
;日期:2021/7/26
;新增功能 : 1.圈選含有角度的兩線段  可做直角銳角外  還可 做倒圓角及倒角  請看 30樓說明
;                 2.其於功能不變
  
版本 : bb8   
PS : bb8 與 bb8a 差別在於 兩線在水平或垂直時 中間補線段
        bb8   :  會將三條線接合成為 一條多段線
        bb8a :  不做接合 ,保持三線段
                     其他功能不變 ，請依自己需求下載即可

最新版本 : bb9     日期:2023/6/15
;將用到的所有函數後置 改為前置

lee50310

月下闲人 发表于 2023-10-21 11:41
大佬是不是写过拉线修剪的程序，鼠标拉线对图元（直线、多线、圆、弧）所在的一侧进行修剪删除，找好久找不 ...

還是這個

<<*** 選擇線、多段線閉合 或 圓、橢圓或樣條曲線來修剪邊緣  ***>
執行指令:cc

               1.擇圓或閉合多段線、橢圓或樣條曲線來修剪邊緣：
               2.選取一側的點(物體內側或外側)進行修剪： 外側
               3.擦除裡面的所有物體 外側? [Yes/No] <N>:  N

lee50310

国主 发表于 2023-12-15 17:16
可不可以改命令  改成bba谢谢

在版面首頁 沙發樓 有提供 源碼
請下載 bb9_chs.lsp
自行用文字編輯器 編輯 bb9_chs.lsp
找到此行
(defun C:bbn ( / UndoFlag OldOSM OldEcho XBreak_Pnt_in_Bndy XBreak_StartEnd


                        CWP1 CWP2 SelSet Index Enty1 Entlist OBJ1 Enty2 intPoints Values
                        IntList NewAssoc OBJName XTrimPnt StartPoint EndPoint Coords flg
                        dd pel pe1 pe2 ang1 ang2 ang3 ang4 ang5 wang1 wang2 ex1 ex2 ex3 ex4
                        ey1 ey2 ey3 ey4)

;------------------------------------------------------

將上方C:旁 紅色字 bbn  改成 bba 後存檔即可  執行指令 bba

尘缘一生

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
•             )
•   ;嵌入可重复的功能------------------------------
  

lee50310

這是測試用的圖檔

LIULISHENG

解决大问题了

AndyWang

原来大神在搞大作呢，哈哈了。

AndyWang

好像去多余线出错，另提示少command-s函数。

664571221

谢谢版主.....

lee50310

AndyWang 发表于 2021-7-14 11:47
好像去多余线出错，另提示少command-s函数。

感謝告知 !  已修正(多段線) 此問題 ,

AndyWang

只要最后处理第3处多余的线，就会操作出错，1和2处理的顺序随便。

感觉对比较不标准的图形不是太适合。另外框选是否有要求，比如右下--》左上     or   左上--》右下 ？

海盗曹

好东西，MARK一下

mokson

这样的话太方便了,感谢楼主，辛苦了。