能不能打断时即选即断

ygrzz · 发表于 2007-2-7 16:20

能不能打断时即选即断（选一个对象就自动在交点处打断）
程序出错了
(defun c:01 ()
    (setq en (osnap (entsel "\\n选取要剪切的线:") "_INT")
          p1 (cadr en)
    )
    (command "break" (car en) "f" p1 p1)
    (princ)
)

ygrzz · 发表于 2007-2-7 17:21

trim 空格空格是默认所有对象为剪切边界
只能修剪掉2交点间的一段，但是许多时候还是修剪掉交点的一侧
特别是利用XLINE做辅助线画图而周围又有其他图形的时候。
看到了龙龙的老贴
(defun C:BB (/ L P1)
    (setvar "OSMODE" 0)
    (setq L (entsel))
    (setq P1 (osnap (cadr L) "NEA"))
    (command "_.break" L "f" P1 P1)
    (princ)
)
能即选即断，可不是断在交点

ygrzz · 发表于 2007-2-7 16:31

我主要是想做个修剪程序：
我的思路是选好对象后先把它在临近的交点处一分为2
然后把拾取点所在部分修剪或删除掉，
搞了半天第1步就卡住了，大伙来看看

Andyhon · 发表于 2007-2-7 16:53

不用写程序

试试 trim 直接 Enter 再点选

lazybug · 发表于 2007-2-7 17:20

(defun c:01 ()
    (setq en (entsel "\\n选取要剪切的线:")
          p1 (cadr en)
    )
    (command "break" en "f" p1 p1)
    (princ)
)

caoyin · 发表于 2007-2-7 17:31

ygrzz · 发表于 2007-2-7 18:13

粗粗测试过你的程序，觉得不是很爽
其实我的理想要求是鼠标在对象上一点就去掉一侧
不管该侧与其他对象相交还是不相交
先断后删

mccad · 发表于 2007-2-7 20:29

这是N年前写的程序，可能是你所需要的。

ygrzz · 发表于 2007-2-8 00:48

郑立楷这大名真是见的蛮多，原来就是您那~~~
测试你的程序的断点也不是在交点啊，又是得点2次，当作修剪用觉得不够快
我是眼高手低，有时间高手们再来整整~~

ygrzz · 发表于 2007-2-8 01:06

;;; caoyin 2007-2-7
;;; 一点打断
caoyin,你的一点不是我要的点
拾取点别在交点上，拾取点离开交点一小段，然后寻找到交点怎么做？

账号		自动登录	找回密码
密码			注册

能不能打断时即选即断

本帖子中包含更多资源

本帖子中包含更多资源