如何选择符合长度要求的直线（框选）

xskfq

框选后如何选中符合长度小于100的直线，试了几次没成功，哪位帮解决一下，谢谢！！！

ZZXXQQ

2. (defun c:tt ()
   
3. (if (setq ss (ssget '((0 . "LINE")))) (progn
   
4.   (setq i -1 ss1 (ssadd))
   
5.   (repeat (sslength ss)
   
6.    (setq ent (entget (setq en (ssname ss (setq i (1+ i))))))
   
7.    (if (< (distance (cdr(assoc 10 ent)) (cdr(assoc 11 ent))) 100)
   
8.     (ssadd en ss1)
   
9.    )
   
10.   )
    
11. ))
    
12. ss1
    
13. )
    

(defun c:tt ()<br /> (if (setq ss (ssget '((0 . "LINE")))) (progn<br />   (setq i -1 ss1 (ssadd))<br />   (repeat (sslength ss)<br />    (setq ent (entget (setq en (ssname ss (setq i (1+ i))))))<br />    (if (< (distance (cdr(assoc 10 ent)) (cdr(assoc 11 ent))) 100)<br />     (ssadd en ss1)<br />    )<br />   )<br /> ))<br /> ss1<br /> )<br />

fszs

用'fi过滤器试试，再不行，只能编程了

edata

CAD自带命令qselect

xskfq

ZZXXQQ 发表于 2013-12-10 08:48

命令: tt
选择对象: 指定对角点: 找到 2 个
选择对象:
<Selection set: 2c1>

怎么不行，，

ll_j

xskfq 发表于 2013-12-10 09:20
命令: tt
选择对象: 指定对角点: 找到 2 个
选择对象:

把Z版程序的第6行“>”改为“<”。

xskfq

ll_j 发表于 2013-12-10 09:28
把Z版程序的第6行“>”改为“

不行,好像不对

ll_j

xskfq 发表于 2013-12-10 09:54
不行,好像不对

错是没错的，只是返回的选择集没有亮显。
这样试试：
MOVE
选择对象: (c:tt)           ;作为内部函数，可以定义的时候去掉c:
选择对象: 指定对角点: 找到 4 个
选择对象:
<Selection set: 2e>
找到 2 个
选择对象:

snddd2000

1. (defun ssgetXlenline (Operator Len / ss ss1 i ent en ptslst)
   
2. ;;;  (SSGETXLENLINE < 100 )
   
3.   (if (setq ss (ssget "X" '((0 . "LINE"))))
   
4.     (progn
   
5.       (setq i -1
   
6.             ptslst nil
   
7.             ss1        (ssadd)
   
8.       )
   
9.       (repeat (sslength ss)
   
10.         (setq ent (entget (setq en (ssname ss (setq i (1+ i))))))
    
11.         (if
    
12.           (Operator (distance (cdr (assoc 10 ent)) (cdr (assoc 11 ent)))
    
13.                     Len
    
14.           )
    
15.            (setq
    
16.              ptslst (cons (list (assoc 10 ent) (assoc 11 ent)) ptslst)
    
17.            )
    
18.         )
    
19.       )
    
20.       (ssget (APPEND
    
21.                (list (cons -4 "<OR"))
    
22.                (apply 'append
    
23.                       (mapcar
    
24.                         '(lambda (x)
    
25.                            (LIST (cons -4 "<AND")
    
26.                                  (car X)
    
27.                                  (last X)
    
28.                                  (cons -4 "AND>")
    
29.                            )
    
30.                          )
    
31.                         ptslst
    
32.                       )
    
33.                )
    
34.                (list (cons -4 "OR>"))
    
35.              )
    
36.       )
    
37.     )
    
38.   )
    
39. )
    

(defun ssgetXlenline (Operator Len / ss ss1 i ent en ptslst)<br /> ;;;  (SSGETXLENLINE < 100 )<br />   (if (setq ss (ssget "X" '((0 . "LINE"))))<br />     (progn<br />       (setq i -1<br />             ptslst nil<br />             ss1        (ssadd)<br />       )<br />       (repeat (sslength ss)<br />         (setq ent (entget (setq en (ssname ss (setq i (1+ i))))))<br />         (if<br />           (Operator (distance (cdr (assoc 10 ent)) (cdr (assoc 11 ent)))<br />                     Len<br />           )<br />            (setq<br />              ptslst (cons (list (assoc 10 ent) (assoc 11 ent)) ptslst)<br />            )<br />         )<br />       )<br />       (ssget (APPEND<br />                (list (cons -4 "<OR"))<br />                (apply 'append<br />                       (mapcar<br />                         '(lambda (x)<br />                            (LIST (cons -4 "<AND")<br />                                  (car X)<br />                                  (last X)<br />                                  (cons -4 "AND>")<br />                            )<br />                          )<br />                         ptslst<br />                       )<br />                )<br />                (list (cons -4 "OR>"))<br />              )<br />       )<br />     )<br />   )<br /> )<br />

yoyoho

xskfq 发表于 2013-12-10 09:54
不行,好像不对

(defun c:tt ()
(SETQ SS1 NIL)
(if (setq ss (ssget '((0 . "LINE")))) (progn
  (setq i -1 ss1 (ssadd))
  (repeat (sslength ss)
   (setq ent (entget (setq en (ssname ss (setq i (1+ i))))))
   (if (< (distance (cdr(assoc 10 ent)) (cdr(assoc 11 ent))) 100)
    (ssadd en ss1)
   )
  )
))
(sssetfirst nil ss1)
)