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

幽默的armstrong

(defun C:333(/ a b x y x1 y1 xx3 xx6 yy3 yy6)
  (graphscr)
  (setvar "cmdecho" 0)
  (setq a(list 100 100))
  (setq b(list 200 200) )
  (setq x (car a))
  (setq y (cadr a))
  (setq x1(+ x 1))
  (setq y1(+ y 1))
            (while  (< x1 (car b) )               
                        (if  (= 0 (rem x1 10 ))
                                  (while (< y1 (cadr b)))
                                        (setq xx3(list (- x1 3) y1))
                                         (setq xx6(list (+ x1 3 ) y1))
                                            (setq yy3(list x1 (- y1 3)))
                                         (setq yy6(list x1 (+ y1 3)))
                                                (if(= 0 (rem y1 10 ))
                                                (progn               
                                                (command "pline" xx3 xx6 "c" )
                                                (command "pline" yy3 yy6 "c" )
                                                 )
                                                )
                                                (setq y1(1+ y1))
                                )
                        )
                )
                (setq x1(1+ x1))
          )
)

怎么能把这个范围内(100,100) (200, 200)
用十字丝画满？
新人，先谢谢大家拉

fl202

先绘制一个十字，再阵列吧。

ZZXXQQ

2. (defun C:333(/ a b x y x1 y1 xx3 xx6 yy3 yy6)
   
3. (graphscr)
   
4. (setvar "cmdecho" 0)
   
5. (setq a (list 100 100))
   
6. (setq b (list 200 200))
   
7. (setq x (car a))
   
8. (setq y (cadr a))
   
9. (setq x1 (+ x 10))
   
10. (setq y1 (+ y 10))
    
11. (while (>= (abs (- (car b) x1)) 20)               
    
12.   (while (>= (abs (- (cadr b) y1)) 20)
    
13.    (setq xx3 (list (- x1 3) y1))
    
14.    (setq xx6 (list (+ x1 3) y1))
    
15.    (setq yy3 (list x1 (- y1 3)))
    
16.    (setq yy6 (list x1 (+ y1 3)))
    
17.    (command "line" xx3 xx6 "" "line" yy3 yy6 "")
    
18.    (setq y1 (+ y1 10))
    
19.   )
    
20.   (setq y1 (+ y 10))
    
21.   (setq x1 (+ x1 10))
    
22. )
    
23. )
    

(defun C:333(/ a b x y x1 y1 xx3 xx6 yy3 yy6)<br /> (graphscr)<br /> (setvar "cmdecho" 0)<br /> (setq a (list 100 100))<br /> (setq b (list 200 200))<br /> (setq x (car a))<br /> (setq y (cadr a))<br /> (setq x1 (+ x 10))<br /> (setq y1 (+ y 10))<br /> (while (>= (abs (- (car b) x1)) 20)                <br />   (while (>= (abs (- (cadr b) y1)) 20)<br />    (setq xx3 (list (- x1 3) y1))<br />    (setq xx6 (list (+ x1 3) y1))<br />    (setq yy3 (list x1 (- y1 3)))<br />    (setq yy6 (list x1 (+ y1 3)))<br />    (command "line" xx3 xx6 "" "line" yy3 yy6 "")<br />    (setq y1 (+ y1 10))<br />   )<br />   (setq y1 (+ y 10))<br />   (setq x1 (+ x1 10))<br /> )<br /> )<br />

2. (defun C:333 (/ p1 p2 p0 e1 e2 _v vx vy ss)
   
3. (if (and (setq p1 (getpoint "\nFirst Corner: "))
   
4.           (setq p2 (getcorner p1 "\nOrther Corner: "))) (progn
   
5.   (setq p0 (mapcar '+ p1 '(10 10 0))
   
6.         e1 (entmakex
   
7.             (list
   
8.              '(0 . "LINE")
   
9.              (cons 10 (mapcar '- p0 '(1.5 0 0)))
   
10.              (cons 11 (mapcar '+ p0 '(1.5 0 0)))
    
11.             )
    
12.            )
    
13.         e2 (entmakex
    
14.             (list
    
15.              '(0 . "LINE")
    
16.              (cons 10 (mapcar '- p0 '(0 1.5 0)))
    
17.              (cons 11 (mapcar '+ p0 '(0 1.5 0)))
    
18.             )
    
19.            )
    
20.         _v (mapcar 'abs (mapcar '- p2 p1))
    
21.         vx (fix (/ (car _v) 10))
    
22.         vy (fix (/ (cadr _v) 10))
    
23.   )
    
24.   (vl-cmdf ".rectang" "_none" p1 "_none" p2)
    
25.   (vl-cmdf ".array" e1 e2 "" "r" vy vx 10 10)
    
26. ))
    
27. (princ)
    
28. )
    

