;;-array的稍改
(defun c:ay()
  (setq  s  (ssget)
         p1 (getpoint"单元格")
         p2 (getcorner p1) ;单元格
         p4 (list(car p2)(cadr p1)))
         djx(distance p1  p4 ) ;列距
         p5 (list(car p1)(cadr p2)))
         djy(distance p1  p5) ;行距
         p3 (getcorner p1)
         p6 (list(car p3)(cadr p1))
         dlx(distance p1  p5 ) ;布行列范围
         p7 (list(car p1)(cadr p3))
         dly(distance p1 p7)
  )

  (if (= djx 0.) (progn(setq xn 1.)(command "-array" s"" "R" yn 1 djy 0.)))
 
  (if (= djy 0.) (progn(setq yn 1.)(command "-array" s"" "R" 1 xn 0. djx)))
      
  (if(and(/= djx 0.)
         (/= djy 0.)
     )
   (progn
      (if(equal(angle p1 p4) pi )(setq djx (* -1 djx)) )
      (if(equal(angle p1 p5) (* 1.5 pi) )(setq djy (* -1 djy)) )

     (setq xn(+(fix(/ dlx djx))1);列数
     (setq yn(+(fix(/ dly djy))1);行数
     (command "-array" s"" "R" yn xn djy djx)

  )
 )
)