请教各位高手关于这个循环的问题

幽默的armstrong

ivde 发表于 2015-4-17 11:50
(defun C:333 (/ p1 p2 p0 e1 e2 _v vx vy ss)
  (if (and (setq p1 (getpoint "\nFirst Corner: "))
           ...

谢谢你了，思路拓宽了不少

看天的小树

幽默的armstrong 发表于 2015-4-17 15:51
谢谢了啊，学习了。收藏起来慢慢研究

2. 
   
3. (defun C:333(/ a b x1 y1)
   
4. 
   
5.   (graphscr)  ;这句话不理解
   
6. 
   
7.   (setvar "cmdecho" 0);关闭捕捉
   
8. 
   
9.   (setq a(list 100 100))
   
10. 
    
11.   (setq b(list 200 200) )
    
12. 
    
13.   (command"rectangle"a b)  ;绘制矩形长宽均为100
    
14. 
    
15.   (setq x1(*(fix(/ (car a)10))10))  ;取x1=100/10整数部分×10，
    
16. 
    
17.   (repeat(1-(/(-(car b)(car a))10)) ;1减去(b的横坐标减去a的横坐标所得÷10),结果为重复次数
    
18. 
    
19.     (setq x1(+ x1 10))     ;x1+10递增
    
20. 
    
21.     (setq y1 (*(fix(/ (cadr a)10))10)) ;令y1=a纵坐标÷10，所得取整，乘以10
    
22. 
    
23.     (repeat(1-(/(-(cadr b)(cadr a))10)) ;b的纵坐标减去a的纵坐标，÷10，1减去所得，即为重复次数
    
24.       (setq y1(+ y1 10)) ;y1+10递增
    
25. 
    
26.       (command "pline" (list (- x1 3) y1) (list (+ x1 3 ) y1) "" ) ;多段线横坐标x1-3，y1起点，横坐标x1+3，y1为终点得到十字架的横线，横线长6单位
    
27. 
    
28.       (command "pline" (list x1 (- y1 3)) (list x1 (+ y1 3)) "" ) ;多段线横坐标x1，y1-3起点，横坐标x1，y1+3终点得到十字架竖线，竖线长6单位
    
29. 
    
30.       )
    
31. 
    
32.     )
    
33. 
    
34. )

<br /> (defun C:333(/ a b x1 y1)<br /> <br />   (graphscr)  ;这句话不理解<br /> <br />   (setvar "cmdecho" 0);关闭捕捉<br /> <br />   (setq a(list 100 100))<br /> <br />   (setq b(list 200 200) )<br /> <br />   (command"rectangle"a b)  ;绘制矩形长宽均为100<br /> <br />   (setq x1(*(fix(/ (car a)10))10))  ;取x1=100/10整数部分×10，<br /> <br />   (repeat(1-(/(-(car b)(car a))10)) ;1减去(b的横坐标减去a的横坐标所得÷10),结果为重复次数<br /> <br />     (setq x1(+ x1 10))     ;x1+10递增<br /> <br />     (setq y1 (*(fix(/ (cadr a)10))10)) ;令y1=a纵坐标÷10，所得取整，乘以10<br /> <br />     (repeat(1-(/(-(cadr b)(cadr a))10)) ;b的纵坐标减去a的纵坐标，÷10，1减去所得，即为重复次数<br />       (setq y1(+ y1 10)) ;y1+10递增<br /> <br />       (command "pline" (list (- x1 3) y1) (list (+ x1 3 ) y1) "" ) ;多段线横坐标x1-3，y1起点，横坐标x1+3，y1为终点得到十字架的横线，横线长6单位<br /> <br />       (command "pline" (list x1 (- y1 3)) (list x1 (+ y1 3)) "" ) ;多段线横坐标x1，y1-3起点，横坐标x1，y1+3终点得到十字架竖线，竖线长6单位<br /> <br />       )<br /> <br />     )<br /> <br /> )