有没有一个命令类似explode可以把直线“炸开“

MIKASA · 发表于 2004-8-12 21:41:00

想把直线 a或b从o点断开，用什么命令啊?

owstbl4ftkd.jpg

mikewolf2k · 发表于 2004-8-12 21:49:00

没有直接的命令。可以用break达到这个目的

xyp1964 · 发表于 2004-8-12 22:10:00

编个程序：bbk.lsp
;;;BBK.lsp    --xyp@bsedi.com
;;;在两线交点处断开
(defun c:BBK()
   (setq s1 (entsel "\n\t选择线1 : "))
   (setq s2 (entsel "\n\t选择线2 : "))
   (setq pt (inters (ddxf 10 s1)(ddxf 11 s1)(ddxf 10 s2)(ddxf 11 s2)))
   (if pt
   (progn
   (command "_break" s1 "f" pt pt)
   (command "_break" s2 "f" pt pt)
   )
   (princ"\n\t两线没有交点")
   )
   (princ)
   )
(defun dxf (code elist) (cdr (assoc code elist)))
(defun ddxf (code elist) (dxf code (entget (car elist))))