[討論] 多條線段一起執行"斷開於點"

由 **stagbeetle** 2014-01-14, 17:13

主題回顧 :

如下圖用line畫出這些線段想以紅色的斜直線切開三條黃色的橫線(就是切斷的黃線都要保留)
我試過"break" 好像只能一次切開一條線有啥辦法可以一次切開三條線嗎
[討論] 多條線段一起執行"斷開於點" - 頁 4 ErGDeEq

由 **blacker112** 2020-09-17, 12:01

感謝分享更快速的方式~~

由 **Eden1020** 2020-11-24, 17:38

每次來這裡都找的到解答~太開心了~趕緊來試試!

由 **clare** 2021-01-13, 20:51

感謝您的分享…目前就需要用到這個程式

由 **Camol** 2021-02-18, 23:55

感謝分享，來增加工作效率

由 **jeouen** 2021-02-28, 21:31

感謝蘋果爸的分享

由 **keith310** 2021-03-18, 13:25

Tiger&蘋果爸寫到:
Atsai 寫到:是這個效果吧！
Atsai 特地寫了一個程式嗎！厲害厲害～

susupipig 寫到:請問蘋果爸~
目前討論的這支lsp
跟你多年前寫的
似乎不太一樣
以前的可以設定切斷距離
還可以找得到這支lsp嗎??

這是11年前那時奇摩知識+的文章，另外分享在「AutoCAD指南」奇摩家族！
花了一些時間終於找到...我都忘了說！

備用載點如下（*回覆可見*）：

感謝蘋果爸，這LSP用在需要微接點時超省時。

由 **bom03720836** 2021-03-30, 09:24

感謝蘋果爸的分享~~~

由 **pingchang** 2021-04-25, 20:15

輸入lisp之後是否每次都須重新輸入一次!!

由 **enjoylin** 2021-05-19, 17:59

感謝蘋果爸無私的分享，對工作實務方面非常有幫助~~

由 **DARDAR** 2021-05-19, 19:14

學習中,下載來試試看謝謝分享! 謝謝囉

由 **LUCAS_LAI** 2021-05-31, 13:19

susupipig 寫到:想再請問各位高手~
我想在每條線中間切開一定的距離
但線有直有衡
如果每次都要拉一條切割線...很費時
有沒有可能不需要切割線
自動從中間切開我想要的距離???

使用雙元表,穩穩的呀!

代碼:: ;;;----------------------------------------------------- ;;;線中間切開一段距離 ;;;BY LUCAS(龍龍仔) (defun C:BREAK_MID (/ HOLDOSMODE HOLDECHO GAP SS N PT ENAME E1) (vl-load-com) (setq HOLDECHO (getvar "CMDECHO")) (setvar "cmdecho" 0) (setq HOLDOSMODE (getvar "OSMODE")) (command "_.undo" "_group") (setq GAP (getreal "\n打斷的間隙<1>:")) (if (= GAP NIL) (setq GAP 0.5) (setq GAP (/ GAP 2.0)) ) (prompt "\n選擇『被』斷開的線:") (if (setq SS (ssget '((0 . "spline,line,arc,lwpolyline,polyline")))) (progn (setvar "OSMODE" 0) (setq N 0) (repeat (sslength SS) (setq PT (vlax-curve-getpointatdist (setq ENAME (vlax-ename->vla-object (ssname SS N)) ) (/ (vlax-curve-getdistatpoint ENAME (vlax-curve-getendpoint ENAME) ) 2.0 ) ) ) (command "_.circle" PT GAP) (setq E1 (entlast)) ;;(command "_.trim" e1 "" (osnap pt "_nea") "");; (command "_.trim" E1 "" (list (ssname SS N) PT) "");;雙元表 (command "_.erase" E1 "") (setq N (1+ N)) ) ) ) (setvar "OSMODE" HOLDOSMODE) (command "_.undo" "_end") (setvar "cmdecho" HOLDECHO) (princ) ) (princ "\nType BREAK_MID to start.")

下載: https://drive.google.com/file/d/1V6WaOsjgpHN--0HmFGsWCuxhvP9M3Q0G/view?usp=sharing
備用: https://app.box.com/s/j4xbturu1e9473utpp6ygdp1c1lpsgfi

由 **wenfeng** 2021-06-23, 17:05

謝謝板主分享來試試看能否將圖面都開於分割線

耶!謝謝蘋果爸!!!
一次成功!!

由 **asd601023** 2021-07-07, 16:26

工作上很需要用到這個呢!
很感謝大家熱心地分享!!

由 **blacker112** 2021-07-27, 06:40

很需要~很實用~感謝蘋果爸~

由 **根先生** 2021-08-11, 09:31

很陌生的一個操作原來可以這樣簡化很多程序感謝教學

由 **MIEN** 2021-12-01, 22:18

感謝蘋果爸!! 太需要了!!

由 **patek** 2021-12-16, 23:33

剛好有需要,感謝分享

由 **鄧韻伶** 2021-12-24, 13:30

原來有這麼容易使用的lisp，真是太感謝分享了!!!

Tiger&蘋果爸寫到:
naruto018 寫到:也可以使用巨集
連續使用切斷於點
*^C^C_break \_f \@
這個巨集我也會用到
日前有在網路上搜尋到「lisp程式」可以快速達成
需要「lisp程式」的朋友請加入討論
發表你的作法，稍後再分享「lisp程式」(*回覆可見*)。

指令 BreakAll - Break all objects selected 打破所有選定的對象
指令 BreakwObjects - Break many objects with a single object 用許多對象打破單個對像
指令 BreakObject - Break a single object with many objects 用單個對象打破多個對像
指令 BreakWith - Break selected objects with other selected objects 將所選對象與其他所選對像中斷
指令 BreakTouching - Break objects touching the single Break object 打破碰觸單個Break對象的對象
指令 BreakSelected - Break selected objects with any objects that touch it 使用任何觸摸對象來中斷所選對象