[原创]：别开生面的TRIM

gp8117

谢谢楼主.不过我看不出这个命令跟F有什么区别;

IBMIBM

太好了.真是神气啊

极度寒冷

如果49楼提供的源代码支持中途右键或回车退出就比较完美了，期待改进……

lemonx

不受正交控制、没有过滤掉不想剪切的图元功能，所以容易误删

建议：
1  正交打开时路径为直线，否则为任意曲线
2  加入选项“Filter”，需要过滤时敲入F设置过滤的图元，不需要时也不会影响操作

顶楼的程序做了以上改进后，就绝对可以替代trim－F了
希望lijiao楼主完善您的程序

userzhluserzhl

４９楼的是用右键的，我还是喜欢用键盘！

coolload

连续点击没有必要了

userzhluserzhl

但是我觉得辅捉方面,我待改善.

ishou

最初由 lijiao 发布
[B][QUOTE]最初由 linuxme 发布
[B]狂刀大侠把这个程序的功能加强了好多
但同时操作也变复杂了
不如原程序操作起来连贯顺手
象我这样的懒人还是倾向于使用楼主的程序的
希望楼主在工作之暇修正一些小bug，?.. [/B]

----------------------------------------------------------------
1)楼主的程序贵在简洁易用，为该程序追加过多功能，反而有损该程序的实用性。

2)楼主的程序巧妙地结合Trim、Erase、和Sketch功能，克服单纯使用Trim存在的一些不足。

在一般人们印象中用Trim 需要选择到切口（cutting edges）实体后，才可以进行Trim，事实上并不一定需要。

用Fence方式 Trim POLYLINE时，仅能Trim一处，楼主引入类似Sketch的功能，自动进行多次 Trim 操作，基本上解决这个问题，可以“同时”多处Trim POLYLINE。这里与"Sketch"动作的增量大小有关，如果一个"Sketch"的单元线段同时穿越同一条POLYLINE多处，那么也只能Trim 到一处，楼主设置单元长度为屏幕尺寸的0.01，基本上可以保证该BUG不会产生（但是不能完全避免，因此使用者要有所留意－－－要完全避免也可以，不过需要扩充不少程序代码〕。

3) 事实上，人们在进行 Trim 或类似Trim操作的对象基本上是 LINE、XLINE、RAY、ARC、CIRCLE、PLOLYLINE 和 LWPOLYLINE，因此在楼主的程序中追加相关过虑器，就可以避免删除平常无法TRIM 的实体。下面的程序是在楼主的程序中追加过滤器：

=========

2. 
   
3. ;;;BY LIJIAO
   
4. ;;; Modified By ishou, 31/07/2005
   
5. 
   
6. (defun c:xx (/ PT0 PTLIST PTLIST0 ss CMDECHO OSMODE [COLOR=Blue]ssx[/COLOR])
   
7.   (setq        cmdecho        (getvar "cmdecho")
   
8.         osmode        (getvar "osmode")
   
9.   )
   
10.   (while (and (setq ptlist0 (getpoint_list))
    
11.               (> (length ptlist0) 1)
    
12.          )
    
13.     (setvar "cmdecho" 0)
    
14.     (setvar "osmode" 0)
    
15.     (setq pt0         (car ptlist0)
    
16.           ptlist (cdr ptlist0)
    
17.     )
    
18.     (command "trim" "")
    
19.     (foreach pt        ptlist
    
20.       (command "f" pt0 pt "")
    
21.       (setq pt0 pt)
    
22.     )
    
23.     (command "")
    
24. [COLOR=Red ]
    
25.    ;;(if        (setq ss (ssget "f" ptlist0))
    
26.     ;;  (command "erase" ss "")
    
27.     ;;)
    
28. [/COLOR]
    
29. [COLOR=Blue]
    
30.     (setq ssx (ssget "f" ptlist0 (list
    
31.        '(-4 . "< OR")
    
32.            '(0 . "LINE")
    
33.            '(0 . "XLINE")
    
34.            '(0 . "RAY")
    
35.            '(0 . "ARC")
    
36.            '(0 . "CIRCLE")
    
37.            '(0 . "POLYLINE")
    
38.            '(0 . "LWPOLYLINE")
    
39.        '(-4 . "OR>")
    
40.     )))
    
41.    (if ssx (command "Erase" ssx ""))
    
42. 
    
43. [/COLOR]
    
44.     (setvar "osmode" osmode)
    
45.     (setvar "cmdecho" cmdecho)
    
46.   )
    
47.   (princ)
    
48. )
    
