连续打断（带高亮度显示）(绝对原创）

残雪or断桥 · 发表于 2013-9-25 09:49:19

958620832 发表于 2013-9-24 14:44
执行过程中显示高亮度，退出后就不显示了。
所谓的高亮度，如附图所示，否则就是cad的设置问题了。

谢谢问题已解决！

Gu_xl · 发表于 2013-9-25 10:54:25

958620832 发表于 2013-9-25 08:02
具体代码修改后是什么样的，请赐教

(defun c:br (/ *error* NAME SS P LEN I)
(defun *error* (msg)
(setq len (sslength ss) i 0)
(repeat len
(redraw (ssname ss i) 4) ;_ 取消高亮度显示
(setq i (+ i 1)))
(command ".UNDO" "E")
(or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*") (princ (strcat "\n** Error: " msg " **")))
(princ))
(setq name (car (entsel "\n请选择被打断线段:")) ss (ssadd))
(ssadd name ss)
(redraw name 3) ;_ 高亮度显示被选线段
(while (setq p (getpoint "\n请选择断点:"))
(setq len (sslength ss) i 0)
(repeat len
(command "_.break" (ssname ss i) p p)
(redraw (ssname ss i) 3) (redraw (entlast) 3) ;_ 高亮度显示打断后的所有线段
(ssadd (entlast) ss) ;_ 打断后的线段中，除了(entlast)，其余都自动纳入之前选集ss
(setq i (+ i 1))))
(setq len (sslength ss) i 0)
(repeat len
(redraw (ssname ss i) 4) ;_ 取消高亮度显示
(setq i (+ i 1)))
(princ)
)

mccad · 发表于 2013-9-25 12:09:10

按照你的程序思路，应该是线都不用选择，直接选哪个点就是断点，因为你的程序对于一条线可以实施多个断点。

958620832 · 发表于 2013-9-25 15:11:11

mccad 发表于 2013-9-25 12:09
按照你的程序思路，应该是线都不用选择，直接选哪个点就是断点，因为你的程序对于一条线可以实施多个断点。

要是两条线相交，只选交点，不选线，怎么知道断开的是那条线？虽然情况特殊了点，但经常会碰到的

ymcui · 发表于 2013-9-25 16:02:23

非常好用,谢谢

dwjb · 发表于 2013-9-28 12:43:59

在什么地方应用呢，cad自带的打断就很好啊？

zhengxq7 · 发表于 2013-9-29 16:38:41

多谢，一直找这么一个程序。
每次打断都按F，然后@实在麻烦得很。
这下亏了楼主，容易了。
再次表示感谢。

自贡黄明儒 · 发表于 2013-9-30 10:21:29

本帖最后由自贡黄明儒于 2013-9-30 10:32 编辑

mccad 发表于 2013-9-25 12:09
按照你的程序思路，应该是线都不用选择，直接选哪个点就是断点，因为你的程序对于一条线可以实施多个断点。

老大就是老大，一眼就看出来了，太厉害
我试了一下，果真如此

(defun c:br1 (/ P)
  (while (setq p (getpoint "\n请选择断点:"))
(setq p (nentselp p))
(command "_.break" p (cadr p) (cadr p))
  )
  (princ)
)

(defun c:br1 (/ P)
(while (setq p (getpoint "\n请选择断点:"))
(setq p (nentselp p))
(command "_.break" p (cadr p) (cadr p))
(redraw (car p) 3)
(redraw (entlast) 3)
)
(princ)
)

liujing95 · 发表于 2013-9-30 11:52:13

不知是操作还是？连续打断时出现线段中间(未指定打断的位置)有打断的现象

958620832 · 发表于 2013-10-11 23:36:20

本帖最后由 958620832 于 2013-10-12 08:38 编辑

mccad 发表于 2013-9-25 12:09
按照你的程序思路，应该是线都不用选择，直接选哪个点就是断点，因为你的程序对于一条线可以实施多个断点。

1.总算明白你的问题了，你的意思是不是，即使点不在线上，也可以将线打断？
2.现将修改后的源码提供如下，基本上就可以解决你所提出的这一问题了。
3.不过，我还是觉得，点必须选，但有的情况还必须选线，比如，
如果需要将两条相交线段中的指定一条从交点处断开，不选线，只选交点，能做到吗？
4.该程序中的主要优势在于：
①高亮度显示；
②具有很强的连续性，即使点不在线上也不会退出，仍可继续进行打断操作，除非按了右键、空格键或enter键。
(defun c:br (/ *error*)
  (setvar "cmdecho" 0)
  (defun *error* (msg) ;将描述错误的字符串存入变量msg
(setvar "cmdecho" 1)
(setq len (sslength ss) i 0)
(repeat len
   (redraw (ssname ss i) 4) ;取消高亮度显示
   (setq i (+ i 1)))
(princ "错误: ")(princ msg)) ;打印错误信息
  (setq name (car (entsel "\n请选择被打断线段:")) ss (ssadd))
  (ssadd name ss)
  (redraw name 3) ;高亮度显示被选线段
  (princ "\n请选择断点<1>:")
  (while (setq p (getpoint))
(setq len (sslength ss) i 0)
(repeat len
   (if (and (ssget "c" p p) (ssmemb (ssname ss i) (ssget "c" p p))) (progn
   ;判断点p在不在像素(ssname ss i) 上，如果在，执行如下打断与高亮度显示操作。
      (command "_.break" (ssname ss i) p p)
      (redraw (ssname ss i) 3) (redraw (entlast) 3) ;高亮度显示打断后的所有线段
      (ssadd (entlast) ss))) ;打断后的线段中，除了(entlast)，其余都自动纳入之前选集ss
   (setq i (+ i 1)))
(if (= (sslength ss) len) (princ (strcat "\n点不在线上，请重选断点<" (rtos len) ">:"))
   (princ (strcat "\n请选择断点<" (rtos (+ len 1)) ">:"))))
  (setq len (sslength ss) i 0)
  (repeat len
(redraw (ssname ss i) 4) ;取消高亮度显示
(setq i (+ i 1)))
  (setvar "cmdecho" 1)
  (princ))

账号		自动登录	找回密码
密码			注册

[源码] 连续打断（带高亮度显示）(绝对原创）

评分