一个儿复杂条件选择题目

李义东

为了达成以下目的我思考试验多次都未有一明确的编程思路请高手赐教！！！！！！

1、有两个同心圆，大圆与小圆的直径差为有规律性的几个值（大圆为直径3、4、5、6、8mm小圆为对应的2.5
、3.4、4.2、5.8mm)
2、在一张图中有很多这种圆环（如在同一个中心点大圆为8小圆为5.8mm，，，以另一个点为圆心有大圆为6
小圆为4.2）
3、现要做一个程式能够过滤选取到直径为3、4、5、6、8mm圆并将其改为3/4圆弧

meflying

2. 
   
3. (defun c:test( / ss i ent ents pt r pts pte os)
   
4.   (setq os (getvar "osmode"))
   
5.   (setvar "osmode" 0)
   
6.   (setq ss (ssget "x" '((0 . "CIRCLE") (-4 . "<or") (40 . 1.5) (40 . 2) (40 . 2.5) (40 . 3) (40 . 4) (-4 . "or>"))))
   
7.   (setq i 0)
   
8.   (while (< i (sslength ss))
   
9.     (setq ent (ssname ss i))
   
10.     (setq ents (entget ent))
    
11.     (setq pt (cdr (assoc 10 ents)))
    
12.     (setq r (cdr (assoc 40 ents)))
    
13.     (setq pts (polar pt (+ pi (/ pi 12)) r))
    
14.     (setq pte (polar pt (+ (/ (* pi 3) 2) (/ pi 12)) r))
    
15.     (command "_.break" (list ent pts) pte)
    
16.     (setq i (1+ i))
    
17.   )
    
18.   (setvar "osmode" os)
    
19.   (princ)
    
20. )

<br /> (defun c:test( / ss i ent ents pt r pts pte os)<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setq ss (ssget "x" '((0 . "CIRCLE") (-4 . "<or") (40 . 1.5) (40 . 2) (40 . 2.5) (40 . 3) (40 . 4) (-4 . "or>"))))<br />   (setq i 0)<br />   (while (< i (sslength ss))<br />     (setq ent (ssname ss i))<br />     (setq ents (entget ent))<br />     (setq pt (cdr (assoc 10 ents)))<br />     (setq r (cdr (assoc 40 ents)))<br />     (setq pts (polar pt (+ pi (/ pi 12)) r))<br />     (setq pte (polar pt (+ (/ (* pi 3) 2) (/ pi 12)) r))<br />     (command "_.break" (list ent pts) pte)<br />     (setq i (1+ i))<br />   )<br />   (setvar "osmode" os)<br />   (princ)<br /> )

李义东

看到您的笑脸心中真高兴!!!!!!!!!!!!!!
请教版主
(-4 . "<or")
怎么理解?

meflying

这是SSGET的一个过滤的逻辑判断测试式，
详细的可以参考帮助文件中的SSGET，

李义东

你的程式只满足了一条件请再赐教

选择的圆有另一个条件,比如选8mm的圆那么在它的同心上要有一个5.8mm的圆才能选到8mm的圆将它变为圆弧.????
这个够难的吧!!!!???

meflying

你可以通过修改参数lst来达到不同的要求，这个列表应该能明白是怎么回事吧。。。
注意不要写错，点两边都有空格，详细查看帮助文件中的点表。。。

2. 
   
3. (defun c:test (/ ss i ent ents pt d pts pte os lst lst2 rL)
   
4.   (setq lst '((3 . 2.5) (4 . 3.4) (5 . 4.2) (8 . 5.8)))
   
5.   (setq i 0)
   
6.   (repeat (length lst)
   
7.     (setq lst2 (append lst2 (list (cons 40 (/ (car (nth i lst)) 2.0)))))
   
8.     (setq i (1+ i))
   
9.   )
   
10.   (setq os (getvar "osmode"))
    
11.   (setvar "osmode" 0)
    
12.   (setq        ss (ssget "x"
    
13.                   (append (list '(0 . "CIRCLE"))
    
14.                         (list '(-4 . "<or"))
    
15.                         lst2
    
16.                         (list '(-4 . "or>"))
    
17.                   )
    
18.            )
    
19.   )
    
20.   (setq i 0)
    
21.   (while (< i (sslength ss))
    
22.     (setq ent (ssname ss i))
    
23.     (setq ents (entget ent))
    
24.     (setq d (* 2.0 (cdr (assoc 40 ents))))
    
25.     (setq pt (cdr (assoc 10 (entget ent))))
    
26.     (setq rL (assoc d lst))
    
27.     (if        rl
    
28.       (if (ssget "x"
    
29.                  (list '(0 . "CIRCLE")
    
30.                        '(-4 . "<and")
    
31.                        (cons 40 (/ (cdr rL) 2.0))
    
32.                        (cons 10 pt)
    
33.                        '(-4 . "and>")
    
34.                  )
    
35.           )
    
36.         (progn
    
37.           (setq pts (polar pt (+ pi (/ pi 12)) (/ d 2.0)))
    
38.           (setq pte (polar pt (+ (/ (* pi 3) 2) (/ pi 12)) (/ d 2.0)))
    
39.           (command "_.break" (list ent pts) pte)
    
40.         )
    
41.       )
    
42.     )
    
43.     (setq i (1+ i))
    
44.   )
    
45.   (setvar "osmode" os)
    
46.   (princ)
    
47. )

<br /> (defun c:test (/ ss i ent ents pt d pts pte os lst lst2 rL)<br />   (setq lst '((3 . 2.5) (4 . 3.4) (5 . 4.2) (8 . 5.8)))<br />   (setq i 0)<br />   (repeat (length lst)<br />     (setq lst2 (append lst2 (list (cons 40 (/ (car (nth i lst)) 2.0)))))<br />     (setq i (1+ i))<br />   )<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setq        ss (ssget "x"<br />                   (append (list '(0 . "CIRCLE"))<br />                         (list '(-4 . "<or"))<br />                         lst2<br />                         (list '(-4 . "or>"))<br />                   )<br />            )<br />   )<br />   (setq i 0)<br />   (while (< i (sslength ss))<br />     (setq ent (ssname ss i))<br />     (setq ents (entget ent))<br />     (setq d (* 2.0 (cdr (assoc 40 ents))))<br />     (setq pt (cdr (assoc 10 (entget ent))))<br />     (setq rL (assoc d lst))<br />     (if        rl<br />       (if (ssget "x"<br />                  (list '(0 . "CIRCLE")<br />                        '(-4 . "<and")<br />                        (cons 40 (/ (cdr rL) 2.0))<br />                        (cons 10 pt)<br />                        '(-4 . "and>")<br />                  )<br />           )<br />         (progn<br />           (setq pts (polar pt (+ pi (/ pi 12)) (/ d 2.0)))<br />           (setq pte (polar pt (+ (/ (* pi 3) 2) (/ pi 12)) (/ d 2.0)))<br />           (command "_.break" (list ent pts) pte)<br />         )<br />       )<br />     )<br />     (setq i (1+ i))<br />   )<br />   (setvar "osmode" os)<br />   (princ)<br /> )

李义东

感谢版主赐教，，待我试过后回复版主结果！！！！
先谢谢啦！！！！！
越看您的笑容越亲切可爱！！！！！
人因梦想而伟大！！！！！
人因可爱而美丽！！！！！

李义东

测试可以但如何能出现一个选取取，，没有选取让人感觉怪怪的。

李义东

请版主对程式做一下说明好吗?昨天晚上搞到1:30也未弄明白
以下程式如何理解.
(setq lst '((3 . 2.5) (4 . 3.4) (5 . 4.2) (8 . 5.8)))

(setq rL (assoc d lst))


这两句关系是什么?如何理解?

meflying

一个个选取是怎么个选取法，说说操作过程。。。

这个程序的思路是，先根据直径选取你需要变为3/4圆，然后判断每一个是否具有与其同心并且半径对应的圆，如果有，则操作，否则不操作。。。

这个列表是一系列需要操作的圆的直径列表，点前面表示需要操作圆的直径，点后面表示对应的同心圆的直径，你可以增加或减少这个列表的数量（就是如(3 . 25)同类型的数量），但格式要保证不变。。。
(setq rL (assoc d lst))取出与直径D对应的小圆直径（后面会使用CDR），