ygrzz
发表于 2007-2-7 16:20:00
能不能打断时即选即断
能不能打断时即选即断（选一个对象就自动在交点处打断）<br/>程序出错了<br/>(defun c:01 ()<br/> (setq en (osnap (entsel "\\n选取要剪切的线:") "_INT")<br/> p1 (cadr en)<br/> )<br/> (command "break" (car en) "f" p1 p1)<br/> (princ)<br/>)<br/>
ygrzz
发表于 2007-2-7 17:21:00
trim 空格 空格 是默认所有对象为剪切边界<br/>只能修剪掉2交点间的一段，但是许多时候还是修剪掉交点的一侧<br/>特别是利用XLINE做辅助线画图而周围又有其他图形的时候。<br/>看到了龙龙的老贴<br/>(defun C:BB (/ L P1)<br/> (setvar "OSMODE" 0)<br/> (setq L (entsel))<br/> (setq P1 (osnap (cadr L) "NEA"))<br/> (command "_.break" L "f" P1 P1)<br/> (princ)<br/>)<br/>能即选即断，可不是断在交点<br/>
ygrzz
发表于 2007-2-7 16:31:00
我主要是想做个修剪程序：<br/>我的思路是选好对象后先把它在临近的交点处一分为2<br/>然后把拾取点所在部分修剪或删除掉，<br/>搞了半天第1步就卡住了，大伙来看看<br/>
Andyhon
发表于 2007-2-7 16:53:00
<p>不用写程序</p><p>试试 trim 直接 Enter 再点选<br/></p><p></p>
lazybug
发表于 2007-2-7 17:20:00
(defun c:01 ()<br/> (setq en (entsel "<a href="file://\\n">\\n</a>选取要剪切的线:")<br/> p1 (cadr en)<br/> )<br/> (command "break" en "f" p1 p1)<br/> (princ)<br/>)
caoyin
发表于 2007-2-7 17:31:00
ygrzz
发表于 2007-2-7 18:13:00
粗粗测试过你的程序，觉得不是很爽<br/>其实我的理想要求是鼠标在对象上一点就去掉一侧<br/>不管该侧与其他对象相交还是不相交<br/>先断后删<br/>
mccad
发表于 2007-2-7 20:29:00
<p>这是N年前写的程序，可能是你所需要的。</p><p></p>
ygrzz
发表于 2007-2-8 00:48:00
郑立楷 这大名真是见的蛮多，原来就是您那~~~<br/>测试你的程序的断点也不是在交点啊，又是得点2次，当作修剪用觉得不够快<br/>我是眼高手低，有时间高手们再来整整~~<br/>
ygrzz
发表于 2007-2-8 01:06:00
;;; caoyin 2007-2-7<br/>;;; 一点打断<br/>caoyin,你的一点不是我要的点<br/>拾取点别在交点上，拾取点离开交点一小段，然后寻找到交点怎么做？<br/>