[LISP] 打斷原來這麼因難

BDYCAD

交点参考贴: dispbbs.asp?boardid=3&star=4&replyid=74926&id=8719&skin=0&page=1 打断特殊对象类型示例图

BDYCAD

这样处理不了上面图上的效果, 还望大家多多指点. 谢谢! ; x@_int-1 涵数来自无痕
(defun x@_int-1 (e1 / OBJ1)
(defun xl-div (lst x / lst2)
(foreach n lst
(if (and lst2 (/= x (length (car lst2))))
(setq lst2 (cons (append (car lst2) (list n)) (cdr lst2)))
(setq lst2 (cons (list n) lst2))))
(reverse lst2))
(setq obj1 (vlax-ename->vla-object e1))
(xl-div (vlax-invoke obj1 'IntersectWith obj1 0) 3)
)
(defun c:test ()
(setq break-sel (car (entsel "\n选择要断开的SPLINE")))
(SETQ BREAK-PL (x@_int-1 break-sel))
(SETQ I 0)
(REPEAT (LENGTH BREAK-PL)
(SETQ bkp1 (nth i BREAK-PL))
(COMMAND ".BREAK" (LIST break-sel bkp1) "F"bkp1 bkp1 )
(setq i (1+ i)))
(princ))

onej

求交点后打断移动吧

BDYCAD

呵呵. 自己解决了

userzhl

楼上的朋友，你看我的这样，怎么不行呀？
可不可以帮我改一下再发上来？谢了！！！
(DEFUN C:y(/)
(SETQ DCL_ID (LOAD_DIALOG "zz.DCL") )
(NEW_DIALOG "zz" DCL_ID)
(actIon_tile "RECT_A" "(setq next 1)")
(actIon_tile "RECT_B" "(setq next 2)")
(actIon_tile "RECT_C" "(setq next 3)")
(actIon_tile "RECT_D" "(setq next 4)")
(START_DIALOG) (UNLOAD_DIALOG DCL_ID)
(if (= next 1) (C:xx))
(if (= next 2) (C:cc))
(if (= next 3) (C:g1))
(if (= next 4) (C:g2))
(defun c:xx () (command "xline" "v"))
(defun c:cc () (command "xline" "h"))
(DEFUN C:G1 () (command ".LAYER" "Off" "1" pause "" "" ""))
(DEFUN C:G2 () (command ".LAYER" "Off" "2" pause "" "" ""))
(PRINC))
我总是要把对话框关掉才能执行，要在中间加什么，对话框能自动关掉？

BDYCAD

你的程序不全, dcl呢?

torcky

不知这样好不好：

先打断原spline线，再将打断的两条spline线再在交叉点又分别打断一次。