[求助]：一次点击保留中段（剪去两端）线怎么实现？

whzhen

比较喜欢看关于剪切方面的讨论，好的程序能提高一定的效率，找了半天没找到我想要的这个功能，是不是这个功能太简单了，但我太苯了，请高手帮帮忙。谢谢！

czg09180274

你的这个要求不确定因素太多了，要想全部考虑就得加入“提示”，这样还不如直接用“TR”来得快。
对于某些简单的可以试下这样做：提示选择对象，求得此对象的两端点，调用“TR”命令直接回车并输入前面求得的两端点，回车退出。

whzhen

我以前用大恒时有这个功能，因不太懂得编程，所以以为实现起来不是太难，当然用TR也是很方便的。

xyp1964

2004测试通过。
[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

;;;一次点击保留中段（剪去两端）线 <whzhen>
(defun c:test ()
  (cmdla0)
  (setvar "osmode" 512)
  (setq        NO1 (udist 1
                   ""
                   "\n\t线长"
                   NO1
                   (_midp (getvar "VSMIN") (getvar "VSMax"))
            )
        l   (/ no1 2)
  )
  (while (not (setq s1 (entsel "\n指定中段线中点 : ")))
    (if s1(progn
    (setq mode (dxf 0 (entget (car s1))))
    (if        (/= mode "LINE")
      (setq s1 nil)
    )))
  )
  (setvar "osmode" 0)
  (setq        pt   (cadr s1)
        pt-s (dxf 10 (entget (car s1)))
        pt-e (dxf 11 (entget (car s1)))
        ang  (angle pt-s pt-e)
        pt01 (polar pt ang (- 0 l))
        pt02 (polar pt ang l)
  )
  (command "_undo" "BE")
  (command "break" s1 "f" pt-s pt01)
  (command "break" s1 "f" pt-e pt02)
  (command "_undo" "E")
  (cmdla1)
)
[/php]

whzhen

谢谢楼上的，我用了但不太明白，可能是我说得太简单了，其实我是想说取夹在两线之间的线段，而剪掉两线之外的线，估计没这么复杂，但还是要说声谢谢！

无痕

早料到是这样的结果

sdwy19691229

其实没这个必要啊!

LUCAS

;;By LUCAS(龍龍仔)
;;這個功能有點難...!  Beta (test for R2002~R2006)
(VLX檔 支持:*POLYLINE,SPLINE,LINE,ARC,CIRCLE,ELLIPSE)

3月22日PM16:22
增加出错处理。例如选择不可剪切的实体段时。

3月24日PM02:30更新

狂刀

lucas搞个演示出来看看吧

Free-Lancer

取线-》求与之相交的所有实体的交点-》交点沿线排序-》求与拾取点最近的两点-》去除点外的部分

LUCAS

演示

luob72

8楼的好象和普通的trim作用一样啊

lanzhousyb

很抱歉，我看了半天，没看出来有什么不同

ljpnb

普通的trim如果不选择边界，那将剪掉选中部份的，保留两端，8楼的程序，刚好相反，保留中间选中部份，剪掉两端。

nuance

建议lucas增加出错处理。例如选择不可剪切的实体段时。