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

zixin

xiahaibo1314 发表于 2023-1-9 08:51
;; 多功能修剪----------【开始】-----------------------------------
;; 十字交叉线段,T型墙,L型墙角,及 ...

rdygdfrgdfggdf

月下闲人

大佬是不是写过拉线修剪的程序，鼠标拉线对图元（直线、多线、圆、弧）所在的一侧进行修剪删除，找好久找不见了.

lee50310

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

是不是這個
拉線修剪
執行指令 LTR

lee50310

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

還是這個

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

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

月下闲人

lee50310 发表于 2023-10-21 13:20
是不是這個
拉線修剪
執行指令 LTR

是这个，感谢大佬，非常好用

国主

可不可以改命令  改成bba谢谢

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

lidaxiu

好像还不太完善版主，还有些问题


附件内上传了这个图形

lee50310

lidaxiu 发表于 2023-12-21 17:44
好像还不太完善版主，还有些问题

你選兩線 前端 讓程式做接合
但是各自線都過頭 了 當然會與另一線的後端做連接

若你執行 cad 倒圓角指令  fillet  ，圓角半徑=0
選擇兩線前端 也會是這結果
(解決方式 兩線不要過頭)

lidaxiu

lee50310 发表于 2023-12-22 13:03
你選兩線 前端 讓程式做接合
但是各自線都過頭 了 當然會與另一線的後端做連接