[LISP函数]：请问斑主????

hhjj9898

请问晓东兄,本LISP的目的自动剪掉PLINE中的线条,但在运行中发现一个有奇怪的事,
如果当前视图中仅有PLINE和LINE时,程序可以实现我想要的目的,如当前视图中,
PLINE和LINE仅占一部分,程序就不可以实现我想要的目的,这是为什么?

2. 
   
3. [FONT=courier new]
   
4. (defun c:et (/           os         a11   len   len1  b         a1    a2    temp1
   
5.              b1           b2         zubiao             p11   p12         p13   p14   p15
   
6.              p16   p17         p18
   
7.             )
   
8.   (setvar "cmdecho" 0)
   
9.   (setq os (getvar "osmode"))
   
10.   (setvar "osmode" 0)
    
11.   (prompt "\n请选择图元")
    
12.   (setq        a11 (ssget '((-4 . "< or")
    
13.                      (0 . "line")
    
14.                      (0 . "LWPOLYLINE")
    
15.                      (-4 . "or>")
    
16.                     )
    
17.             )
    
18.   )
    
19.   (setq len (sslength a11))
    
20.   (setq b11 0)
    
21.   (setq a1 (ssadd))
    
22.   (setq a2 (ssadd))
    
23.   (while (> len 0)
    
24.     (progn
    
25.       (setq temp1 (ssname a11 (setq len (1- len))))
    
26.       (if (= (cdr (assoc 0 (entget temp1))) "LWPOLYLINE")
    
27.         (ssadd temp1 a1)
    
28.         (ssadd temp1 a2)
    
29.       )
    
30. ;;;end if
    
31.     )
    
32. ;;;end progn
    
33.   )
    
34.   (setq len1 (sslength a1))
    
35.   ;(while (< b len1)
    
36.    ; (progn
    
37.       (setq b2 (ssname a1 b11))
    
38.       (setq b1 (entget b2))
    
39.       (setq zubiao (xdrx_getinters b2 a2))
    
40.       (setq p11 (nth 0 zubiao))
    
41.       (setq p12 (nth 1 zubiao))
    
42.       (setq p13 (nth 2 zubiao))
    
43.       (setq p14 (nth 3 zubiao))
    
44.       (setq p15 (nth 4 zubiao))
    
45.       (setq p16 (nth 5 zubiao))
    
46.       (setq p17 (nth 6 zubiao))
    
47.       (setq p18 (nth 7 zubiao))
    
48.       (command "break" p11 p12)
    
49.   
    
50.       (command "break" p13 p14)
    
51.       (command "break" p15 p16)
    
52.       (command "break" p17 p18)
    
53.     ;  (setq b (+ 1 b))
    
54.     ;)
    
55.   ;)
    
56.   (setvar "osmode" os)
    
57.   (setvar "cmdecho" 1)
    
58.   (PRINC)
    
59. )[/FONT]

