[求助]：break 在一个点处打断为什么出错？

wangwangnn

我用break命令在一个点处打断，总是出错，但在cad中用这个顺序做事能做出来的，不知为什么，那位帮忙看看


(setq p1 '(100 100) p2 '(50 200))
(setq p3 '(50 50) p4 '(100 150))
(command "line" p1 p2 "")
(setq en1(entlast))
(command "line" p3 p4 "")
(setq p (inters p1 p2 p3 p4))
(command "break" en1 "f" p "@")

xyp1964

2. [FONT=courier new]
   
3. (defun c:test ()
   
4.   (setvar "osmode" 0)
   
5.   (setq        p1 '(100 100)
   
6.         p2 '(50 200)
   
7.         p3 '(50 50)
   
8.         p4 '(100 150)
   
9.         p  (inters p1 p2 p3 p4 t)
   
10.   )
    
11.   (command "line" p1 p2 "")
    
12.   (setq en1 (entlast))
    
13.   (command "line" p3 p4 "")
    
14.   (if p
    
15.     (command "break" (list en1 '(0 0)) "f" p p)
    
16.   )
    
17.   (princ)
    
18. )[/FONT]

[FONT=courier new]<br /> (defun c:test ()<br />   (setvar "osmode" 0)<br />   (setq        p1 '(100 100)<br />         p2 '(50 200)<br />         p3 '(50 50)<br />         p4 '(100 150)<br />         p  (inters p1 p2 p3 p4 t)<br />   )<br />   (command "line" p1 p2 "")<br />   (setq en1 (entlast))<br />   (command "line" p3 p4 "")<br />   (if p<br />     (command "break" (list en1 '(0 0)) "f" p p)<br />   )<br />   (princ)<br /> )[/FONT]

yunzhong80

;;;;;;;;;;;去掉f就OK了
(command "break" en1  p "@" )

wangwangnn

谢谢2楼、三楼的，可以实现了，我想问一下2楼的，(command "break" (list en1 '(0 0)) "f" p p)   为什么要用(list en1 '(0 0)) 组成一个表？