再次请教关于选择处理的问题

434939575

请教各位朋友们。我的目的要把右边的图元建立一个包容盒子。但我这样处理，有部分漏了。望各位赐教。谢谢。

2. (defun c:tt ()
   
3.   (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
4. ;;;;;;;;;;;;;;;;;;;;;;;;;;;*****************************      
   
5.   (setq i 0)
   
6.   (repeat (sslength ss)
   
7.     (setq ss0 (ssname ss i)
   
8.     i   (1+ i)
   
9.     )
   
10.     (setq ss0-en (entget ss0))  
    
11.     (setq ss0-62 (cdr (assoc 62 ss0-en)))
    
12.        (setq pt1(cdr (nth 15 ss0-en)))  ;调取pline第1点坐标。
    
13.     (setq pt2 (cdr (nth 19 ss0-en)))  ;调取pline第2点坐标。
    
14.    
    
15.      ;(setq  fw (getreal "范围< 300 >"))
    
16.    ; (if (= fw  nil )
    
17.       (setq fw  600);"范围
    
18.      ; );if
    
19.         (setq ang (angle pt1 pt2))
    
20.     (setq ang-- (angle pt2 pt1))
    
21.     (setq pt1>100 (polar pt1 ang 100)) ;pt1距离100MM位置。
    
22.     (setq pt2<100 (polar pt2 ang-- 100)) ;pt2距离100MM位置。
    
23.       (setq pt1>100-fw (polar pt1>100 (+ ang (* 0.5 pi))fw))
    
24.     (setq pt1>100-fw-- (polar pt1>100 (+ ang (* 1.5 pi))fw))
    
25. (setq pt2<100fw (polar pt2<100 (+ ang (* 0.5 pi))fw))
    
26.     (setq pt2<100-fw-- (polar pt2<100 (+ ang (* 1.5 pi))fw))
    
27.    (setq  lst (  list pt1>100-fw pt1>100-fw--  pt2<100-fw--  pt2<100fw))
    
28.    (setq  ss-2(ssget "cP" lst ))
    
29.        (command  "._pline"   pt1>100-fw pt1>100-fw--  pt2<100-fw--  pt2<100fw    "c" "" "")
    
30.      (command "select" ss "r" ss-2 "")
    
31. (setq   xx (ssget "p" ) )
    
32.     (setq  ss  xx)
    
33.       )    ;repeat
    
34.   
    
35. )  ;end
    

(defun c:tt ()<br />   (setq ss (ssget '((0 . "LWPOLYLINE"))))<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;*****************************      <br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq ss0 (ssname ss i)<br />     i   (1+ i)<br />     )<br />     (setq ss0-en (entget ss0))  <br />     (setq ss0-62 (cdr (assoc 62 ss0-en)))<br />        (setq pt1(cdr (nth 15 ss0-en)))  ;调取pline第1点坐标。<br />     (setq pt2 (cdr (nth 19 ss0-en)))  ;调取pline第2点坐标。<br />     <br />      ;(setq  fw (getreal "范围< 300 >"))<br />    ; (if (= fw  nil )<br />       (setq fw  600);"范围<br />      ; );if<br />         (setq ang (angle pt1 pt2))<br />     (setq ang-- (angle pt2 pt1))<br />     (setq pt1>100 (polar pt1 ang 100)) ;pt1距离100MM位置。<br />     (setq pt2<100 (polar pt2 ang-- 100)) ;pt2距离100MM位置。<br />       (setq pt1>100-fw (polar pt1>100 (+ ang (* 0.5 pi))fw))<br />     (setq pt1>100-fw-- (polar pt1>100 (+ ang (* 1.5 pi))fw))<br /> (setq pt2<100fw (polar pt2<100 (+ ang (* 0.5 pi))fw))<br />     (setq pt2<100-fw-- (polar pt2<100 (+ ang (* 1.5 pi))fw))<br />    (setq  lst (  list pt1>100-fw pt1>100-fw--  pt2<100-fw--  pt2<100fw))<br />    (setq  ss-2(ssget "cP" lst )) <br />        (command  "._pline"   pt1>100-fw pt1>100-fw--  pt2<100-fw--  pt2<100fw    "c" "" "")<br />      (command "select" ss "r" ss-2 "")<br /> (setq   xx (ssget "p" ) )<br />     (setq  ss  xx)<br />       )    ;repeat<br />   <br /> )  ;end<br />

风树

帮顶一下                          

xyp1964

434939575

感谢院长大驾光临。！

434939575

后来自己整了下凑合着用

2. <div class="blockcode"><blockquote>(defun c:ty ()
   
3.   
   
4.   (setq ss (ssget '((0 . "LINE"))))
   
5.   (setq i 0)
   
6.   (while      (   /=(sslength ss) 0)
   
7.     (setq ss0 (ssname ss i)
   
8.          
   
9.     )
   
10.     (setq ss0-en (entget ss0))        
    
11.     ;(setq ss0-62 (cdr (assoc 62 ss0-en)))
    
12.     (setq pt1(cdr (nth 10 ss0-en)))        ;调取pline第1点坐标。
    
13.     (setq pt2 (cdr (nth 11 ss0-en)))        ;调取pline第2点坐标。
    
14.     ;(setq ss0-62 (cdr (assoc 62 ss0-en)))
    
15.    
    
16.         (setq fw  300);"范围
    
17.     (setq ang (angle pt1 pt2))
    
18.     (setq ang-- (angle pt2 pt1))
    
19.     (setq pt1>100 (polar pt1 ang 100)) ;pt1距离100MM位置。
    
20.     (setq pt2<100 (polar pt2 ang-- 100)) ;pt2距离100MM位置。
    
21.       (setq pt1>100-fw (polar pt1>100 (+ ang (* 0.5 pi))fw))
    
22.     (setq pt1>100-fw-- (polar pt1>100 (+ ang (* 1.5 pi))fw))
    
23. (setq pt2<100fw (polar pt2<100 (+ ang (* 0.5 pi))fw))
    
24.     (setq pt2<100-fw-- (polar pt2<100 (+ ang (* 1.5 pi))fw))
    
25.    (setq  lst (  list pt1>100-fw pt1>100-fw--  pt2<100-fw--  pt2<100fw))
    
26.    (setq  ss-2(ssget "cP" lst ))
    
27.        (command  "._pline"   pt1>100-fw pt1>100-fw--  pt2<100-fw--  pt2<100fw    "c" "" "")
    
28.      (command "select" ss "r" ss-2 "")
    
29. (setq   xx (ssget "p" ) )
    
30.    (setq  ss  xx)
    
31.       )        ;repeat
    
32.   );end

<div class="blockcode"><blockquote>(defun c:ty ()<br />   <br />   (setq ss (ssget '((0 . "LINE"))))<br />   (setq i 0)<br />   (while      (   /=(sslength ss) 0)<br />     (setq ss0 (ssname ss i)<br />          <br />     )<br />     (setq ss0-en (entget ss0))        <br />     ;(setq ss0-62 (cdr (assoc 62 ss0-en)))<br />     (setq pt1(cdr (nth 10 ss0-en)))        ;调取pline第1点坐标。<br />     (setq pt2 (cdr (nth 11 ss0-en)))        ;调取pline第2点坐标。<br />     ;(setq ss0-62 (cdr (assoc 62 ss0-en)))<br />     <br />         (setq fw  300);"范围<br />     (setq ang (angle pt1 pt2))<br />     (setq ang-- (angle pt2 pt1))<br />     (setq pt1>100 (polar pt1 ang 100)) ;pt1距离100MM位置。<br />     (setq pt2<100 (polar pt2 ang-- 100)) ;pt2距离100MM位置。<br />       (setq pt1>100-fw (polar pt1>100 (+ ang (* 0.5 pi))fw))<br />     (setq pt1>100-fw-- (polar pt1>100 (+ ang (* 1.5 pi))fw))<br /> (setq pt2<100fw (polar pt2<100 (+ ang (* 0.5 pi))fw))<br />     (setq pt2<100-fw-- (polar pt2<100 (+ ang (* 1.5 pi))fw))<br />    (setq  lst (  list pt1>100-fw pt1>100-fw--  pt2<100-fw--  pt2<100fw))<br />    (setq  ss-2(ssget "cP" lst )) <br />        (command  "._pline"   pt1>100-fw pt1>100-fw--  pt2<100-fw--  pt2<100fw    "c" "" "")<br />      (command "select" ss "r" ss-2 "")<br /> (setq   xx (ssget "p" ) )<br />    (setq  ss  xx)<br />       )        ;repeat<br />   );end

ZZXXQQ

2. (defun c:tt ()
   
3. (command "_.UNDO" "BE")
   
4.   (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
5. ;;;;;;;;;;;;;;;;;;;;;;;;;;;*****************************      
   
6.   (while (> (sslength ss) 0)
   
7.     (setq ss0-en (entget (ssname ss 0)))
   
8.     (setq pt1 (cdr(nth 15 ss0-en)))  ;调取pline第1点坐标。
   
9.     (setq pt2 (cdr(nth 19 ss0-en)))  ;调取pline第2点坐标。
   
10.     (setq fw 600);"范围
    
11.     (setq ang (angle pt1 pt2))
    
12.     (setq ang-- (angle pt2 pt1))
    
13.     (setq pt1>100 (polar pt1 ang 100)) ;pt1距离100MM位置。
    
14.     (setq pt2<100 (polar pt2 ang-- 100)) ;pt2距离100MM位置。
    
15.     (setq pt1>100-fw (polar pt1>100 (+ ang (* 0.5 pi)) fw))
    
16.     (setq pt1>100-fw-- (polar pt1>100 (+ ang (* 1.5 pi)) fw))
    
17.     (setq pt2<100fw (polar pt2<100 (+ ang (* 0.5 pi))fw))
    
18.     (setq pt2<100-fw-- (polar pt2<100 (+ ang (* 1.5 pi))fw))
    
19.     (setq lst (list pt1>100-fw pt1>100-fw-- pt2<100-fw-- pt2<100fw pt1>100-fw))
    
20.     (command "_.RECTANG" pt1>100-fw pt2<100-fw--)
    
21.     (setq ss-2 (ssget "cP" lst))
    
22.     (if (> (sslength ss) (sslength ss-2)) (progn
    
23.      (command "select" ss "r" ss-2 "")
    
24.      (setq ss (ssget "p"))
    
25.     )
    
26.      (setq ss (ssadd))
    
27.     )
    
28.   ) ;while
    
29.   (command "_.UNDO" "E")
    
30.   (princ)
    
31. ) ;end
    

(defun c:tt ()<br /> (command "_.UNDO" "BE")<br />   (setq ss (ssget '((0 . "LWPOLYLINE"))))<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;*****************************      <br />   (while (> (sslength ss) 0)<br />     (setq ss0-en (entget (ssname ss 0)))<br />     (setq pt1 (cdr(nth 15 ss0-en)))  ;调取pline第1点坐标。<br />     (setq pt2 (cdr(nth 19 ss0-en)))  ;调取pline第2点坐标。<br />     (setq fw 600);"范围<br />     (setq ang (angle pt1 pt2))<br />     (setq ang-- (angle pt2 pt1))<br />     (setq pt1>100 (polar pt1 ang 100)) ;pt1距离100MM位置。<br />     (setq pt2<100 (polar pt2 ang-- 100)) ;pt2距离100MM位置。<br />     (setq pt1>100-fw (polar pt1>100 (+ ang (* 0.5 pi)) fw))<br />     (setq pt1>100-fw-- (polar pt1>100 (+ ang (* 1.5 pi)) fw))<br />     (setq pt2<100fw (polar pt2<100 (+ ang (* 0.5 pi))fw))<br />     (setq pt2<100-fw-- (polar pt2<100 (+ ang (* 1.5 pi))fw))<br />     (setq lst (list pt1>100-fw pt1>100-fw-- pt2<100-fw-- pt2<100fw pt1>100-fw))<br />     (command "_.RECTANG" pt1>100-fw pt2<100-fw--)<br />     (setq ss-2 (ssget "cP" lst))<br />     (if (> (sslength ss) (sslength ss-2)) (progn<br />      (command "select" ss "r" ss-2 "")<br />      (setq ss (ssget "p"))<br />     )<br />      (setq ss (ssadd))<br />     )<br />   ) ;while<br />   (command "_.UNDO" "E")<br />   (princ)<br /> ) ;end<br />

434939575

ZZXXQQ 发表于 2014-7-17 20:36

感谢版主出手相助，受教了。