[LISP程序]：;;;线段在下方---一个问题

libo2000

2. ;;;线段在下方
   
3. 
   
4. (defun c:cheng_downline(/ e0 ss ss2 e1 e2 p0 p1 p2 p3 p4 p5 p6 loop i ii x y x1 x2 r)  
   
5. 
   
6.   (setq e0 (entsel "\n选择在下方的线段："))  
   
7.   (setq ss (ssget "x" '((0 . "LINE"))))  
   
8.   (ssdel (car e0) ss)
   
9.   (setq loop (sslength ss))
   
10.   (setq p1 (cdr (assoc 10 (entget (car e0)))))
    
11.   (setq p2 (cdr (assoc 11 (entget (car e0)))))      
    
12.   (setq width (getreal "\n输入打断间距<50>："))
    
13.   (if (or (= "" width) (= nil width)) (setq width 100))  
    
14.   (setq i 0)
    
15.   (setq m 0)  
    
16.   (setq r (angle p1 p2))  
    
17.   (repeat loop   
    
18.     (setq e1 (ssname ss i))
    
19.     (setq i (+ i 1))     
    
20.     (setq p3 (cdr (assoc 10 (entget e1))))
    
21.     (setq p4 (cdr (assoc 11 (entget e1))))
    
22.     (setq p0 (inters p1 p2 p3 p4))   
    
23.     ;(if (= i 1) (command "zoom" "e"))
    
24.     (setq ss3 (ssadd))
    
25.     (if (and (/= p0 nil) (> i 1))
    
26.       (progn       
    
27.         (setq ss2 (ssget p0 '((0 . "LINE"))))
    
28.         (setq qq p0)
    
29.         (if ss2 (setq loop2 T) (setq loop2 nil))
    
30.         (while loop2
    
31.           (setq e2 (ssname ss2 0))
    
32.           (setq loop2 nil)
    
33.           (if (and (not (ssmemb e2 ss)) (/= e1 e2))
    
34.             (progn
    
35.               (setq p5 (cdr (assoc 10 (entget e2))))
    
36.               (setq p6 (cdr (assoc 11 (entget e2))))
    
37.               (setq p0 (inters p3 p4 p5 p6))                           
    
38.             )
    
39.             (progn
    
40.               (if ss3 (ssadd e2 ss3) (setq ss3 (ssadd e2)) )
    
41.               (if e2 (command "move" e2 "" "0,0" "100"))                           
    
42.             )
    
43.           )
    
44.         )       
    
45.       )  
    
46.     )  
    
47.    
    
48.     (if (/= p0 nil)
    
49.         (progn          
    
50.           (setq x (car p0))
    
51.               (setq y (car(cdr p0)))          
    
52.           (setq x1 (- x (* width (cos r))))
    
53.           (setq x2 (+ y (* width (sin r))))
    
54.           (setq p5 (list x1 x2 0.0))
    
55.           (setq x1 (+ x (* width (cos r))))
    
56.           (setq x2 (- y (* width (sin r))))
    
57.           (setq p6 (list x1 x2 0.0))
    
58.           (if (or (equal p1 p3) (equal p1 p4) (equal p2 p3) (equal p2 p4))
    
59.             (princ)
    
60.             (progn             
    
61.               (if (<= i 1) (command "break" e0 p5 p6) (command "break" e2 p5 p6))
    
62.               (setq m (+ m 1))             
    
63.             )
    
64.           )
    
65.         )
    
66.     )
    
67.   )  
    
68.   ;(command "zoom" "p")
    
69.   (if (> (sslength ss3) 0) (command "move" ss3 "" "0,0" "-100.0"))   
    
70.   (princ "\n总共完成")  (princ m)  (princ "项。")
    
71.   (princ)
    
72. )

;;;线段在下方<br /> <br /> (defun c:cheng_downline(/ e0 ss ss2 e1 e2 p0 p1 p2 p3 p4 p5 p6 loop i ii x y x1 x2 r)  <br /> <br />   (setq e0 (entsel "\n选择在下方的线段："))  <br />   (setq ss (ssget "x" '((0 . "LINE"))))  <br />   (ssdel (car e0) ss)<br />   (setq loop (sslength ss))<br />   (setq p1 (cdr (assoc 10 (entget (car e0)))))<br />   (setq p2 (cdr (assoc 11 (entget (car e0)))))      <br />   (setq width (getreal "\n输入打断间距<50>："))<br />   (if (or (= "" width) (= nil width)) (setq width 100))  <br />   (setq i 0)<br />   (setq m 0)  <br />   (setq r (angle p1 p2))  <br />   (repeat loop    <br />     (setq e1 (ssname ss i))<br />     (setq i (+ i 1))     <br />     (setq p3 (cdr (assoc 10 (entget e1))))<br />     (setq p4 (cdr (assoc 11 (entget e1))))<br />     (setq p0 (inters p1 p2 p3 p4))    <br />     ;(if (= i 1) (command "zoom" "e"))<br />     (setq ss3 (ssadd))<br />     (if (and (/= p0 nil) (> i 1)) <br />       (progn        <br />         (setq ss2 (ssget p0 '((0 . "LINE"))))<br />         (setq qq p0)<br />         (if ss2 (setq loop2 T) (setq loop2 nil))<br />         (while loop2<br />           (setq e2 (ssname ss2 0))<br />           (setq loop2 nil)<br />           (if (and (not (ssmemb e2 ss)) (/= e1 e2))<br />             (progn<br />               (setq p5 (cdr (assoc 10 (entget e2))))<br />               (setq p6 (cdr (assoc 11 (entget e2))))<br />               (setq p0 (inters p3 p4 p5 p6))                            <br />             )<br />             (progn<br />               (if ss3 (ssadd e2 ss3) (setq ss3 (ssadd e2)) )<br />               (if e2 (command "move" e2 "" "0,0" "100"))                            <br />             )<br />           )<br />         )        <br />       )  <br />     )  <br />     <br />     (if (/= p0 nil) <br />         (progn          <br />           (setq x (car p0))<br />               (setq y (car(cdr p0)))          <br />           (setq x1 (- x (* width (cos r))))<br />           (setq x2 (+ y (* width (sin r))))<br />           (setq p5 (list x1 x2 0.0))<br />           (setq x1 (+ x (* width (cos r))))<br />           (setq x2 (- y (* width (sin r))))<br />           (setq p6 (list x1 x2 0.0))<br />           (if (or (equal p1 p3) (equal p1 p4) (equal p2 p3) (equal p2 p4))<br />             (princ)<br />             (progn              <br />               (if (<= i 1) (command "break" e0 p5 p6) (command "break" e2 p5 p6))<br />               (setq m (+ m 1))              <br />             )<br />           )<br />         )<br />     )<br />   )  <br />   ;(command "zoom" "p")<br />   (if (> (sslength ss3) 0) (command "move" ss3 "" "0,0" "-100.0"))    <br />   (princ "\n总共完成")  (princ m)  (princ "项。")<br />   (princ)<br /> )

一个问题：
该程序和cheng_upline有同样的问题，
如果选择线段的时候，zoom不同得到的结果也不同，甚至相反！！！
？？？？help!!!