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

Tiger&蘋果爸 寫到:

Atsai 寫到:是這個效果吧！

Atsai 特地寫了一個程式嗎！厲害厲害～

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

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

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

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.")



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 使用任何觸摸對象來中斷所選對象