[原创]：别开生面的TRIM

lijiao

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

因为在修剪的时候，一般情况下还没有做其它标注，所以我没有考虑过滤文本、尺寸、图块以及各种符号等，如果你要加入这部分功能，可以在ERASE部分的SSGET中，加入你想要的过滤器即可，因为每个人使用的软件不一样，需要过滤的东西也不相同，我不好一刀切，你可以自己加入，如有困难，大家都能帮你。

lxyljl

最初由 狂刀 发布
[B]程序借鉴了lijiao和aeo的方法思路
步骤上，选择剪切边实体我觉得还是必要的
默认的方式是点中曲线剪切曲线，点于空位按鼠标跟踪，如果你不需要其它的选取方式，完全可以不看提示。
trim和extend是一样的，extend?.. [/B]

你的程序还有一个小bug，就是在剪切尺寸的时候只能用线切而不能用点切。

xdkjzzz

这个功能很实用

tomtom

45楼：修改为与一楼操作步骤相似，减少了提示，下面是修改的trim，我认为这要操作比较简洁。

(defun c:xtr (/ cmd os roop dis un ss gr ga gb sel pt pt2 pts eg)
  (setq    cmd  (getvar "cmdecho")
    os   (getvar "osmode")
    roop T
    dis  (* 0.01 (getvar "viewsize"))
    un   0
  )
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (princ "\n 选择剪切边< all >")
  (setq ss (ssget))
  (while roop
    (setq gr (grread nil 4 2)
      ga (car gr)
      gb (cadr gr))
    (cond
      ((= ga 3)
       (cond
     ((setq sel (nentselp gb))(command ".trim") (if ss (command ss))(command "")(command sel ""))
     (T (setq pts (getpts dis))
      (if (setq pts2(cdr pts))
        (progn (command ".trim") (if ss (command ss))(command "")
          (mapcar '(lambda(x y)(command "f" x y "")) pts pts2)
          (command "")
        )
       )
      )
       )(setq un (1+ un))
      )
      ((= ga 25) (setq roop nil));_鼠标右键回车
   )
  )
  (setvar "cmdecho" cmd)
  (setvar "osmode" os)
  (princ)
)
;; (getpts) = 取得grread跟踪点表，dis为控制精度的距离.
(defun getpts (dis / gr pt pt0 pts)
   (while (= 5 (car (setq gr (grread t 4 0))))
     (setq pt (cadr gr))
     (if (not pt0)(setq pt0 pt pts (cons pt0 pts)))
     (if (> (distance pt pt0) dis)
       (progn
     (grdraw pt pt0 1 1)
     (setq pts (cons pt pts)
           pt0 pt)
       )
     )
   )
  (redraw)
  (reverse pts)
)

linuxme

试了一下，楼上的程序在我的2004中不能用

PFD8667

我不会编程,但我认为这个程序,没多少实用性,本来CAD用TR命令回车二下还方便点,也没必要先要选择对象.

无痕

楼上的没有领会这个程序的亮点，亮点不在于选择边界（这个部分的操作和trim是一样的），而在于选择要剪切的实体(模拟sketch的效果)。

winabcd

看到一个好的东西，非常有用，我每月改图时经常要进行大量的剪切工作，
高手就是高

whzhen

非常喜欢这个程序，很有个性，也很方便。有个问题不知算不算是bug，就是点着鼠标乱绕几圈，有时会出现一长串同样的错误提示，但程序并未终止，当然这也没什么，真正画图时倒不会闲得没事乱绕的，所以还是非常感谢！

zhou56449

haohaohaoh a

fjb_x

确实还可以哦。

hsb-hy

各位老大，为何不打包呢？这样我不会用啊！

xmchy

不错,比较好用

dhcad

楼主的东西不错，好用

clearbrook

非常棒,楼主高明.