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

958620832 · 发表于 2013-9-24 12:06:22

(defun c:br ()
  (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))

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

958620832 · 发表于 2013-9-24 14:57:49

本帖最后由 958620832 于 2013-9-24 15:03 编辑

修正版，内容如下。加入了错误处理函数，可以解决点击Esc键中途退出后依然高亮度显示的问题。运行过程中，点击一下Esc键，比较一下，就知道了。
(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))

(defun c:br ()
  (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))

残雪or断桥 · 发表于 2013-9-24 12:16:51

这个程序不错。很方便，但是没看到有高亮的地方阿！

958620832 · 发表于 2013-9-24 14:44:01

本帖最后由 958620832 于 2013-9-24 14:45 编辑

残雪or断桥发表于 2013-9-24 12:16
这个程序不错。很方便，但是没看到有高亮的地方阿！

执行过程中显示高亮度，退出后就不显示了。
所谓的高亮度，如附图所示，否则就是cad的设置问题了。

xiongqunan · 发表于 2013-9-24 16:46:52

958620832 发表于 2013-9-24 14:57
修正版，内容如下。加入了错误处理函数，可以解决点击Esc键中途退出后依然高亮度显示的问题。运行过程中，点 ...

的确不错！！！下一用用，先谢了。

清风明月名字 · 发表于 2013-9-24 20:33:08

谢谢楼主的分享！1楼的代码很好用啊。3楼的反而显示存在错误，不知道什么原因

tianyi1230 · 发表于 2013-9-24 21:47:19

上个动态显示图吧，有图有真相

Gu_xl · 发表于 2013-9-24 22:09:30

958620832 发表于 2013-9-24 14:57
修正版，内容如下。加入了错误处理函数，可以解决点击Esc键中途退出后依然高亮度显示的问题。运行过程中，点 ...

要把*error* 函数放入到 C:br函数内作为局部变量，否则会破坏系统内部自定义*error*函数！其他变量也要搜集为局部变量！

iszc · 发表于 2013-9-25 05:24:22

3楼的代码非常好用

958620832 · 发表于 2013-9-25 08:02:39

Gu_xl 发表于 2013-9-24 22:09
要把*error* 函数放入到 C:br函数内作为局部变量，否则会破坏系统内部自定义*error*函数！其他变量也要搜 ...

具体代码修改后是什么样的，请赐教

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

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

相关帖子

评分

评分

本帖子中包含更多资源