一个儿复杂条件选择题目

李义东 · 发表于 2003-12-19 10:35:00

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

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 · 发表于 2003-12-19 10:58:00

copy


(defun c:test( / ss i ent ents pt r pts pte os)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq ss (ssget "x" '((0 . "CIRCLE") (-4 . ""))))
  (setq i 0)
  (while ("))
                  )
           )
  )
  (setq i 0)
  (while (")
                 )
          )
        (progn
          (setq pts (polar pt (+ pi (/ pi 12)) (/ d 2.0)))
          (setq pte (polar pt (+ (/ (* pi 3) 2) (/ pi 12)) (/ d 2.0)))
          (command "_.break" (list ent pts) pte)
        )
      )
    )
    (setq i (1+ i))
  )
  (setvar "osmode" os)
  (princ)
)

李义东 · 发表于 2003-12-19 12:35:00

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

meflying · 发表于 2003-12-19 12:43:00

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

李义东 · 发表于 2003-12-19 17:16:00

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

meflying · 发表于 2003-12-19 18:13:00

一个个选取是怎么个选取法，说说操作过程。。。
这个程序的思路是，先根据直径选取你需要变为3/4圆，然后判断每一个是否具有与其同心并且半径对应的圆，如果有，则操作，否则不操作。。。
这个列表是一系列需要操作的圆的直径列表，点前面表示需要操作圆的直径，点后面表示对应的同心圆的直径，你可以增加或减少这个列表的数量（就是如(3 . 25)同类型的数量），但格式要保证不变。。。
(setq rL (assoc d lst))取出与直径D对应的小圆直径（后面会使用CDR），

一个儿复杂条件选择题目

发表回复

精选推荐