在lisp文件中如何用BREAK命令

szx025

我想删除P1 P2点之间的黄线，在lisp文件中用BREAK命令如何实现？

鱼与熊掌

(command "_break"

szx025

鱼与熊掌 发表于 2015-5-8 10:54
(command "_break"

break后面是要求选择对象，这个黄线是图面已经存在的线，不是lisp文件生成的，所以这个线没法作为对象被选中。

鱼与熊掌

szx025 发表于 2015-5-8 11:10
break后面是要求选择对象，这个黄线是图面已经存在的线，不是lisp文件生成的，所以这个线没法作为对象被选 ...

(command "break" (cons pt ename)   差不多这个思路.

xyp1964

2. (defun bk (p1 p2 / ss1 ss2)
   
3.   (setq ss1 (ssget "c" p1 p1)
   
4.         ss2 (ssget "c" p2 p2)
   
5.   )
   
6.   (if (and (= (sslength ss1) (sslength ss2))
   
7.            (equal (ssname ss1 0) (ssname ss2 0))
   
8.       )
   
9.     (command "break" (list (ssname ss1 0) p1) p2)
   
10.   )
    
11.   (princ)
    
12. )

(defun bk (p1 p2 / ss1 ss2)<br />   (setq ss1 (ssget "c" p1 p1)<br />         ss2 (ssget "c" p2 p2)<br />   )<br />   (if (and (= (sslength ss1) (sslength ss2))<br />            (equal (ssname ss1 0) (ssname ss2 0))<br />       )<br />     (command "break" (list (ssname ss1 0) p1) p2)<br />   )<br />   (princ)<br /> )

szx025

xyp1964 发表于 2015-5-8 12:47

谢谢院长，但程序的执行后是的效果是删除了黄线上面半个矩形框，而不是我想要的删除P1~P2点之间的黄线

自贡黄明儒

command "break" (entsel)........

szx025

黄大师，能否详细说说

xyp1964

估计要这种效果：