★★请大侠优化剪切好程序★★
网上下载的强大超剪切程序，框选的时候经常不灵，有时要框几次，请大侠帮优化一下，去掉左右键选项，直接一框即得，任意键退出，试了几次都不弄不好。本帖最后由 USER2128 于 2016-10-26 10:16 编辑
从我的程序中修改了一下代码，应该很适合你了。
同样是两下点击 chamfer命令不是一样能达到这个效果嘛 ;; tt(修剪)
(defun c:tt ()
(setvar "FILLETRAD" 0)
(while (and (setq s1 (car (entsel "\n选择直线1: ")))
(setq s2 (car (entsel "\n选择直线2: ")))
(not (equal s1 s2))
)
(command "fillet" s1 s2)
)
(princ)
) 不知道我说清了没有，就是说这个程序已经有这两项功能了，只是操作不太顺利，时得时不得，而且退出麻烦，小女笨拙，请大侠帮优化一下。 现在为求代码，男扮女装也来了 非常感谢USER2128侠，心胸坦荡，热情助人！！fan_zh未免有点小肚鸡肠了吧，虽然这个社会骗子多，但是不是人人都是你想象的那样，你有选择不帮别人的权利，但也不要随便去攻击别人。。 活跃下气氛嘛
好吧，如果你确实是女子，算我错了！
但你如何证明呢？ USER2128 发表于 2016-9-22 15:37
从我的程序中修改了一下代码，应该很适合你了。
强。。。。谢谢，下载来备用 这个有点使用价值啊 如只是针对2条直线，自己做的图，要用这个功能的话，第一：
判断是否相交，取消，毕竟不相交的不会去用这个功能，
2：用inters 计算交点。
3：重新生成二条线，(entmake '( p1 p2)......什么的。entdel 二个旧的线。
3-1：框选时有坐标点，可以当选择保留X形线的哪一边
3-2：保留比较长的那一段。可以简单的计算，我的想法是一般都是保留长的部分