整整一个下午也没弄出个结果来，在线等高手

yaokui25

判断选择的线段长度当等于一个数值的时候，就被选中
例如：当判断值为10mm的时候，选择的线段中有10mm长度的线段时就被选中。

下面的代码废了好长一段时间才弄出来的
可是只适用于x轴 或者y轴上的线段
当线段有角度的时候该如何修正呢，小弟弄了整整一个下午也没弄出来
在线等高手相助 拜托

(defun c:st_sen ( )
    (setvar "cmdecho" 0)
    (cond
    ((not (setq ss (ssget '((0 . "LINE"))))))
    (T
     (setq i 0
         ss1 (ssadd)
     )
     (while (setq ee (ssname ss i))
       (setq dat (entget ee)
              pa (cdr (assoc 10 dat))
              pb (cdr (assoc 11 dat))
               i (1+ i)
       )
       (if (= (distance pa pb) 10)   ;;判断线段长度 ：10mm的时候，亮显
       (ssadd ee ss1)
       )
     )
   (princ (strcat "\n 〓共选择了【" (itoa (sslength ss1)) "】条直线〓 "))
   (sssetfirst nil ss1)   ;;判断线段长度 ：10mm的时候，亮显
    )
    )
(princ)
)
)

springwillow

(if (= (distance pa pb) 10)改为(if (equal (distance pa pb) 10.0 0.1)试试

自贡黄明儒

1. (defun c:w1 (/ DAT EE N PA PB SS SS1)
   
2.   (IF (setq ss (ssget '((0 . "LINE"))))
   
3.     (Progn
   
4.       (setq ss1 (ssadd))
   
5.       (repeat (setq n (SSLENGTH ss))
   
6.         (setq ee (ssname ss (setq n (1- n))))
   
7.         (setq dat (entget ee)
   
8.               pa  (cdr (assoc 10 dat))
   
9.               pb  (cdr (assoc 11 dat))
   
10.         )
    
11.         (if (= (distance pa pb) 10)
    
12.           ;;判断线段长度 ：10mm的时候，亮显
    
13.           (ssadd ee ss1)
    
14.         )
    
15.       )
    
16.       (sssetfirst nil ss1)
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )

(defun c:w1 (/ DAT EE N PA PB SS SS1)<br />   (IF (setq ss (ssget '((0 . "LINE"))))<br />     (Progn<br />       (setq ss1 (ssadd))<br />       (repeat (setq n (SSLENGTH ss))<br />         (setq ee (ssname ss (setq n (1- n))))<br />         (setq dat (entget ee)<br />               pa  (cdr (assoc 10 dat))<br />               pb  (cdr (assoc 11 dat))<br />         )<br />         (if (= (distance pa pb) 10)<br />           ;;判断线段长度 ：10mm的时候，亮显<br />           (ssadd ee ss1)<br />         )<br />       )<br />       (sssetfirst nil ss1)<br />     )<br />   )<br />   (princ)<br /> )

yaokui25

springwillow 发表于 2013-5-31 17:46
(if (= (distance pa pb) 10)改为(if (equal (distance pa pb) 10.0 0.1)试试

您好，谢谢您的回复
现在的代码只能选中 x轴 或者y轴上的线段
带角度的线段也想选中
刚才试了一下，没有效果

yaokui25

自贡黄明儒 发表于 2013-5-31 17:52

您好，谢谢您的回复
现在的代码只能选中 x轴 或者y轴上的线段
带角度的线段也想被选中，只要长度满足要求
刚才试了一下，没能达到我想要的效果。
您能在帮我看看嘛？
可能我的问题没说明白

springwillow

2. (defun c:st_sen  ()
   
3.   (setvar "cmdecho" 0)
   
4.   (cond
   
5.     ((not (setq ss (ssget '((0 . "LINE"))))))
   
6.     (T
   
7.      (setq i   0
   
8.      ss1 (ssadd)
   
9.      )
   
10.      (while (setq ee (ssname ss i))
    
11.        (setq dat (entget ee)
    
12.        pa   (cdr (assoc 10 dat))
    
13.        pb   (cdr (assoc 11 dat))
    
14.        i   (1+ i)
    
15.        )
    
16.        (if (equal (distance pa pb) 10.0 0.1)
    
17.    ;;判断线段长度 ：10mm的时候，亮显
    
18.    (ssadd ee ss1)
    
19.        )
    
20.      )
    
21.      (princ (strcat "\n 〓共选择了【"
    
22.         (itoa (sslength ss1))
    
23.         "】条直线〓 "
    
24.       )
    
25.      )
    
26.      (sssetfirst nil ss1)
    
27.      ;;判断线段长度 ：10mm的时候，亮显
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )
    

(defun c:st_sen  ()<br />   (setvar "cmdecho" 0)<br />   (cond<br />     ((not (setq ss (ssget '((0 . "LINE"))))))<br />     (T<br />      (setq i   0<br />      ss1 (ssadd)<br />      )<br />      (while (setq ee (ssname ss i))<br />        (setq dat (entget ee)<br />        pa   (cdr (assoc 10 dat))<br />        pb   (cdr (assoc 11 dat))<br />        i   (1+ i)<br />        )<br />        (if (equal (distance pa pb) 10.0 0.1)<br />    ;;判断线段长度 ：10mm的时候，亮显<br />    (ssadd ee ss1)<br />        )<br />      )<br />      (princ (strcat "\n 〓共选择了【"<br />         (itoa (sslength ss1))<br />         "】条直线〓 "<br />       )<br />      )<br />      (sssetfirst nil ss1)<br />      ;;判断线段长度 ：10mm的时候，亮显 <br />     )<br />   )<br />   (princ)<br /> )<br />

yaokui25

springwillow 发表于 2013-5-31 19:40

再次谢谢您的回答，确实解决的我的问题，困扰了我一下午。

再次请求：如何修改为 ≧大于等于一个数值  且  ≦小于等于一个数值时候，选中满足条件的线段

例如 :10≦线段长 ≦50   的所有线段

springwillow

yaokui25 发表于 2013-5-31 20:05
再次谢谢您的回答，确实解决的我的问题，困扰了我一下午。

再次请求：如何修改为 ≧大于等 ...

2. (defun c:st_sen        (/ ss i ee dat pa pb ss1)
   
3.   (setvar "cmdecho" 0)
   
4.   (cond
   
5.     ((not (setq ss (ssget '((0 . "LINE"))))))
   
6.     (T
   
7.      (setq i   0
   
8.            ss1 (ssadd)
   
9.      )
   
10.      (while (setq ee (ssname ss i))
    
11.        (setq dat (entget ee)
    
12.              pa         (cdr (assoc 10 dat))
    
13.              pb         (cdr (assoc 11 dat))
    
14.              i         (1+ i)
    
15.        )
    
16.        (if (and (>= (distance pa pb) 9.9) (<= (distance pa pb) 50.1))
    
17.          ;;判断线段长度 ：10mm的时候，亮显
    
18.          (ssadd ee ss1)
    
19.        )
    
20.      )
    
21.      (princ (strcat "\n 〓共选择了【"
    
22.                     (itoa (sslength ss1))
    
23.                     "】条直线〓 "
    
24.             )
    
25.      )
    
26.      (sssetfirst nil ss1)
    
27.      ;;判断线段长度 ：10mm的时候，亮显
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )
    

(defun c:st_sen        (/ ss i ee dat pa pb ss1)<br />   (setvar "cmdecho" 0)<br />   (cond<br />     ((not (setq ss (ssget '((0 . "LINE"))))))<br />     (T<br />      (setq i   0<br />            ss1 (ssadd)<br />      )<br />      (while (setq ee (ssname ss i))<br />        (setq dat (entget ee)<br />              pa         (cdr (assoc 10 dat))<br />              pb         (cdr (assoc 11 dat))<br />              i         (1+ i)<br />        )<br />        (if (and (>= (distance pa pb) 9.9) (<= (distance pa pb) 50.1))<br />          ;;判断线段长度 ：10mm的时候，亮显<br />          (ssadd ee ss1)<br />        )<br />      )<br />      (princ (strcat "\n 〓共选择了【"<br />                     (itoa (sslength ss1))<br />                     "】条直线〓 "<br />             )<br />      )<br />      (sssetfirst nil ss1)<br />      ;;判断线段长度 ：10mm的时候，亮显 <br />     )<br />   )<br />   (princ)<br /> )<br />

清风明月名字

谢谢楼主的分享！收藏备用。

yaokui25

springwillow 发表于 2013-5-31 20:16

谢谢您的指教
也就是说在选择上做了一个模糊处理是吧