[编程申请]： 以线为界，进行分组选择，请大家帮助解决。

walong

                               
登录/注册后可看大图

以线为界，进行分组选择，请大家帮助解决。

eachy

最初由 walong 发布
[B]

                               
登录/注册后可看大图

以线为界，进行分组选择，请大家帮助解决。 [/B]

是这样吗？

2. [php]
   
3. (defun test (/ ln vmin vltp vmax vrbp sp ep elst p1 p2 plst1 plst2 ss1 ss2)
   
4.   (if (setq ln (entsel "\n选择线: "))
   
5.     ;;关于entsel 加过滤选择看前面帖子;
   
6.     (progn
   
7.       (setq elst  (entget (car ln))
   
8.             sp          (cdr (assoc 10 elst))
   
9.             ep          (cdr (assoc 11 elst))
   
10.             vmin  (getvar "vsmin")
    
11.             vmax  (getvar "vsmax")
    
12.             vltp  (list (car vmin) (cadr vmax) 0.)
    
13.             vrbp  (list (car vmax) (cadr vmin) 0.)
    
14.             p1          (inters sp ep vltp vmax nil)
    
15.             p2          (inters sp ep vmin vrbp nil)
    
16.             plst1 (append (list vmin vltp)
    
17.                           (if (zerop (angle vmin p1))
    
18.                             (list p2 p1)
    
19.                             (list p1 p2)
    
20.                           )
    
21.                   )
    
22.             plst2 (append (list vmax vrbp)
    
23.                           (if (equal (angle vmax p1) pi 0.000001)
    
24.                             (list p2 p1)
    
25.                             (list p1 p2)
    
26.                           )
    
27.                   )
    
28.       )
    
29.       (setq ss1        (ssget "_WP" plst1)
    
30.             ss2        (ssget "_WP" plst2)
    
31.       )
    
32.       ;(sssetfirst nil ss2)
    
33.       ;(sssetfirst nil ss1)
    
34.     )
    
35.   )
    
36. )[/php]

[php]<br /> (defun test (/ ln vmin vltp vmax vrbp sp ep elst p1 p2 plst1 plst2 ss1 ss2)<br />   (if (setq ln (entsel "\n选择线: "))<br />     ;;关于entsel 加过滤选择看前面帖子;<br />     (progn<br />       (setq elst  (entget (car ln))<br />             sp          (cdr (assoc 10 elst))<br />             ep          (cdr (assoc 11 elst))<br />             vmin  (getvar "vsmin")<br />             vmax  (getvar "vsmax")<br />             vltp  (list (car vmin) (cadr vmax) 0.)<br />             vrbp  (list (car vmax) (cadr vmin) 0.)<br />             p1          (inters sp ep vltp vmax nil)<br />             p2          (inters sp ep vmin vrbp nil)<br />             plst1 (append (list vmin vltp)<br />                           (if (zerop (angle vmin p1))<br />                             (list p2 p1)<br />                             (list p1 p2)<br />                           )<br />                   )<br />             plst2 (append (list vmax vrbp)<br />                           (if (equal (angle vmax p1) pi 0.000001)<br />                             (list p2 p1)<br />                             (list p1 p2)<br />                           )<br />                   )<br />       )<br />       (setq ss1        (ssget "_WP" plst1)<br />             ss2        (ssget "_WP" plst2)<br />       )<br />       ;(sssetfirst nil ss2)<br />       ;(sssetfirst nil ss1)<br />     )<br />   )<br /> )[/php]

陌生人

2. 
   
3. ;;c:ss2 选集工具－－－－－－－－－－－－－－－－－－－－－陌生人.2004.1
   
4. ;;以分界点，左边选集为!ss1,右边选集为!ss2.
   
5. ;;支持超出屏幕显示的实体.
   
6. (defun c:ss2 (/ pt pt0 pt1 pt2)
   
7.   (setq pt (getpoint "\n选分界点:")
   
8.         pt0 (list (car pt) -1e99 0)
   
9.         pt1 '(-1e99 1e99 0)
   
10.         pt2 '(1e99 1e99 0))
    
11.   (vl-cmdf ".zoom" "all")
    
12.   (setq        ss1 (ssget "w" pt0 pt1)
    
13.         ss2 (ssget "w" pt0 pt2))
    
14.   (vl-cmdf ".zoom" "p")
    
15. )
    

<br /> ;;c:ss2 选集工具－－－－－－－－－－－－－－－－－－－－－陌生人.2004.1<br /> ;;以分界点，左边选集为!ss1,右边选集为!ss2.<br /> ;;支持超出屏幕显示的实体.<br /> (defun c:ss2 (/ pt pt0 pt1 pt2)<br />   (setq pt (getpoint "\n选分界点:")<br />         pt0 (list (car pt) -1e99 0)<br />         pt1 '(-1e99 1e99 0)<br />         pt2 '(1e99 1e99 0))<br />   (vl-cmdf ".zoom" "all")<br />   (setq        ss1 (ssget "w" pt0 pt1)<br />         ss2 (ssget "w" pt0 pt2))<br />   (vl-cmdf ".zoom" "p")<br /> )<br />

walong

上面两种都好用。
但不知会不会有图形超过vmin  (getvar "vsmin")    vmax  (getvar "vsmax") 的取值。
我测试好像是不可能超值的。

aeo

zoom,all后取屏幕角点.