<br /> [FONT=courier new]<br /> (defun c:et (/           os         a11   len   len1  b         a1    a2    temp1<br />              b1           b2         zubiao             p11   p12         p13   p14   p15<br />              p16   p17         p18<br />             )<br />   (setvar "cmdecho" 0)<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (prompt "\n请选择图元")<br />   (setq        a11 (ssget '((-4 . "< or")<br />                      (0 . "line")<br />                      (0 . "LWPOLYLINE")<br />                      (-4 . "or>")<br />                     )<br />             )<br />   )<br />   (setq len (sslength a11))<br />   (setq b11 0)<br />   (setq a1 (ssadd))<br />   (setq a2 (ssadd))<br />   (while (> len 0)<br />     (progn<br />       (setq temp1 (ssname a11 (setq len (1- len))))<br />       (if (= (cdr (assoc 0 (entget temp1))) "LWPOLYLINE")<br />         (ssadd temp1 a1)<br />         (ssadd temp1 a2)<br />       )<br /> ;;;end if<br />     )<br /> ;;;end progn<br />   )<br />   (setq len1 (sslength a1))<br />   ;(while (< b len1)<br />    ; (progn<br />       (setq b2 (ssname a1 b11))<br />       (setq b1 (entget b2))<br />       (setq zubiao (xdrx_getinters b2 a2))<br />       (setq p11 (nth 0 zubiao))<br />       (setq p12 (nth 1 zubiao))<br />       (setq p13 (nth 2 zubiao))<br />       (setq p14 (nth 3 zubiao))<br />       (setq p15 (nth 4 zubiao))<br />       (setq p16 (nth 5 zubiao))<br />       (setq p17 (nth 6 zubiao))<br />       (setq p18 (nth 7 zubiao))<br />       (command "break" p11 p12)<br />   <br />       (command "break" p13 p14)<br />       (command "break" p15 p16)<br />       (command "break" p17 p18)<br />     ;  (setq b (+ 1 b))<br />     ;)<br />   ;)<br />   (setvar "osmode" os)<br />   (setvar "cmdecho" 1)<br />   (PRINC)<br /> )[/FONT]

XDSoft

最初由 hhjj9898 发布
[B]请问晓东兄,本LISP的目的自动剪掉PLINE中的线条,但在运行中发现一个有奇怪的事,
如果当前视图中仅有PLINE和LINE时,程序可以实现我想要的目的,如当前视图中,
PLINE和LINE仅占一部分,程序就不可以实现我想要的目的,?.. [/B]

跟大家说说，不能实现，结果是什么？有什么现象？等等

你说的自动裁减掉PLINE中的线条，是什么样的效果，把处理前和后的图截取下来，贴论坛来。

先说下你程序的一个地方：

2. 
   
3. 
   
4.   (setq        a11 (ssget '((-4 . "< or")
   
5.                      (0 . "line")
   
6.                      (0 . "LWPOLYLINE")
   
7.                      (-4 . "or>")
   
8.                     )
   
9.             )
   
10.   )
    

<br /> <br />   (setq        a11 (ssget '((-4 . "< or")<br />                      (0 . "line")<br />                      (0 . "LWPOLYLINE")<br />                      (-4 . "or>")<br />                     )<br />             )<br />   )<br />

这个不用这样麻烦写，就：

(setq all (ssget '((0 . "LINE,LWPOLYLINE"))))

写就可以。

hhjj9898

不好意思,我不会贴图,你可以教我吗??

烛光

最初由 hhjj9898 发布
[B]不好意思,我不会贴图,你可以教我吗?? [/B]

用附件就可以了啊

fylinwater

我知道原因了
是你用break命令时
当第一点在平面外时就无法选择到实体
如果处理的图元不是很多的话，
建议你把break中处理的第一点移到平面中心后再使用bareak命令

hhjj9898

请看:

hhjj9898

请看:

hhjj9898

在请看:

hhjj9898

看:
晓东要有时间,请看看:

烛光

你把捕捉给闭了，(setvar "osmode" 0)，然后再用那些break命令，试试。

用LISP的BREAK命令，第二个参数最好给(list ent pt)，ent是实体名，PT是上面的一个点。

hhjj9898

可以在明确一下吗,我已经将osmode关掉了!!!

烛光

最初由 hhjj9898 发布
[B]可以在明确一下吗,我已经将osmode关掉了!!! [/B]

比如线L1实体名是e, 你要在P1,P2间打断，那么：

(command ".break" e p1 (list e p2))，这样ACAD知道要断哪个实体。

要保证这两个点在e上啊。

对了，奇怪，你上面的break 怎么没有给实体参数啊？断哪个啊？

fylinwater

不要给实体参数的，只要点就可以了
但这个点在平面外面执行就失败了

hhjj9898

那为什么只选一个,就可以成功,选两个以上,就不行???而且我选的点多在PLINE上