(defun C:333 (/ p1 p2 p0 e1 e2 _v vx vy ss)<br /> (if (and (setq p1 (getpoint "\nFirst Corner: "))<br />           (setq p2 (getcorner p1 "\nOrther Corner: "))) (progn<br />   (setq p0 (mapcar '+ p1 '(10 10 0))<br />         e1 (entmakex<br />             (list<br />              '(0 . "LINE")<br />              (cons 10 (mapcar '- p0 '(1.5 0 0)))<br />              (cons 11 (mapcar '+ p0 '(1.5 0 0)))<br />             )<br />            )<br />         e2 (entmakex<br />             (list<br />              '(0 . "LINE")<br />              (cons 10 (mapcar '- p0 '(0 1.5 0)))<br />              (cons 11 (mapcar '+ p0 '(0 1.5 0)))<br />             )<br />            )<br />         _v (mapcar 'abs (mapcar '- p2 p1))<br />         vx (fix (/ (car _v) 10))<br />         vy (fix (/ (cadr _v) 10))<br />   )<br />   (vl-cmdf ".rectang" "_none" p1 "_none" p2)<br />   (vl-cmdf ".array" e1 e2 "" "r" vy vx 10 10)<br /> ))<br /> (princ)<br /> )<br />

幽默的armstrong

谢谢你的帮助，但是我需要那个判断语句，就是坐标值被10整除
你的语句把判断语句删除了，假如a 不是（100,100）是（91,91）画线命令也要画在(100,100) (110,110)(110,120)...

幽默的armstrong

fl202 发表于 2015-4-17 09:21
先绘制一个十字，再阵列吧。

不行的，这只是一部分语句

幽默的armstrong

ZZXXQQ 发表于 2015-4-17 09:46

谢谢你的帮助，但是我需要那个判断语句，就是坐标值被10整除
你的语句把判断语句删除了，假如a 不是（100,100）是（91,91）画线命令也要画在(100,100) (110,110)(110,120)...

llsheng_73

1. (defun C:333(/ a b x1 y1)
   
2.   (graphscr)
   
3.   (setvar "cmdecho" 0)
   
4.   (setq a(list 100 100))
   
5.   (setq b(list 200 200) )
   
6.   (command"rectangle"a b)
   
7.   (setq x1(*(fix(/ (car a)10))10))
   
8.   (repeat(1-(/(-(car b)(car a))10))
   
9.     (setq x1(+ x1 10))
   
10.     (setq y1 (*(fix(/ (cadr a)10))10))
    
11.     (repeat(1-(/(-(cadr b)(cadr a))10))
    
12.       (setq y1(+ y1 10))
    
13.       (command "pline" (list (- x1 3) y1) (list (+ x1 3 ) y1) "" )
    
14.       (command "pline" (list x1 (- y1 3)) (list x1 (+ y1 3)) "" )
    
15.       )
    
16.     )
    
17. )

(defun C:333(/ a b x1 y1)<br />   (graphscr)<br />   (setvar "cmdecho" 0)<br />   (setq a(list 100 100))<br />   (setq b(list 200 200) )<br />   (command"rectangle"a b)<br />   (setq x1(*(fix(/ (car a)10))10))<br />   (repeat(1-(/(-(car b)(car a))10))<br />     (setq x1(+ x1 10))<br />     (setq y1 (*(fix(/ (cadr a)10))10))<br />     (repeat(1-(/(-(cadr b)(cadr a))10))<br />       (setq y1(+ y1 10))<br />       (command "pline" (list (- x1 3) y1) (list (+ x1 3 ) y1) "" )<br />       (command "pline" (list x1 (- y1 3)) (list x1 (+ y1 3)) "" )<br />       )<br />     )<br /> )

ivde

(defun C:333 (/ p1 p2 p0 e1 e2 _v vx vy ss)
  (if (and (setq p1 (getpoint "\nFirst Corner: "))
           (setq p2 (getcorner p1 "\nOrther Corner: "))
      )
    (progn
      (setq p0 (mapcar '+ p1 '(10. 10. 0.))
            e1 (entmakex (list '(0 . "LINE")
                               (cons 10 (mapcar '+ p0 '(-1.5 0. 0.)))
                               (cons 11 (mapcar '+ p0 '(1.5 0. 0.)))
                         )
               )
            e2 (entmakex        (list '(0 . "LINE")
                              (cons 10 (mapcar '+ p0 '(0. -1.5 0.)))
                              (cons 11 (mapcar '+ p0 '(0. 1.5 0.)))
                        )
               )
            _v (mapcar '- p2 p1)
            vx (fix (/ (car _v) 10.))
            vy (fix (/ (cadr _v) 10.))
            ss (ssadd)
      )
      (ssadd e1 ss)
      (ssadd e2 ss)
      (vl-cmdf ".rectang" "_none" p1 "_none" p2)
      (vl-cmdf ".array" ss "" "r" vy vx 10 10)
    )
  )
  (princ)
)

幽默的armstrong

ZZXXQQ 发表于 2015-4-17 09:46

谢谢啦，虽然我没有看太懂，我还是学到了不少东西。谢谢

幽默的armstrong

llsheng_73 发表于 2015-4-17 11:15

谢谢了啊，学习了。收藏起来慢慢研究