[求助]谁会写一个像2006这样的剪切功能？

120120

2006以上的版本的剪切功能很好用，可以框选！

而2005及以下的版本的剪切功能就不咋的！只能单一选择！很麻烦。虽然可以加F，但还是没2006好用。

不知那位朋友可以写一个这样的功能！

狂刀无痕

直接升级cad！

i-Stone

果然是好办法.

phoenixdjq

一针见血呀

发个超级剪切给你吧，从本论坛下载的

;;;BY LIJIAO 
(defun c:xx (/ PT0 PTLIST PTLIST0 ss CMDECHO OSMODE)
  (setq cmdecho (getvar "cmdecho")
 osmode (getvar "osmode")
  )
(setvar "osmode" 0)
  (while (and (setq ptlist0 (getpoint_list))
       (> (length ptlist0) 1)
  )
    (setvar "cmdecho" 0)
   
    (setq pt0  (car ptlist0)
   ptlist (cdr ptlist0)
    )
    (command "trim" "")
    (foreach pt ptlist
      (command "f" pt0 pt "")
      (setq pt0 pt)
    )
    (command "")
    (if (setq ss (ssget "f" ptlist0))
      (command "erase" ss "")
    )
    (setvar "osmode" osmode)
    (setvar "cmdecho" cmdecho)
  )
  (princ)
)
(defun getpoint_list ( / DIS OUT PT)
  (setq pt (getpoint "\n开始："))
  (princ "\n按任意键完成:")
  (if (= (type pt) 'LIST)
    (progn
      (setq out (list pt)
     dis (* 0.01 (getvar "viewsize")))
      (while (= 5 (car (setq pt (grread t 4 0))))
 (setq pt (cadr pt))
         (if (> (distance pt (car out)) dis)
    (progn
      (grdraw pt (car out) 1)
      (setq out (cons pt out))
      )
    )
 )
      )
    )
  (redraw)
  (reverse out)
  )

TLHMQH

这个是否是你需要的

http://www.acad.net.cn/viewthread.php?tid=318&extra=page%3D1

无痕

楼上的程序不错,不过和楼主说的好像是两回事.

楼主要的是 cad2006版本的 trim ,先选剪切边,再框选被剪切实体.

120120

楼上两位提供的都不像我说的那样..

希望像acad2006的一样

英雄无敌

试试我的这个，刚编好的

120120

没有选取边界的功能..

zml84

可以框选的修剪   ，见附件。
源码见：http://www.acad.net.cn/viewthread.php?tid=156&page=1&extra=page%3D1#pid1537