[求助]：关于BREAK

lihb

在CAD中用BREAK打断一条多义线时,怎以在得到打断线的两条线的对象名称?

xyp1964

2. [FONT=courier new](setq s1(car(entsel"\n选择多段线: ")))
   
3. ;;打断(command"break" …… )
   
4. (setq s2 (entlast))[/FONT]

[FONT=courier new](setq s1(car(entsel"\n选择多段线: ")))<br /> ;;打断(command"break" …… )<br /> (setq s2 (entlast))[/FONT]

lihb

好像不行.
(command "ERASE"  s1 "")出错,反回结果主NIL.

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (setq        e  (entsel "\n选择多段线: ")
   
4.         s1 (car e)
   
5.   )
   
6.   (command "break" e pause)
   
7.   (setq s2 (entlast))
   
8.   (princ "\ns1 = ")
   
9.   (princ s1)
   
10.   (princ "\ns2 = ")
    
11.   (princ s2)
    
12.   (princ)
    
13. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq        e  (entsel "\n选择多段线: ")<br />         s1 (car e)<br />   )<br />   (command "break" e pause)<br />   (setq s2 (entlast))<br />   (princ "\ns1 = ")<br />   (princ s1)<br />   (princ "\ns2 = ")<br />   (princ s2)<br />   (princ)<br /> )[/FONT]

lihb

运行程序后结果
(command "select"  s1 "")
<Entity name: 407496b9>
0 found

(command "select"  s2 "")
<Entity name: 407496b8>
1 found

xyp1964

最初由 lihb 发布
[B]运行程序后结果
(command "select"  s1 "")
<Entity name: 407496b9>
0 found

(command "select"  s2 "")
<Entity name: 407496b8>
1 found [/B]

直接运行test：
命令: test
选择多段线:
s1 = <图元名: 7edac528>
s2 = <图元名: 7edac530>

lihb

你的意思我明的,但我需要的打断后的两线段的对象名称
请见下程序

2. 
   
3.   [FONT=courier new]
   
4. (defun c:test ()
   
5. (setq s1 (car (entsel "SELECT A LINE:")))
   
6. (command "osnap" "nea")
   
7. (setq pt (getpoint "\nBreak Point:"))
   
8. (command "osnap" "nea")
   
9. (command "break" ent pt "@")
   
10. (setq s2 (entlast))
    
11. (command "pedit"  s1 "j" s2 "" "")
    
12. )
    
13.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:test ()<br /> (setq s1 (car (entsel "SELECT A LINE:")))<br /> (command "osnap" "nea")<br /> (setq pt (getpoint "\nBreak Point:"))<br /> (command "osnap" "nea")<br /> (command "break" ent pt "@")<br /> (setq s2 (entlast))<br /> (command "pedit"  s1 "j" s2 "" "")<br /> )<br />   [/FONT]<br />

xyp1964

这样

2. [FONT=courier new](defun c:test ()
   
3.   (command "osnap" "nea")
   
4.   (setq        s1 (car (entsel "SELECT A LINE: "))
   
5.         pt (getpoint "\nBreak Point: ")
   
6.         et (cdr (assoc 0 (entget s1)))
   
7.   )
   
8.   (command "break" s1 pt "@")
   
9.   (setq s2 (entlast))
   
10.   (if (or (= et "LINE")
    
11.           (= et "ARC")
    
12.       )
    
13.     (command "pedit" s1 "" "j" s2 "" "")
    
14.   )
    
15.   (if (or (= et "POLYLINE")
    
16.           (= et "LWPOLYLINE")
    
17.       )
    
18.     (command "pedit" s1 "j" s2 "" "")
    
19.   )
    
20.   (princ)
    
21. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (command "osnap" "nea")<br />   (setq        s1 (car (entsel "SELECT A LINE: "))<br />         pt (getpoint "\nBreak Point: ")<br />         et (cdr (assoc 0 (entget s1)))<br />   )<br />   (command "break" s1 pt "@")<br />   (setq s2 (entlast))<br />   (if (or (= et "LINE")<br />           (= et "ARC")<br />       )<br />     (command "pedit" s1 "" "j" s2 "" "")<br />   )<br />   (if (or (= et "POLYLINE")<br />           (= et "LWPOLYLINE")<br />       )<br />     (command "pedit" s1 "j" s2 "" "")<br />   )<br />   (princ)<br /> )[/FONT]

lihb

请问XYP斑竹测试过吗?
在我这里不行(CAD2002),提示找不到S1的实体.
请确定!

zxq0220

[php]
(defun c:test ()
(setq s1 (car (entsel "SELECT A LINE:")))
(command "osnap" "nea")
(setq pt (getpoint "\nBreak Point:"))
(command "osnap" "nea")
(command "break" ent pt "@")
(setq s2 (ssget "c" (list pt pt)))
(command "pedit" "m" s2 "" "y" "j" "0" "")
)
[/php]

xyz518mm

请教 (command "break" ent pt "@")
这命令中的 @ 代表什么意思呢?

ljpnb

"@"就是相对坐标，相对于前一个已选定的坐标点