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

tryhi

2. (defun c:trxx(/ *error* dd echox osmode p0 p1 ss);超级修剪
   
3.         (setq osmode (getvar "osmode")echox (getvar "cmdecho"));记录两个原始系统变量
   
4.         (setvar "osmode" 0);关闭捕捉
   
5.         (setvar "cmdecho" 0)
   
6.           (defun *ERROR* (MSG)
   
7.     (if osmode
   
8.                         (progn
   
9.                                 (setvar "osmode" osmode)
   
10.                                 (setvar "CMDECHO" echox)
    
11.                                 (command"undo" "end")
    
12.                         )
    
13.                 )
    
14.   )
    
15.         (while (setq p0 (getpoint "\n开始: "));开始点
    
16.                 (command"undo" "be");撤销命令开始
    
17.                 (setq dd (* 0.01 (getvar "viewsize")));设置随意线长度
    
18.     (while (= 5 (car (setq p1 (grread t 4 0))));捕捉鼠标移动
    
19.       (setq p1 (cadr p1));鼠标位置
    
20.       (if (>= (distance p0 p1) dd);移动超过长度才继续
    
21.                                 (progn
    
22.                                   (grdraw p0 p1 1);屏幕显示矢量线
    
23.                                   (command "trim" "" "f" p0 p1 "" "");修剪
    
24.                                   (if (setq ss (ssget "f" (list p0 p1)));获取先交又没有修剪的
    
25.                                     (command "erase" ss "");删除
    
26.                                   )
    
27.                                   (setq p0 p1);设置p为后一点
    
28.                                 )
    
29.       )
    
30.     )
    
31.   (command"undo" "end");撤销命令结束
    
32.   (redraw)
    
33.                 )
    
34.         (setvar "osmode" osmode);恢复捕捉
    
35.         (setvar "CMDECHO" echox)
    
36.   (princ)
    
37. )

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

飒路紫

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

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

lijiao

http://bbs.xdcad.net/forum.php?m ... %FA%C3%E6%B5%C4trim
http://bbs.xdcad.net/forum.php?m ... %FA%C3%E6%B5%C4trim
http://bbs.xdcad.net/forum.php?m ... %FA%C3%E6%B5%C4trim

love1030312

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

冰之绝恋

支持支持~~~~

cable2004

支持支持~~~~

jltx123456

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

lostbalance

赞源码，给力

tryhi

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

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

love1030312

2012测试 也没有红线

434939575

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

hoongdou

给力。。。。。。。。。。赞