49. (defun getpoint_list ( / DIS OUT PT)
    
50.   (setq pt (getpoint "\n开始："))
    
51.   (princ "\n按任意键完成:")
    
52.   (if (= (type pt) 'LIST)
    
53.     (progn
    
54.       (setq out (list pt)
    
55.             dis (* 0.01 (getvar "viewsize")))
    
56.       (while (= 5 (car (setq pt (grread t 4 0))))
    
57.         (setq pt (cadr pt))
    
58.          (if (> (distance pt (car out)) dis)
    
59.            (progn
    
60.              (grdraw pt (car out) 1)
    
61.              (setq out (cons pt out))
    
62.              )
    
63.            )
    
64.         )
    
65.       )
    
66.     )
    
67.   (redraw)
    
68.   (reverse out)
    
69.   )
    
70.   
    
71. ========
    

<br /> ;;;BY LIJIAO<br /> ;;; Modified By ishou, 31/07/2005<br /> <br /> (defun c:xx (/ PT0 PTLIST PTLIST0 ss CMDECHO OSMODE [COLOR=Blue]ssx[/COLOR])<br />   (setq        cmdecho        (getvar "cmdecho")<br />         osmode        (getvar "osmode")<br />   )<br />   (while (and (setq ptlist0 (getpoint_list))<br />               (> (length ptlist0) 1)<br />          )<br />     (setvar "cmdecho" 0)<br />     (setvar "osmode" 0)<br />     (setq pt0         (car ptlist0)<br />           ptlist (cdr ptlist0)<br />     )<br />     (command "trim" "")<br />     (foreach pt        ptlist<br />       (command "f" pt0 pt "")<br />       (setq pt0 pt)<br />     )<br />     (command "")<br /> [COLOR=Red ]<br />    ;;(if        (setq ss (ssget "f" ptlist0))<br />     ;;  (command "erase" ss "")<br />     ;;)<br /> [/COLOR]<br /> [COLOR=Blue]<br />     (setq ssx (ssget "f" ptlist0 (list<br />        '(-4 . "< OR")<br />            '(0 . "LINE")<br />            '(0 . "XLINE")<br />            '(0 . "RAY")<br />            '(0 . "ARC")<br />            '(0 . "CIRCLE")<br />            '(0 . "POLYLINE")<br />            '(0 . "LWPOLYLINE")<br />        '(-4 . "OR>")<br />     )))<br />    (if ssx (command "Erase" ssx ""))<br /> <br /> [/COLOR]<br />     (setvar "osmode" osmode)<br />     (setvar "cmdecho" cmdecho)<br />   )<br />   (princ)<br /> )<br /> (defun getpoint_list ( / DIS OUT PT)<br />   (setq pt (getpoint "\n开始："))<br />   (princ "\n按任意键完成:")<br />   (if (= (type pt) 'LIST)<br />     (progn<br />       (setq out (list pt)<br />             dis (* 0.01 (getvar "viewsize")))<br />       (while (= 5 (car (setq pt (grread t 4 0))))<br />         (setq pt (cadr pt))<br />          (if (> (distance pt (car out)) dis)<br />            (progn<br />              (grdraw pt (car out) 1)<br />              (setq out (cons pt out))<br />              )<br />            )<br />         )<br />       )<br />     )<br />   (redraw)<br />   (reverse out)<br />   )<br />   <br /> ========<br />

FLOODITIDE

autocad本身的TR+F也可以切除一个直角的线段

shl1980912

谢谢楼主

zhoufupeng

楼主的程序确实好用！大力支持

ygy20xx

trim可以选择块内的实体如线段等,上面的程序好像不行.

苦苦求索

我也是用的3楼的做法,用"F"画虚线,
试了4,5楼的做法,怎么不行啊,请高手说详细点,谢谢

橄榄滋味

确实不错，但有点问题，一是命令退出后，光标还在选择状态，而且能够继续剪切，只是刚才所选择的剪切边不再亮显。

楚界

哪有初级学习教程？