tryhi 发表于 2015-11-27 20:46:28

[源码]仿贱人工具箱的超级修剪命令(内附GIF)

本帖最后由 tryhi 于 2015-11-27 20:49 编辑



(defun c:trxx(/ *error* dd echox osmode p0 p1 ss);超级修剪
      (setq osmode (getvar "osmode")echox (getvar "cmdecho"));记录两个原始系统变量
      (setvar "osmode" 0);关闭捕捉
      (setvar "cmdecho" 0)
          (defun *ERROR* (MSG)
    (if osmode
                        (progn
                              (setvar "osmode" osmode)
                              (setvar "CMDECHO" echox)
                              (command"undo" "end")
                        )
                )
)
      (while (setq p0 (getpoint "\n开始: "));开始点
                (command"undo" "be");撤销命令开始
                (setq dd (* 0.01 (getvar "viewsize")));设置随意线长度
    (while (= 5 (car (setq p1 (grread t 4 0))));捕捉鼠标移动
      (setq p1 (cadr p1));鼠标位置
      (if (>= (distance p0 p1) dd);移动超过长度才继续
                              (progn
                                  (grdraw p0 p1 1);屏幕显示矢量线
                                  (command "trim" "" "f" p0 p1 "" "");修剪
                                  (if (setq ss (ssget "f" (list p0 p1)));获取先交又没有修剪的
                                    (command "erase" ss "");删除
                                  )
                                  (setq p0 p1);设置p为后一点
                              )
      )
    )
(command"undo" "end");撤销命令结束
(redraw)
                )
      (setvar "osmode" osmode);恢复捕捉
      (setvar "CMDECHO" echox)
(princ)
)

飒路紫 发表于 2018-4-23 00:46:28

bai2000 发表于 2015-11-28 17:32
楼主再看看，好多线修建不净，有的只打断了缺口

edgemode你的这个变量改成了1，也就是允许延长线剪切及延长，把这个变量加入程序就好了。

lijiao 发表于 2017-10-20 09:47:37

http://bbs.xdcad.net/forum.php?mod=viewthread&tid=338711&highlight=%B1%F0%BF%AA%C9%FA%C3%E6%B5%C4trim
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=349791&highlight=%B1%F0%BF%AA%C9%FA%C3%E6%B5%C4trim
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=353481&highlight=%B1%F0%BF%AA%C9%FA%C3%E6%B5%C4trim

love1030312 发表于 2015-11-27 21:25:45

抢沙发呀 这都被放出源码来大力支持啊 顶起   

冰之绝恋 发表于 2015-11-27 21:49:39

支持支持~~~~

cable2004 发表于 2015-11-27 22:04:41


支持支持~~~~

jltx123456 发表于 2015-11-27 22:41:30

这个论坛貌似有的， 以前下载过， 还是要感谢楼主分享！
测试了下，能修剪，但是看不到红色的线！ 没有下载附件， 是用的楼主张贴的代码， 与附件有什么不同吗？

lostbalance 发表于 2015-11-27 22:48:22

赞源码，给力

tryhi 发表于 2015-11-27 23:30:02

jltx123456 发表于 2015-11-27 22:41 static/image/common/back.gif
这个论坛貌似有的， 以前下载过， 还是要感谢楼主分享！
测试了下，能修剪，但是看不到红色的线！ 没有下载 ...

附件跟源码没有任何不同，附件只是求土豪打赏，好像有人反映CAD2008没有红线，测试2006正常

love1030312 发表于 2015-11-28 09:43:41

2012测试 也没有红线

434939575 发表于 2015-11-28 10:59:53

遗憾的就是遇块删除！其他都很好！

hoongdou 发表于 2015-11-28 12:41:36

给力。。。。。。。。。。赞
页: [1] 2 3 4 5 6 7
查看完整版本: [源码]仿贱人工具箱的超级修剪命令(内附GIF)